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1.0 INTRODUCTION 


1.1 BACKGROUND 


CASCOMP is an airship sizing and performance computer 
program very similar in format and operation to 
VASCOMP II, the v/STOL Aircraft Sizing and Performance 
Computer Program described in Reference 1. Ihe purpose 
of the program is to aid comparative design studies of 
lighter than air vehicles by rapidly providing airship 
size and mission performance data. The program can be 
used to define design requirements such as weight break- 
down, required propulsive power, and physical dimensions 
of airships which are designed to meet specified mission 
requirements. The program is also useful in sensitivity 
studies involving both design trade-offs and performance 
trade-offs . 

During the formulation of the program, the following 
guidelines have been followed: 

1. Maintain generality and flexibility: 

A program of this type must be comprehensive 
and flexible in order to permit an accurate 
simulation of virtually any airship config- 
uration. It must be capable of approximating 
the design process involved in layout and 
sizing of a wide variety of LTA vehicles and 
synthesizing their 'performance. 

2. The program should be easy to use: 

In order 'to minimize hand computation of input 
data, the input to the program primarily con- 
sists of a series of single point values speci- 
fying, for example, hull overall fineness. ratio, 
number of engines, airship hull &n.d empennage drag 
coefficients, a description of the mission 
profile, and weights of fixed equipment, fixed 
useful load and payload. Where necessary to 
adequately describe certain functional relation- 
ships, the input is in tabular form. However, 
since preparation of data for tabular input is 
generally more cumbersome and time consuming, 
this .form of input has been kept to a minimun. 

3. Minimize computation time: 

In order to minimize computation time, the 
program makes ample use of optional computation 
paths. To eliminate large quantities of null 
arithmetic, the program avoids calculations 
which do not apply to the particular airship 
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being studied. 0?his is accomplished by means of 
a series of input indicators that specify the 
calculations to be performed. 

4. The program should be well balanced: 

The program should not be extremely sophisti- 
cated in one detail and yet extremely simple in 
another. To offset the possibility of this 
occurrence, great care has been taken to examine 
methods used to describe the airship and its 
operation. 

1.2 APPLICATION 

The program has two primary independent applications and 
a third which is a combination of the first two. The 
program may be used for the sizing of airships for which 
the type of vehicle and the mission profile are specified. 
Alternatively, the program may be used for mission calcu- 
lations for vehicles for which sizing details (gross 
weight, fuel available, engine power and fuel consumption, 
etc.) are known. As a combination of these two capa- 
bilities, the program may be used to first size an air- 
ship for a given mission and then calculate the off- 
design -point performance for other missions. The option 
of calculation to be used is specified to the program 
by means of an input "option indicator." 

The program has been written in a manner to make it di- 
rectly applicable to sensitivity studies to determine the 
effect of variations in weight, drag, engine character- 
istics, etc. This is accomplished by use of incremental 
multiplicative and additive factors applied to the gross 
weight, component drag and fuel required equations. 

For the most part, the multiplicative factors are nom- 
inally equal to unity and the additive factors are nom- 
inally equal to zero. However, to determine the effect, 
for example, of a 10 percent increase in drive system 
weight, the appropriate multiplicative factor can be 
set to 1.10 and the sizing program rerun. 

The program contains size trend equations which reflect 
the variation of airship dimensions with gross weight, 
detailed statistical weight trends equations, a routine 
for sizing of engines to match airframe requirements, 
and several optional procedures for calculating propeller 
performance. 

The program can be used to study a wide variety of 
lighter -than -air (LTA) vehicles. Table 1-1 illustrates 
these. 
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TABLE 1-1 

AIRSHIP CONFIGURATIONS WHICH MAY BE STUDIED USING CASCOMP 


Hull Type 

of ^■'^(iroLIND) 
Dynamic 
Lift 

(DYLIND) 

CONVENT ION2U1J 
(1) 

LIFTING BODY 
(2) 

ELLIPTICAL 
PLANFORM 
LIFTING BODY 
(3) 

CIRCULAR 
PLANFORM 
LIFTING BODY 
(4) 

Hull Only Dynamic 
Lift (Both partially 
and Fully Buoyant) 

(1) 

X 




Wing, and/or 
Hull Dynamic 
Lift 

(2) 

X 

(Megalifter Type) 

X 

X 

, 

X 

Dynamic Lift by 
Rotors Alone 
(3) 

X 

' 



Dynamic Lift 
by Rptors, Wing 
and/or Hull 
(4) 

X 

(Megalifter Type 
with Rotors) 

X 

X 

X 


















2.0 TYPICAL AIRSHIP GEOMETRY 


Specification of airship characteristics in order to calculate 
aerodynamic behavior and airship weights is made in a variety 
of ways; through use of input indicators which specify the 
types of calculations to he made, through use of weights fac- 
tors and constants, and through use of configuration geometric 
information (largely nondimens zonal) . 

A typical dimensioning and weighing analysis starts with a 
given gross weight, a known hull type, a known requirement 
(or no requirement) for dynamic lift, and a given buoyant 
fluid (lifting gas) , Hull volume is then determined by the 
interacting requirements of buoyancy ratio, buoyant fluid 
specific weight and design maximum pressure altitude.- The 
actual hull dimensions, such as overall length or diameter, 
etc., are obtained by solving the volume relationships for a 
given hull type using the input values of fineness ratios 
(in the case of conventional type hulls) or aspect and taper 
ratios (in the case of the lifting body type hulls) . Wing 
geometry (in the case of a megalifter type airship) is dic- 
tated by the requirements to satisfy a given dynamic lift 
loading and aspect ratio. Tail surface geometry is dictated 
by tail volume requirements and the location of the airship 
center of buoyancy. 

Figures 2-1 , 2-2 , 2-3 and 2-4 illustrate the four basic hull 
forms which may be utilized with this program. Figure 2-la 
is simply a special case of the first hull type (shown in 
Figure 2-1 ) « The geometric information illustrated is typical 
of that which may be required of the program user. A list of 
the geometric inputs required is included in the input vari- 
able list in Section 5.3. 
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HULL GEOMETRY 



Figure 2—1. Typical Hull and Fin Geometry — Conventional Hull Airship {HULIND = 1) 




to 

I 

w 


NOTE: WING OMITTED IN 

THIS VIEW FOR CLARITY 



Figure 2-1a. Typical Hull and Fin Geometry - Megalifter 






Figure 2—4. Typical Hull and Fin Geometry — Disc Shaped Hull Airship (HULIIMD = 4) 


3.0 GEIiERAL program DESCRIPTION 


3.1 GENERAL 


As previously described, the program has two major op- 
tions. The specific option to be used is selected by 
means of an input "option indicator" abbreviated OPTIND. 
Note that throughout this volume, the input data loca- 
tions (see Specimen Input Sheets, Section 5-2). are 
referred to by the abbreviation LOG. 

3.2 OPTIONS 

OPTIND = 0 


This option determines the airship weight breakdown, 
payload, dimensions, and required power to satisfy a 
prescribed mission flight profile at a fixed gross 
weight. In addition to the flight profile, certain 
characteristics describing the type of airship are 
specified such as hull type, buoyancy ratio, design 
altitude, number of propellers, etc, 

OPTIND = 2 


This option is used to calculate the flight perfor- 
mance of an airship for which the dimensions and 
payload have been determined. In addition to the 
airship characteristics specified above, the power 
available, airship dimensions, etc. are input to the 
program. A flight profile is also specified. The 
program then calculates the performance history of 
the airship for the specified mission. 

Combined Option 

This option permits the user to "size" an airship for 
a "design-point" mission and then to calculate the 
of f-de sign-point performance of the "sized" airship 
for a variety of additional missions. Basically, 
this option causes the program to run OPTIND = 0, 
save the sizing data generated in that option, and 
then input this information into the performance 
option (OPTIND = 2). 
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3 .-2 . 1 Description of Mission Profile 


The Performance Calculations Subprogram, consisting of 
four individual subroutines, permits the simulation of 
airship performance for virtually any mission flight 
profile. A typical performance analysis is made up of 
a series of elements V7hich, in building block fashion, 
allow the user of the program to perform a wide variety 
of studies. The elements of a typical performance 
analysis are: 

a. Segment - A segment of a mission profile is a 
unique portion of the mission such as a cruise or 
a hover. A segment starts with a set of initial 
conditions of one or more of the variables of 
state (altitude, range, weight, etc.) and ends when 
a terminal condition (or conditions) has been sat- 
isfied. 

b. Hop - A hop is defined as a set of segments ending 
at some logical terminal location (such as ground 
level at the desired range). Thus, a hop might 
consist of flying from location "A" to location "B" 
by means of combining the following segments: 
Takeoff, Transfer Altitude, Cruise, Transfer Alti- 
tude, cruise. Transfer Altitude, Landing. 

c. Leg - A leg of a mission is herein defined as a set 
of hops ending in a re-fueling of the airship. 

Thus, a leg might consist of flying from location 
"A" to "B", then to "c", at which point the airship 
is refueled. 

d. Mission - A mission is defined in this program as a 
set of legs (or hops or segments) which satisfy 
some specific operational requirement. In this 
program, the mission is the basic element for which 
the airship is sized. 

e. Case - A case is a consecutive series of missions 
for the same airship. This program permits the 
user to analyze a case which consists of a mission 
for which an airship is sized, followed by a dif- 
ferent mission which the now-sized airship performs, 
followed by yet additional missions. 
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The Performance Calculations Subprogram consists of 
four individual performance segments, specified by- 
means of an input indicator, SGTIND. The segments 
are takeoff, hover, and landing (SGTIND = 2), cruise 
(SGTIND = 4) , increment in weight of payload (SGTIND = 
8) , and transfer altitude. (SGTIND - 9 ) . The end of 
the mission is specified by an input SGTIND =0. An 
array of segment indicators is input to the program 
to specify the mission being studied. Thus, a typical 
array might be: 

SGTIND = 


2, 4, 4, 9, .4, 9, 8, 2, 9, 4, 9, 0, 



At the end of any leg, the sum of segment fuel required 
to perform that leg is stored in the computer. At the 
end of the mission, the largest of these stored values 
is used to determine the airship sizing requirements 
when OPTIND =0. An end of a case is specified by an 
input SGTIND = 100. Since an end-of-case is also 
always an end-of -mission, it is not necessary to end a 
case by a SGTIND = 0 followed by SGTIND = 100. SGTIND 
= 100 always takes precedence over SGTIND =0. The 
distinction between a mission and a case is most useful 
when it is desired to size an airship for a specified 
mission followed by analysis of the off-design-point 
performance of the “sized" airship on other missions. 

As an example, with OPTIND = 0 (sizing option) the 
following array of SGTIND might be used: 
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SGTIND 


2, 4, -0,2, 0, 4, . _ 0, 2 , 100 


1st mission 


2nd miss-ion 
— Case — 


3rd T'ission 


4th mission 


The program will size the airship for the first 
mission and then analyze the performance of the "sized" 
airship for the second, third and foinrth missions. 

Up to 12 consecutive segments may be included in a 
single case, arranged in any arbitrary series of hops, 
legs, and missions. Up to 5 of any specific segment 
may be included in any case. Thus, a case might con- 
sist of several missions, each mission having several 
different cruise segments. 

Each segment is a discrete element of the mission, 
independent of any other segment with the exception 
of the influence on the altitude, range, weight, and 
time. That is, the first cruise of a case might be 
at cruise power at standard atmospheric conditions 
and the second cruise could be at best specific range 
for a nonstandard day. 

At the start of a case, the user inputs values for 
initial conditions of altitude, range, weight, and 
time. The first segment of the case uses these values 
as initial boundary conditions and the segment ends 
at a specified terminal condition. The final values _ 
of altitude, range, weight, and time then become, in 
turn, the initial values for the following segment. 

The final, or terminal, condition varies depending 
upon the segment. Terminal conditions for each seg- 
ment, input by the user, are: 


3-4 



Takeoff,. Hover, and Landing - increment in time 


Crui se - range at end of cruise 

Change of Payload Weight - increment in weight 

and increment in 
time 

Transfer Altitude - final altitude 


Segments 2 and 4 (takeoff, hover, and landing and 
cruise) require, in addition to terminal conditions 
on one of the variables of state, an input value for 
the step size to be used in the calculations.- -The 
step size specifies both the increment in the primary 
variable which is used in the calculations and the 
increment between successive printouts, printouts 
occur at even integral multiples of the primary 
variable.- As the step size is decreased, the program 
accuracy improves, but the computing time lengthens. 

Atmospheric conditions may vary from segment to 
segment. For example, the first segment may be for a 
'standard atmosphere; the second segment may use a 
constant increment in temperature above standard, 
etc. 

At the end of the mission, the total fuel required 
is determined as the sum- of mission fuel required 
plus reserve fuel. .Reserve fuel can be specified to 
the program as an arbitrary percentage of mission 
fuel or as an arbitrary increment in total fuel re- 
quired, or as any arbitrary combination of these 
factors . 

propeller efficiency can be calculated in two differ- 
ent ways for airships with turboshaft engines. The 
option chosen is specified by means of a propulsive 
efficiency indicator, ETAIND. The options range from 
(a) input of a set of point values of efficiency to 
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(b) automatic calculation of propeller performance. 

The option chosen will depend on the type of problem 
being studied as each of the means of calculating prop 
performance has features which may be desirable under 
certain conditions. These ' options are described in 
more -detail in Section 4.9. 

'3.3 PROGR?^ IMDICATORS 

•Flexibility of operation and generality of approach have 
been accomplished by use of many optional computation 
paths. The path to be used is selected by the user 
through use of a series of input indicators. Besides the 
option indicator, previously described, the program indi- 
cators fall into four categories: size trends indica-- 

tors', aerodynamics indicators, propulsion indicators, and 
mission performance indicators. The indicators -and their 
use^ are described below. 

3.3.1 Size Trends Indicators 

a. HULIND - Four different types of basic .airship hull 
configurations are included in this program. They 
are the conventional "spindle-shaped." hull, a lift- 
ing body hull with a chordwise airfoil profile and 
a spanwise elliptical cross-section, a lifting 
body hull with an elliptical planform and chordwise 
and spanwise elliptical cross-sections and a cir- 
cular planform (or disc.-^ shaped) hull with chordwise 
and spanwise elliptical cross-rsections . If HULIND 
is input as 1, the conventional hull is selected. 

If HULIND is input as 2, the lifting -body hull with 
the chordwise airfoil profile is selected. If 
HULIND .is input as 3 or 4, the elliptical or cir- 
cular planform lifting body hulls are selected, 
respectively. 

b. DYLIND - This indicator determines the manner in 
which (or whether) it is desired to utilize dynamic 
lift for the particular hull configuration selec-. 
ted by the HULIND indicator. There are four op- 
tions available - DYLIND = 1,2,3, and 4. DYLIND = 1 
is used only in conjunction with HULIND = 1. Its 
use assumes a conventional hull airship with pro-=- 
pellers for propulsion -and no type of wings for 
dynamic lift, if the airship to be studied is 
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fully buoyant (Lb/Wq = 1.00, LOG 0011), it is 
assumed that the gross weight decrease caused by 
fuel burnoff is compensated’ for by water ballast 
recovery devices, thus negating the need for nega- 
tive dynamic lift, if the airship is "heavy" 

(Lb/Wo < 1.00), the dynamic lift of the hull is 
employed for both lifting and trim. DYLIHD = 2 is 
used' in conjunction with all hull types. For the 
case where HULIND =1, its use implies a configura- 
tion with a conventional hull plus a conventional 
wing - both of which contribute dynamic lift for 
both lifting and trimming purposes. 'When HULIND = 
2,3 or 4, obviously all of the dynamic lift is 
contributed by the lifting body hull. Use of this 
indicator further implies the use of propellers for 
propulsion. DYLIND = 3 is used only in conjunction 
with HULIND =1. Its use assumes a partially buoy- 
ant (LbA^O < 1.0) conventional hull airship utiliz- 
ing "helicopter-type" rotors for both dynamic lift 
and propulsion. DYLIND = 4 is used in conjunction 
with all hull types. When HULIND = 1, its use im- 
plies a conventional hull plus a conventional wing 
plus "helicopter-type " rotor (s) - all three of 
which contribute dynamic lift, with the rotor addi- 
tionally supplying propulsive thrust. When HULIND 
= 2,3, or 4, the dynamic lift is supplied by the 
combination of the lifting-body hull and the rotors, 
with, as before, the rotor (s) also supplying the 
propulsive thrust. 

c. RDMIND - Propellers or rotors employed by the vari- 
ous airship configurations may be either fixed in 
diameter and solidity or sized. If RDMIND is input 
as 1, propeller or rotor diameter (LOG 0074) and 
propeller Activity Factor (LOG 0077) or rotor 
solidity (LOG 0075) must be input directly. If 
RDMIND is input as 2, disc loading (LOG 0073), 

Or/o (LOG 0084) , and the propeller /rotor design 
conditions (LOGS 0085, 0086, 0087) must be input. 

d. PRPIND - This indicator is used in conjunction with 
DYLIND. It serves to indicate whether propellers 
or "he li copter -type " rotors are being used, thus 
PRPIND = 0 for D'YLIND = 1 and 2 and PRPIND = 1 for 
DYLIND = 3 and 4. 


3-7 



•3.3.2 Aerodynamics Indicators 


a. DRGIND - The method of determining the total para- 
site drag of the airship is specified, to the pro- 
gram by means of the indicator DRGIND. If DRGIND 
= i, configuration parasite drag is built up in 
component fashion, with Reynolds number scaling. 
This is the only parasite drag option presently 
available. Future modification could lead to a 
DRGIND = 2 option permitting parasite drag deter- 
mination on the basis of a trend based on hull 
volume . 

b. OSWIND - The span loading, efficiency factor 
(Oswald's efficiency factor) may be calculated by 
the program from -an approximate, relationship as a 
function of wing aspect .ratio. If the user pre- . 
fers, he may input a fixed value of the efficiency 
factor to the program. An input of OSWIND = 0 
permits the user to input a fixed value for effi- 
ciency. An input of OSWIND = 1 will cause the 
program to use this ■ approximate equation to calcu- 
late the value for efficiency. Use of the OSWIND 
indicator is. applicable only for HULIND = 1 and 

■DYLIND = 2 or 4>. 

3.3.3 Propulsion Indicators 

a. FIXIND - Engines selected for airships being 
studied in the -program may be. either "fixed" in 
size or "rubberized". If the engines are "rubber- 
ized", the engine sizing subroutine calculates the 
maximum power of the engines required to satisfy 
the. design cruise- flight conditions. If the en- 
gines are fixed in size, the user inputs the level 
of maximum power for the engines and the engine 
sizing subroutine is bypassed. If FIXIND =0, the 
engines are fixed in size. If FIXIND =1, the 
engine sizing subroutine is used to calculate- the 
size of the "rubberized" engines. 

b. ETAIND - This indicator permits the user to select 
one of two different methods for providing pro- 
peller performance data. If ETAIND = 0, the user 
specifies a point value efficiency for takeoff and 


3-8 



a table of efficiency versus flight speed for 
cruise. An input of ETAIND = 1 will permit the use 
of an automatic subroutine within the program for . 
calculating -prop performance. 

3.3.4 Mission Performance indicators 


a. SGTIND - The mission profile flown by the airship 
may be made up of an arbitrary sequencing \Of four 
discrete profile segments. The. segment selected is 
specified by means of the segment indicator, 

SGTIND. The segments are: takeoff, hover, and 

landing (SGTIND = 2) , cruise (SGTIND = 4) , change 
payload (SGTIND = 8) , and transfer altitude 
(SGTIND = 9} . The mission is terminated by an in- 
put value of SGTIND = 0. SGTIND = 100 terminates 

a case . , 

b. CRSIND - Three types of cruise missions are in- 
cluded in the program. They are: cruise at fixed 

cruise power (CRSIND = 1) , cruise at constant' true 
airspeed (CRSIND = 2 ) , or -cruise at airspeed for 
best specific range (CRSIND = 3) . 

c. TOLIND - The indicator TOLIND is input with each 
takeoff, hover, and landing and dictates the manner 
in which power is calculated. If TOLIND =1, the 
user inputs the required T/W ratio. If TOLIND = 2, 
the user inputs required fractions of takeoff power 
(T/W ratio is computed) . 

3.4 PROGRAM FLOW 


Figure 3-1 indicates, conceptually, the operation of the 
program. Program flow is monitored by a general control 
loop which controls the operation of a series of peri- 
pheral programs. These include six minor subroutines, 
four major subroutines, a major subprogram, and various 
internally stored data. The characteristics of these 
routines are summarized in Table 3-1. 
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Figures— 1. CASCOMP Program Flow Diagram 
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TABLE 3-1 

SUMMARY OF SUBROUTINES 

ROUTINE 

CALLED BY 

■ PURPOSE 

Main control Loop 
(MAIN) 


Monitor program operations. 

Minor Subr outine s : 



Atmosphere 

(ATMOS) 

Performance subroutines 
with SGTIND = 2 , 4 , 
Engine Sizing, and Size 
Trends 

Calculate atmospheric density, 
pressure, temperature, and 
speed of sound 

Lift Calculations 
(LIFT) 

Performance subroutine 
SGTIND = 4 

Calculate airship buoyant lift, 
determine hull/wing/r otor 
dynamic lift split, and deter- 
mine h'ull/wing angle of attack 
to satisfy dynamic lift req'd. 

Drag Calculations 
(DRAG) 

Performance subroutine 
SGTIND = 4 and Engine 
Sizing 

Calculate airship drag 

POWER ' 

Performance subroutines 
with SGTIND = 2,4 and 
Engine Sizing 

Calculate propeller power re- 
quired when thrust and advance 
ratio are known 

THRUST 

Same as POWER 

Calculate propeller thrust 
available when power and ad- 
vance ratiO' are known 



TABLE 3-1 
(CONTINUED) 


ROUTINE 

CALLED BY 

PURPOSE 

ROTPOW 

Performance subroutines 
with SGTIND = 2,4 and 
Engine Sizing 

Calculates rotor power required 
for "helicopter-type " rotors 

Mai or Subroutines: 



Size Trends 
(SIZTR) 

MAIN 

Calculates airship dimensions 
which are required for weight 
breakdown estimate and drag 
calculation 

Aerodynamics 

(AERO) 

MAIN 

Performs parasite drag buildup 
and calculates a series of co- 
efficients which are used by 
the drag subroutine to calcu- 
late airship drag 

Engine Sizing 
(ENGSZ) 

MAIN 

Calculates engine size (power) 
required to meet design cruise 
requirement 

Weight Trends 
(WGHTR) 

MAIN 

Calculates airship weight 
summary including propulsion, 
structures, flight controls, 
and payload 



TABLE 3-1 
(COOTINUED) 



ROUTINE 

CALLED BY 

PURPOSE 

Mai or Subproaram: 



Performance 

Calculations 

(PRFRM) 

MAIN 

Monitors program flow during 
calculation of mission perfor- 
mance and calculates total fuel 
required at end of mission 


Performance Subroutines: 


Takeoff, Hover, and 
Landing (TOHL) 

PRFRM 

Calculate takeoff, hover, 
landing performance 

or 

Cruise 

(CRUS1,2,3) 

PRFRM 

Calculate cruise performance 

Change Payload 
(CHGPL) 

PRFRM 

Add (or subtract) payload 
airship 

to 

Transfer Altitude 

PRFRM 

Changes altitude 



(TRALT) 



4.0 DETAILED PROGRAM DESCRIPTION 


4 . 1 ATMOSPHERE. SUBROUTINE 


The atmosphere subroutine will calculate the atmospheric 
density, pressure, and temperature as a function of 
altitude. . If non-standard temp. conditions are required, 
the temperature differential between- the standard and 
desired temperature (A^in) is input. Thus-, atmospheric 
conditions can be varied individually for each segment 
of the flight profile and for the engine sizing. 

4.2 PROPULSION SYSTEM CHARACTERISTICS 


The propulsion system input for the CASCOMP computer 
program consists of tabulated performance data and 
factors relating the dry weight of the propulsion 
system to its maximum power output. Only propulsion 
systems producing shaft transmitted power are considered 
in the program. 

The engine identification number is' the first input 
value, followed by FF, which is a measure of the change 
in power at ambient temperatures other than standard: 


BHP 

J7T 

BHP* 


/ BHP \ 

lIZiVsTD + FF (0cmn-e) 
BHP* • 


Where: 


BHP = shaft horsepower 

(S = ambient pressure (psia) divided by 14.6,96 psia 
6 = ambient temperature (°R) divided by 518.7° R 
STD = standard day 

* = sea level static standard day takeoff power 
setting 

Inputs k 3 and k4 determine the engine dry weight as a 
function of sea level static standard day t^i<'eoff power, 
viz. 

Weight (lbs) = kr^ P + k 4 

Np 

Where Np = number of engines 
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The performance for the engines is input as tabulated 
data. The power is represented in normalized referred 
form as BHP/BHP*<5 /e . Two 2-dimensional tables {power 
versus altitude) are required — one for takeoff power 
(table 1) and one for cruise power (table 2) . Each 
table contains 10 points. 

Specific fuel consumption data is represented by a 
2-dimensional table of SFC versus referred power. 


4.3 SIZE TRENDS SUBROUTINE 


The size trends subroutine calculates the volume of 
the airship hull based on the following relationship; 


’'^HULL - 


(Lb/Wo)Wo 

u u / 1> / 4 ; ( P / P O ^ HD ^^GAS b/ HL ^ 


= Buoyancy ratio 
= Gross Weight 

= Lifting gas specific weight 
(SL, STD) - lb/ft3 

= Atmospheric density ratio at design 
pressure, altitude 

^GASb/'^HL = Ratio of gas cell volume to hull volume 

Hull geometric dimensions (such as diameter, overall 
length, etc.) are obtained by solving the volume 
relationships for a given hull configuration. Figures 
4-1, 4-2, 4-3, and 4-4 illustrate these relationships 
for the four basic hull types. Table 4-1 lists some 
coefficients required with the equations of Figure 4-2. 

Note that for the conventional hull type (HULIND = 1) 
the user inputs a series of fineness ratios (L/D)ig, 
(L/D)ip, (L/D)oa)' where in the case of the lifting- 
body hulls (HULIND =2,3, and 4) the planform aspect 
ratio (AR) , maximum t/c of the center line section 
(t/c)j^ and taper ratio (A) are input. 

In the case of a conventional hull type (HULIND = 1) 
which exhibits no constant diameter center section 
(Ic) , it is sufficient to note that this type of config- 
uration may be represented by insuring that the sum- of 


Where; 

Lb /W o 

Wo 

^^SPWTo 
(p/po^ HD 
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I 

W 


DIMENSIONS 


L|\| - (L/D)|vgD 
Lj = (L/D)jD 
Lc = (L/D)oaD ~ L|sj - Lj 

Loa=1L/D)oaD 


V - AV 


D = 


■(L/D)oa 

(L/D)m 

7(L/D)j' 

['--1 

4 

12 

60 

L vj 


(SEE BELOW) 


VOLUME 


V = ttD^ 


(l^)oa 

4 


(L/D)m _ 7(L/D)j 
12 60 


1 + 


V 


+ AV 


SURFACE (WETTED) AREA 


C\/ - 


4V 


7tD"^L 


OA 


(PRISMATIC COEFFICIENT) 


%ET “ ^ 


2.40 Lfsj + 3.14 Lq + 2.07 Lj + .46D 


1 + 


AS 


WET 


=>WET 


^%ET 


Figure 4—1. Conventional Airship Hull — Volume and Surface Area Relationships Summary 



THIS HULL ASSUMES: 

1) DELTA PLANFORM (MODIFIED) 

2) CHORDWISE SECTION 
REPRESENTATIVE OF NACA 
4-DIGIT A/FOIL 

3) SPANWISE CROSS-SECTION 
CONSISTS OF ELLIPSES OF 
VARYING ECCENTRICITY 



t 


DIMENSIONS 

2Sy(/ 


'R- 


'T bs(X+1) 

VOLUME 

^ ^ 107r(t/c)RSvv 3/2 

AR^/2(^ +)^j2 

SURFACE (WETTED AREA) 


bg = SPAN 

X = Ctip/*^Rt 
AR = bg2 /S^ 

]( 


Sw - 


(V-AV) AR^/2 (1 +-^)2 


2/3 


IOtt (t/c)p (k.^ + k 2 ) 


[- t ]- 




k^ + k2 


1 + 


AV 

V 


) 


-f- AV 


%ET " *^6 


(t/c) 


3bc X 3bo , (t/c)p2 

- >^3 +Cr^^I1-X) + Cr^ -gJ (k4-k5l 




Figure 4—2. Lifting Body Hull — Volume and Surface Area Relationships Summary 



TABLE’ 4-1 

COEFFICIENTS USED IN CONJUNCTION WITH THE LIFTING BODY 
HULL TYPE (HULIND = 2) ILLUSTRATED IN FIG. 4-2 


3 /2 2 

0.13493 - . 07917 (l-» + 0.021 (1-A) 

= 0.06642 + 0.0293 (1-A)^ - 0. 01422 (1-A + 0 . 003383 {1- A) ^ 

]^3 - ..4075(1-A)2 - 2.494(1~A)^^^ - 4 . 1755 (1- A) + 2 .4115 (1- A) 9/2 - 0.6695(1-A 

+ 0. (1-A)^ H- 1.4765 (1-A)"^ + 0. 64975 (1-A)^ - 1.7434(1-A)^ 

+ 1.1S835 ll-A)^- 0.41225 (l-A)® + 0 . 06439 (1- A) ^ 
k4 = 5.49*15 

^ 7 /7 0 /2 

k. = 7.4225:\-A)2 - :.4965(1-A)®/^ - 2.982S(1-M + 1.8757S(1-A) - 0.5479(1 

+ 0.2646(l-A)^ + 1.10/ J5 (1-A)^ + 0.51975 (1-A) - 1.453 (1-A) 

+ 1.08715 (1-A)^ - 0.3607(1-A)® + 0.0572 (1-A)^ 

kg = 1.44513 


11/2 


11/2 

A) 



4^ 

I 

(TV 


THIS HULL ASSUMES; 

1) ELLIPTICAL PLANFORM 

2) SPANWISE AND CHORDWISE 
CROSS-SECTIONS CONSIST 
OF ELLIPSES OF DIFFERENT 
ECCENTRICITY 



DIMENSIONS 


Cd — 2 
Rt 


3(V-AV) 




irr] 


1/3 


irAR 

^s = — 


'R 


T 


T"maX “ 


% " 7 ^Rt 


VOLUME 

V =-|OR^bsT„Ax (l + v)* 

SURFACE (WETTED) AREA 

E = '1.570796 - .44062m + ,162986m2 - .29316m^ 



Figure 4-3. Helipsoid Lifting-Body Hull Volume and Surface Area Relationships Summary 



THIS HULL ASSUMES; 

1) CIRCULAR PLANFORM 

2) SPANWISE AND CHORDWISE 
CROSS-SECTIONS CONSIST 
OF ELLIPSES OF EQUAL 
ECCENTRICITY 



f 


DIMENSIONS 


Cr- - 2 


T 


3IV-AV] 


47r(t/c)R[1 + ^] 


1/3 


’’’max = (t/cIpCR^ 
% = 4^Rj^ 


AR = 1.273 


be — C 


Ri 


VOLUME 


V = - 
3 

SURFACE (WETTED) AREA 
%ET 




AV 


ii:CR 2 ^ JL ~^MAX^ \oqJHl) 1 + 

2.T 4 e \l-e/J[_ 


4%ET 
■ %ET 




[l-(t/c)R^] 


1/2 


Figure 4-4, Disc-Shaped Lifting-Body Hull - Volume and Surface Area Relationships Summary 



(L/D)n and (L/D)t is equal to (L/D)qa* 

Lifting body hulls of the type represented in Figure 4-2 
(HULIND =2) are not necessarily limited to the config- 
uration pictured. If taper ratio {X) is equal to 1;0/ 
a rectangular planform hull results. If- taper ratio 
(X) is equal to 0.0, a delta planform with sharp pointed 
wing tips results. 

It should be noted that for all hull types it is possible 
to adjust hull volume and wetted areas to account for 
hull cross-sections other than those reflected by the 
hull configuration equations by use of the factors 
AV, AV/V, AS^g^/ and AS^g^/ 

For the airship configuration where a conventional type 
hull is used in conjunction with a wing {HULIND =1, 

DYLIND = 2 or 4), wing area is calculated from the input 
wing loading (based on the dynamic lift requirement) 
and at the design cruise flight requirements (LOGS 
0104, 0105, and 0106) used for engine sizing. The 
relationship used is : 

= (i - ^^/la) (1 - ^®/w-o) Wo 

wTs ^ 


Where : 


lr/la 

= Design rotor lift/dynamic lift ratio 
(applicable if DYLIND = 4) 

LB/^o 

= Buoyancy Ratia 

Wo 

= Gross Weight 

W/S 

= Wing Loadihg. 

Note that 

the wing area defined includes the center 

section within the hull. 


As stated previously, propellers and/or rotors may be 
either fixed in size (RDMIND = 1) or sized (RDMIND = 2) . 
In the case of the latter situation, the rotor or 
propeller is sized based on the following equations: 
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%R ~ ^ 


ir’(W/A) Nr 


'MR 


4Lrh (T/W) 

pTrDjyjR^NRVrp^ rCij? CJ )~R 


Where : 

Nr = No. of rotors or propellers 
Vqi = Rotor or propeller tip speed (ft/sec) 
(C<j/cr)y = Design rotor lift coefficient 
(T/W) = Design thrust/weight ratio ‘ 


The ambient conditions are specified by LOGS 0086 and 
0087. 


Figure 4-5 illustrates the relationships used for 
sizing airship empennage. Typical tail volumes are 
obtained from a trend such as is illustrated in Figure 
4-6. Note that all fin dimensions, areas, etc. are 
based on the portion exposed to the freestream (see 
Figure 2-1 in Section 2.0). 


4 . 4 ENGINE SIZING SUBROUTINE 

Engines selected for airship configurations being 
studied in the program may be either "fixed" in size 
or "rubberized." If the engines are "rubberized," 
the engine sizing subroutine calculates the maximum 
power of the engines required ,to satisfy the design 
cruise flight conditions. If the engines are fixed in 
size, the user inputs the level of maximum power for 
the engines and the engine sizing subroutine is bypassed. 
If FIXIKD =0, the engines are fixed in size. 

If FIXIND=1, the engine sizing subroutine is used to 
calculate the size of the "rubberized" engines. 


If FIXIND = 1, the design sizing conditions are 
dictated by LOGS 0104, 0105, 0106. The relationship 
for engine sizing is given by; 


T V, 


BHP* = 


CR 
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ShT = Vh^HULL 
LhT 


^VT ' Vy^HULL 
l-VT 

NOTE: 

1) S^T IS THE TOTAL AREA OF 2 HORIZONTAL FINS 

2) Syy IS THE TOTAL AREA OF 2 VERTICAL FINS 

3) VhulL total HULL VOLUME 


Figure 4—5. Relationships for Sizing Airship Horizontal and Vertical Fins 
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TAIL ARM X TAIL AREA 



FIGURE 4-6 AIRSHIP STABILITY TRENDS. 





Where; 


T = Airship thrust required 

^CR ~ Design cruise speed (kts) 

tip = Propulsive efficiency 

riip = Transmission efficiency 

f BHP \ = Referred cruise power available at 
BHP*g/e design altitude 

5 = Atmospheric pressure ratio at design altitude 

8 = Atmospheric temperature ratio at design 
altitude 


It should be noted that in the case of a conventional 
hull airship combined with a wing/ the drag for engine 
sizing is based on the premise that the hull is at a 
level attitude (and therefore contributing no dynamic 
lift) and the wing is at its design angle of attack 
* 

4,. 5 AERODYNAMICS SUBROUTINE 

This subroutine performs the parasite drag buildup and 
calculates other coefficients for use by the DRAG 
subroutine. The overall expression for parasite drag 
which obtains is: 

Fe = ^®HULL ''' ^®HT 


Where : 


^ %T^Dht^HT ^HT , 

^evT ~ ■ ^VT*"Dvt^VT ^VT (Fe) 

^ew “ ^6^Dwi^W. (obviously this expression is equal 

■ to 0 when HULIND = 1, DYLIND = 1 or 
3) 

Further: 


^6 

a? 


= K^f^ (Re) 

= _1 

irARe 
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For a conventional hull , (HULIND = 1) 


^SHDLL “ 


.00287 KpSwetHuLL 


For a lifting body hull of the type indicated by 
HULIND = .3 

^®HULL ~ .00287 ^^wet^ULL 


For lifting body hulls of the type indicated by 
HULIND = 2 or 4. 

^shulL 
F e^ “ 0 


The terms (Re) , fp(Re), fy-j. (Re), etc., are Reynolds' 
number functions for the wing, hull, vertical tail, 
etc. , which reflect the variation of skin friction 
coefficient with Reynolds' number. The function which 
is used is a normalized form of the Prandtl-Schlichting 
turbulent flat plate skin friction equation; 


- 2.6 

f(Rg) = ^f = [1 + klog ^e J 

=fRe.l0’ ’ 10’ 

The program user inputs a value for average Reynolds 
number per foot for the mission and the program then 
calculates the Reynolds ' number for each component 
of the aircraft and uses the Reynolds' number functions 
% (Re), fp (Re), etc., to determine the variation in 
component drag as the aircraft dimensions change during 
the iteration on gross weight. The individual profile 
drag coefficients, / ^DhT' etc., are input at a 

Reference Reynolds' number of 10^. 
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The user inputs’ values for the profile drag coefficients 
(CDVTi/ CDWi/ etc.), for the interference factors (Kp, 
1%, etc.), for the mean Reynolds' number per foot, 

(Re/i ) , and for the efficiency factor, e (the program 
will calculate e if OSWIND is input as unity) . The . 
program then calculates the values for ag<and ay for 
use in the drag calculations subroutine. 

4.6 LIFT SUBROUTINE 


The lift subroutine calculates the buoyant and dynamic 
lift of the airship during, the mission performance 
calculations. Buoyant lift is defined by the follow- 
ing relationship: 


Lb = 


. 076474 (t/T - 1) +1 i 

(. 076474 - LGsp^^Tq) j 



Wq- 


where: 

t/T = Superheat ratio (ratio of lifting gas 
temperature to ambient atmospheric 
temperature ) 

LGspwTn “ Lifting gas specif ic . weight 
° (SL,STD) - Ib/ft^ 


Lb/Wq 


= Buoyancy ratio 


Wo 


= Gross weight 


This relationship is based on the following assumptions : 


1) The airship is operating at or below the 
maximum design altitude 

2) Until application of superheat, the outside 
air and lifting gas are at equal temperatures 
and pressures. 

3) Application of superheat results in a change 
of lifting gas density. 


Note that the option available to the user, namely; that 
of being able to specify t/T in the various performance 
segments, allows the study of various schemes for modi- 
fying buoyant lift by modifying the lifting gas temper- 
ature. 
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The conventional hull and/or lifting body hull dynamic 
lift is related to hull angle of attack by the follow- 
ing relationship: 

“rap + “rM) j“RADj 

Where : 

dCL = Lift curve slope of conventional and/or 
da lifting body hull (RAD”1) 


“rad= Hull angle of attack (radians) 



= Hull cross flow drag coefficient 


Figure 4-7 and Table 4-2 illustrate typical values of 
and procedures for obtaining dCL/da and for con- 
ventional hulls. Figure 4-8 and Figure 4-9 show typical 
values of dCL/da and for lifting body hulls. 


For the conventional hull, the hull lift is defined 
by: 

Lhull = ^ DeF'oa^l 

For a conventional hull and wing combination, the total 
lift is defined by: 

LhuII + Wing = + 6.28 Sw(«rad + “Des)J 


Where: 

Djj “ Hull diameter (ft) 

^0A~ Overall length of hull 
= Wing planform area 

“dES = Wing design angle of attack (Rad.) 

For a lifting body hull, the lift is defined by; 
LhULL “ qSvjCx, 

Thus for a given dynamic lift requirement, this sub- 
routine determines the required hull angle of attack 
for use in calculating the induced drag of the con- 
figuration. 
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Figure 4— 7a. Typical Data Required for Determining Cbnventiana! Hull 
Lift and Drag Characteristics 



Figure 4— 7b. Ratio of the Drag Coefficient of a Circular Cylinder of Finite 
Length to That of a Cylinder of Infinite Length 
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TABLE 4-2 


RELATIONSHIPS REQUIRED 
FOR 

DETERMINATION OF CONVENTIONAL 
HULL LIFT & DRAG CHARACTERISTICS 


1 general : 


where ; 



2 (k2 ) Sq 

SpLAN 


"OA 


'Dn = 


’PLAN 




For the case of a hull with a circular cross-section 


S = 

° — 

SpLAN ^OA^H 
Cd =1.2 
Xq = 0 . 5L0A 

r = Dh/2 (constant WITH X) 

This reduces to: 

/dCr\ (k 2 -ki)fr Cn = 0.6n 
= 2 (L/D)oa ’ ^ 

where (k 2 -ki)/ n are f(L/D)Qj^ (See Fig. 4-7) 
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LIFT CURVE SLOPE vs ASPECT RATIO FOR RECTANGULAR WINGS 




FIGURE 4-8. TYPICAL LIFT CURVE SLOPE (dCj^/da) DATA FOR LIFTING BODY HULLS 
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COMPARISON OF THEORETICAL & EXPERIMENTAL LIFT OF 
RECTANGULAR AIRFOIL WITH ROUND & SHARP SIDE EDGES 



FIGURE 4-9a a - DEGREES 


COMPARISON OF THEORETICAL & EXPERIMENTAL LIFT 
FOR BLUNT AIRFOIL DELTA WINGS 
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COMPARISON OF THEORETICAL & EXPERIMENTAL LIFT 
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FIGURE 4-9. CORRELATION OF THEORETICAL & EXPERIMENTAL LIFT USiNG 
VARIOUS VALUES OF CROSS-FLOW DRAG COEFFICIENT (CDc) • 





4.7 DRAG SUBROUTINE 


The drag siabroutine calculates the total .airship . drag 
during the mission performance calculations. This in- 
cludes parasite, profile and induced drag; 

The conventional hull and/or lifting body induced drag - 
is given by: 

Cd^ = ^dCL|°RAD + |®RAd[ 

Where “ R2^ was determined by the LIFT subroutine and 
(dCL/d'cT ) and a^re input values as defined in 
Section 4.6. ^ 

The conventional hull airship total drag is given by: 


D = qFe + qDH^oA^Di 


For a conventional hull plus wing this becomes : 

D = qFe + + qCDyjj-Swag + qpL^^^a 7 

Where: 


Fe 


= Parasite drag area of hull + empennage 
= Wing profile drag coefficient 


Clw = wring lift coefficient 

ag,a^= Coefficients calculated in 2^0 
subroutine 

For lifting body hulls defined by HULIND = 2 or 4. 

D = qFe + qCD^ S^^ag + 

S 

Where: 


Fe = Parasite drag area of empennage 
Sw = Hull planform area 

For lifting body hulls defined by HULIND =3. 

D = qFe + qSwCDjj^ 


Where: 

Fg = Parasite drag area of hull + empennage. 
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4.8 ROTOR EERFQRMANCE SUBROUTINE 

This subroutine calculates the rotor power required 
for airship configurations using helicopter "type" 
rotors for providing all or part of the dynamic lift 
and all of the propulsive thrust. It employs a Boeing 
developed method known as the "short form" aero metho- 
dology which. allows the user to calculate rotor per- 
formance for a wide range of rotors with a minimum 
amount of input. 

The short form aero methodology, developed at Boeing 
(References 2, 3 and 4) combines momentum theory and 
empirical corrections through coefficients found in 
the rotor, cycles. The data used in this approach has 
been derived and correlated for rotors operating within 
the following parametric ranges; 


Blade Number = 
Blade Twist = 
Blade Root Cutout = 


2-6 

0 15° 

0.20R 


Rotor Solidity = 0.055 - 0.150 

Rotor Advance = 0-0.4 

Ratio (y) 

No appreciable loss in accuracy is likely for oases 
involving more than six blades, less than 20 percent 
root cutout or a solidity lower than 0.055. The level 
of confidence will be reduced, however, for those cases 
in which the rotor parameters greatly exceed the ranges 
shown above. Figure 4-10 illustrates .a typical compar- 
ison of short form aero predicted performance and 
flight test data. 


The- quantity ALPHA d/L printed out in all forward flight 
performance segments reflects the propulsive thrust-lift 
vector of the main rotor. The simple sketch below illus 
trates the sign convention employed. 





CONVERSION FACTOR: 1 kt = 0.514 m/s 


Figure 4—10. Comparison of "Short Form Aero" Rotor Performance and Flight Test Data 
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.4.9 PROPELLER PERFORMANCE SUBROUTINE ( S ) 


Two options are available for representing the perfor- 
mance of propellers , when using shaft power producing 
engines. The option to be used- is specified to the 
program by means of a prop efficiency indicator "ETAIND" 

ETAIND = 0- - The user inputs a set of point values for 
the prop efficiency for taheoff and a table of efficiency 
as a function of flight speed for cruise. The following 
input is required: 

"^P2 - The static propeller efficiency (Figure of 

Merit) to be used in calculation of, takeoff, 
hover and landing (SGTIND=2) is input as a 
single point value. 

’^P4 - A table is input of prop efficiency during • 
cruise (SGTIND=4) as a function of flight 
speed . 

The primary advantage of this opjtion of propeller per- 
formance representation is that it permits rapid, eval- 
uation of the sensitivity of airship performance and 
size to changes in propeller performance.- ^For example, 
a series of runs with different values of ’^P2 and, ’^P4 
will quickly show the tradeoff between Figure of Merit 
and cruise efficiency for a family of propellers. It 
may also prove desirable to use this option in early 
conceptual studies when a specific prop has not been 
picked and it is desired to use "reasonable" values of 
efficiency. 

ETAIIJD = 1' - Through use of this option the program will 
automatically calculate the performance of a wide var- 
iety of V/STOL propellers. The user need only specify 
the number of blades (3 or 4;) , the. activity factor per 
blade, and the inte^ated lift coefficient, Cj,^. The 
method used for the calculation of propeller performance 
is the "short method" originated at the Curtiss -Wright 
Corporation's Propeller Division (Reference 14) . The 
method involves the use of a set of equations which can 
be developed from strip theory. These equations permit 
the propeller performance maps (Cp, C^ j) to be trans- 
formed into an "equivalent" lift-drag polar for the 
propeller. Conversely, the lift-drag polars, once de- 
veloped, can be used with the equations to predict the 
propeller .performance. For incompressible flow,- the • 
"equivalent" lift-drag polar which is .used depends only, 
on the value of Cl^ being considered. That is, for a. 
given Cl^ the same polar can be used to accurately 
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represent tlie performance of props witti a wide varia- 
tion in activity factor and number of blades and for 
a wide range of Cp and J. For compressible flow con- 
ditions, the curves correlate very well on the basis 
of the value of helical Mach number at the 3/4 radial 
station. The equivalent lift-drag polar s which are con- 
tained in the program were developed from detailed strip 
analysis calculations for cruise and from calculations 
using an explicit vortex-influence technique in hover - 
These detailed calculations covered the following range 
o f par ame t er s : 

No . of blades : 3 and 4 

Activity factor /blade : 60 — > 220 

Integrated lift coefficient, 0.15 — 0.7 

Although the user is permitted to input values of 
activity factor and Cli greater than (or less than), 
those shown above, the level of confidence in the pre- 
dictions is reduced when values for those parameters 
are outside the range used in the' detailed- calculations. 

Figures 4-11 and 4-12 are characteristic of the level 
of accuracy obtained from the short method when compared 
to the detailed calculations. 

This option will calculate the propeller performance 
for all mission performance segments. 

Subroutine thrust calculates the propeller thrust 
available for known values of power and flight speed. 
Subroutine power calculates the power required for a 
specified thrust and flight speed. These subroutines 
make use of propeller equivalent lift-drag polars, as 
mentioned above, to calculate the performance of the . 
propeller. The polars are developed in the main con- 
■trol loop for the particul^ value of integrated lift 
coefficient, being studied from the followina 

equations : 

Y = tan-1 (Cd/Cl) = function of Mr, Cl, CLi 
Mh = helical Mach No. at 3/4 r/R 

Cl equivalent lift coefficient at which prop is 
operating 

Cl£= integrated lift coefficient of prop 
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FIGURE OF 
MERIT 
% 



FIGURE 4-11. Comparison of "Short Method" and Detailed 

Calculation for Propeller Hover Efficiency. 
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Figure 4-12 Comparison of "Short Method" and Detailed 

Calculations for Propeller Cruise Efficiency. 
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For cruise 


T = + a^CL^ + a2CLi2 

aQ^ a^, and a 2 are coefficients stored in tlie 


program and are functions of Mg and Cj 


For hover ; 


Y> bo + bj^C^ . + baCj^ . 2 


ho, ^1' ^2 are coefficients stored in 

the program and are functions of Cl. 

The coefficients a^^ aj^^ a 2 b^, bi^ b 2 are listed in 
Table 4-3. ' ' 
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TABLE 4-3 


COEFFICIENTS FOR PROPELLER EQUIVALENT POLARS 



I 

to 

GO 


COEFFICIENTS FOR HOVER: 


COEFFICIENTS FOR CRUISE; 


Cl 

b 1 

b2 

b3 

0 

90 

0 

0 

.15 ' 

,2.68 

-5.4836 

13.5125 

.2 

1.9141 

-2.9393 

8.012 

,3 

1.513 

-2.7523 

5.8113 

.4 

1.5304 

-3.0648 

4.8132 

.5 

1.9611 

-4.5374 

5.3846 

.6 

2.7089 

-6.8293 

6.8072 

.7 

3.8237 

-10.0965 

9.3267 

.8 

5.051 

-12.558 

10.7333 

.9 

7,3796 

-18.5171 

15.8002 

1.0 

9.13 

-19.35 

15,5 


Cl 

0 

.05' 

.10 

.15 

.20 

.3 
.4 
.5 
.6 
.7 
.8 
.9 
1.0 
1.1 
1.2 ■ 


ao 

ai 

^2 

1 

^0 

^1 

^2 


90. 

0. 

0. 

0 

8 

90 . 

0 

0 


7.0392 

1.9949 

61.2416 



10.2148 

2.4433 

86.4731 


4.8350 

-4.1639 

19.2195 



8.3106 

-22,6338 

56.0 


3.2218 

-1.7030 

8.291 



5.4623 

-14,9997 

35.3636 


2.7551 

-2.5322 

7.0366 



4.0458 

-9.9837 

23.0606 


2.481 

-4.5422 

7,3774 



3.9439 

-13.0524 

22.0028 


2.4521 

-5.4949 

7,4251 



3.6769 

-11.7146 

17 . 3803 


2.8149' 

-7.092 

8,3401 



3.8766 

-12.0044 

16.0882 


3.8725 

-10.861 

11.4678 



4.5901 

-13.8756 

17.2451 


5.6653 

-16.2691 

15.8093 



6.1044 

-18.2607 

21.8349 


8.5799 

-24.8115 

22.6773 



8.9031 

-26,0958 

30.7056 


12.25- 

-33.6185 

28.7271 



12.2042 

-29.4588 

34.1515 


17.0496 

-43.061 

33.8798 



17.0398 

-37.3809 

43.697 


21.8332 

-47,8821 

33.6322 



22.784 

-47.3791 

55.5455 


31.7.062 

-49.6246 

26.4923 

> 

t 

28.7851 

-57.8217 

68.2121 



^0 
90 . 

11.3227 

11.3355 

8.3676 

6.5856 

5.3862 

5.2054 

6.1902 

8.153 

10.1745 

13.0822 

16.5344 

20.8089 

25.6453 

33.5049 


^1 

0 . 

40.9515 

-14.062 

-12.2425 

-9.574 

-8.9808 

-9.3153 

-14.7567 

-25.0375 

-30.7342 

-33.2211 

-34.9378 

-40.6314 

-49.145 

-77.6449 


^2 

0 . 

21.9481 
62.0142 
36.0889 
25.9573 
18.6439 
16.4063 
■ 23,2672 
39.117 
.51.0509 
58,1494 
64.3529 
76.3927 
94.4326 
144.4176 



4.10 WEiGm? TRENDS SUBROUTINE 


The weight trends subroutine- calculates the group 
weights- for’ the propulsion system, the structures sys- 
tem, and the flight control system. These weigh-ts are 
then combined with input values of the weight of fixed 
useful load, fixed equipment, and payload in order to 
determine tlxe weight of fuel available (Figure 4-13). 

The subroutine uses detailed statistical weight. equa- 
tions as used at the Boeing Vertol Company. The group 
weights are not directly added, but rather are combined 
by the use of incremental multiplicative and additive ^ 
weight factors; these factors are useful for sensitivity 
studies for the airship. For example, if 'it is desired 
to determine the effect of an additional 300 pounds of 
propulsion system weight, the factor AWp is input as 
300. Similarly, if it is desired -to investigate the 
effect of a 15-percent increase in the weight of the 
engines, the factor K 5 is input as 1.15. 

In order to calculate the weight of the airship struc- 
ture, the weight trends subroutine must determine the 
limiting design load factor-. It does this by comparing 
the magnitude of the input maneuver load factor with 
the value calculated for gust load factor. 

A detailed explanation of the weight trend methodology 
as used in CASCOMP in this study is contained in Vol. I, 
Section 5.4.2. 

4.11 PERFORMANCE CALCUIATIOHS SUBPROGRAM 


This subroutine monitors the flow during calculation 
of mission performance data and calculates the total 
fuel required at the end of the mission. 

4.11.1 Takeoff, Hover and Landing Calculations Subroutine 

The takeoff, hover and landing calculations subroutine 
(specified by SGTIND = 2) will calculate the power re- 
quired and corresponding fuel flow rates during simu- 
lated takeoff /hover /landing -operations . Two options - 
are available, specified by the input indicator TOLIND : 

TOLIND - 1 - Input required thrust-weight ratio. 

Program will calculate required power 
fractions . 

TOLIND = 2 -Input the required power fraction. Pro- 
gram will calculate thrust-weight ratio. 
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FIGURE 4-13. Weight Trends Subroutine. 
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In all cases, the program will print out the power 
fraction and thrust-weight ratio. The program will per- 
mit operation at power fractions greater than 1.0 (more 
than 100 percent of available power) in order to mahe it 
easier to perform studies in which engine power is being 
varied parametrically to satisfy specified takeoff or 
landing requirements as a site. The program will, how- 
ever, print a cautionary note that power fraction ex- ' 
ceeds 100 percent. 

4.11.2 Cruise Calculations Subroutine 


This performance segment calculates airship cruise per- 
formance. Three separate options specifying the type 
of cruise desired for the airship are determined by an 
input cruise indicator, CRSIHD. 

a. CRSIMD = 1 - This is a calculation of airship cruise 
performance at a fixed cruise power setting and at 

a constant altitude, constrained by limiting air- 
speed. This option calculates the true airspeed, 
specific range, and reduction in gross weight dur- 
ing cruise. 

b. CRSIND = 2 - This option will calculate the cruise 
performance of the airship at constant airspeed, 
constant altitude, and constrained by cruise power 
and by limiting airspeed. The program will calcu- 
late the power setting required, true airspeed, 
specific range, and corresponding reduction in gross 
weight of the airship during cruise. 

c. CRSIKD = 3 - This option calculates the airspeed 
during cruise required for best specific range, 
constrained by cruise power setting and by limiting 
airspeed. Flight is at constant altitude. 

This subroutine permits simulation of cruise performance 
of an airship with an arbitrary number of engines shut 
down. The program user specifies the number of engines 
shut down and a corresponding increment in airship AFe. 

The input for the cruise calculations subroutine con- 
sists of the value for CRSIND, the lifting gas super- 
heat ratio, the increment in atmospheric temperature, 
the step size (incremental range), the final range for 
cruise, the increment in parasite drag area, number of 
engines shut down, and if CRSIND = 2, the cruise air- 
speed. 
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4.11.3 Change of Weight Subroutine 

Ihis performance segment represents an incremental 
change in weight of payload. This option would be 
used to simulate loading or unloading of passengers or 
other payload. The input to the subroutine consists of 
the increment in weight and a corresponding increment 
in time. 

-4.11.4 Transfer Altitude Subroutine 

This performance segment provides a discontinuous 
change in altitude. The only required input is the 
altitude to. which the airship is to be transferred. 
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5 . 0 PROGRAM INPUT 


5.1 GENERAL 

. Input to the program is made hy means of a standard set 
of input sheets. Although there are large quantities 'of 
possible input, necessitated by the requirement to keep 
the program flexible and general', the input sheets, have 
been configured to give maximum visibility^ and reduce .the 
tediousness of inputting the data. This has been accom- 
plished through several means: 

.a. All input of a similar nature has -been grouped 
together. Thus, all dimensional information 
is on the same input sheet,* regardless of whether 
it is used in the size trends subroutine or else- 
where . 

b. The input sheets have been color-coded to dis- 
tinguish between the data required in the 
weighing and dimensioning option (OPTIND = 0) 
and the much smaller amount of data required 
for performance calculations (OPTIND = 2) . 

c- Footnotes on the input sheets call attention 

to input which is not required due to" selection 
of one of the optional paths of computation. 

d. For parametric studies where only one or two 
variables are being changed from case to case, 
a special supplementary input sheet may be 
used, thus reducing the quantity of paper work. 

Altogether there are nine different input sheets which 
can be loosely grouped into five categories: general . 

information, airship descriptive information, mission 
profile information, engine cycle information, and 
supplementary information. A specimen copy of each in- 
put sheet is included in this report on pages 5-5 to 5-19. 
Descriptions of input variables' and .indicators are given 
in sections 5.3.1 and 5.3.2. The use of the various 
input sheets is discussed below in 5.1.1 and 5.1.2. 
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5.1.1 General information 

Input all primary program indicators (except those for 
specific mission segments, such as CRSIND) , mission 
initial conditions, reserve fuel factors, and maneuver 
load factor . 


5.1.2 Airship Description Information 

5. 1.2.1 Dimensional Information - Input characteristic 

geometric information for airship being studied. 


5. 1.2. 2 Propulsion information - Input data for propulsive 

efficiencies, numbers of engines, propellers (and/or 
rotors), and critical engine sizing conditions. 


5. 1.2. 3 


Aerodynamics Information - Input airship hull and 
empennage drag characteristics - and in the case of 
the hybrid airships both lift and drag characteris- 
tics. 


5. 1.2. 4 Weight Information - Input the factors and constants 
for weight trends calculations. 

5.1.3 Mission Profile Information 

There are three input sheets for mission profile in- 
formation. They are; 

a. Takeoff, Hover, and Landing Information 

b. cruise Information 

c. Change of Payload Weight and Transfer Altitude 
Information 

Each input variable on the mission profile sheets is 
represented by an array of five input locations. The 
data for these locations is filled in sequentially by 
rows as the particular mission segment is used. For 
example, the first time that cruise is used in a par- 
ticular case, the required input information is filled 
in on the first row of the input sheet. Data for the 
second cruise of a case is filled in on the second row 
and so on. Thus, up to five of any particular segment 
may be used in a case. 
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5-1.4 Engine Cycle information - Input engine lapse rate and 
weight information, take-off and cruise power data 
(•referred)., and fuel consumption (SFC) data. All 
tables must be filled out completely on. this sheet. 

5.1.5 Supplementary Information 

The supplementary input sheet may be used for the 
second and subsequent cases of a parametric study. For 
example, if the user wishes to change both the' propel- 
ler (or rotor) tip speed (Location 0083 - see dimen- 
sional information sheet) and the number of engines 
(location 0.102 - see propulsion information sheet) , 
these locations and their new values may be filled in 
on the supplementary input sheet. 
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'S' 

. i''', 't 


' ^ \ ' ' 


',4'y 

ySC. 

i <■ y.V i ' 

'\ 'X 


IhIHR) 


LOC 

VALUE 

0h. 

s . ^ ^ s 

^94^;'' 

ss y*' ' ' 

ip 

/?s 


^ '' V 's ''n' V 




INPUT NOT 
NECESSARY 
WHEN 
TOLIND - 1 
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BOEING VERTOL COMPANY 


CASCOMP 


CRUISE INFORMATION 


CRSIND 



1 = SPECIFIED POWER 

2 = CONSTANT TAS 
3= BEST NMPP 


AR (N.M.) 



LOC 

VALUE 

,ST 


"' / < ' J- 

C ^ ^ \ ^ ' 

jND 



3RD 



H 

X 



5^H 








iHENSIVE AIRSHIP SIZING AND PERFORMANCE COMPUTER PROGRAM B-81 



SGTIN0 = 4 


(t/TlcR, 



''T|Nl‘’fl ''kTS 


LOC 

VALUE 

'mi 

V ' . 






w, ';'C - 


j y' 



INPUT NOT 

NECESSARY 

WHEN 

CRSIND = 1,3 
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ROFINC .VFQTnt m^PANY CASCOMP COMPREHENSIVE AIRSHIP SIZING AND PERFORMANCE COMPUTER PROGRAM B-81 



MO 

CASE NO. 


or 

• ' 


VARIABLE 

LOC 

VALUE 

cmi«o. 


^ * 



^ 



k. ' ^ 





ALL TABLES MUST BE COMPLETE 


TAKE OFF POWER 


VALUES OF h, FT 



LOC 

VALUE 

a 

HUmI 

^ J.V , 

ran 

mm 


rm 


■H 

D1 

iSi 

mMKSm 





VALUES OF REF.PWR 


LOC 

VALUE 

ift' 

iSHl 

■i 

a 

HSi 

■■■ 

M 

MHC9I 

139 

OH 

El 

139 

■n 

a 

iil 

SBSI 


CRUISE POWER 



VALUES OF REF.PWR 


LOC 

BBH 

B 

ESI 


HB 

sHIBHBI 

mim 

@1 

HH 

iiS 

E9I 

HB 

lol 


mmMBB 

hH 

fftat 

mH 




SPECIFIC FUEL CONSUMPTION 


VALUES OFSFC 


LOC 

VALUE 

' S'F,d| , 

' dS25, 

yi 



' i v' 


Q32r- 





Mi'. 


'Xf ' 





;S^1, 

' ^ s ' 

' fM ' 


, A ' Xs 


VALUES OF REF.PWR 

1 

1 

LOC 

VALUE 



“v^ s. ' 









-.j'" 


mr: 

''' 


' ' 





M 

/■ ' 



(a) k_ IS IN LB/HP, IS IN LB 
3 4 
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BOEING VERTOL COMPANY 


CASCOMP COMPREHENSIVE AIRSHIP SIZING AND PERFORMANCE COMPUTER PROGRAM B-81 



CHANGE IN PAYLOAD WEIGHT SGTIND = 8 



TRANSFER ALTITUDE SGTIND = 9 
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mr HLMm 






5.3 PROGRAM INPUT 


5.3.1 program Variables 


AF 

AH 


ARhT 


ARyip 


Activity Factor (per blade) of 
propeller 

Wing Aspect Ratio (Lifting body hull . 
aspect ratio when HULIND = 2,3,4) 

Horizontal tail fin aspect ratio (this 
is per fin and is based on exposed fin 
area) 

Vertical tail fin aspect ratio (this is 
per fin and is based on exposed fin 
area) 


BHP*p 


Total configuration installed power 


bjyjj^ Number of blades per propeller or rotor 

^BUOY'^^OA position of airship center of buoyancy 

divided by overall airship length 


Cdc 


Hull/lifting body cross flow drag 
coefficient 


CDjpp 


Profile drag coefficient of horizontal 
tail at Re = 10^ 


Cd^ 


Profile drag coefficient of vertical 
tail at Re = 10^ 




Profile drag coefficient of wing (based 
on wing planform area) 


Clw 


Wing lift coefficient (based on wing 
planform area) 



Propeller integrated design lift 
coefficient 




a 


Hull/lifting body lift curve slope 
(Rad" ) 


PRE&Ei)iNG PAGE BLANK NOT FILMED! 



Qr/cr 


CYCLE NO. 
°MR- 


EDRAG 

FeDRG 

AFg 


A'Fc 


HR 


FF 


^0 


^CR 

^FINAL 

% 

Kpji 


Ratio of thrust coefficient to rotor 
solidity (helicopter C^ = Thrust/ 

•P ^ 

- this value' used for sizing 
rotor /propeller solidity when 
REMIND = 2 

propulsion cycle number 

Rotor or propeller diameter (ft) 
input if RDMIND = 1 

Span loading efficiency factor 


Factors used in conjunction with 
drag trend 

Increment in equivalent flat plate 
area parasite drag - ft^ 

Increment in equivalent flat plate 
area parasite drag (cruise performance 
segment) - ft^. 

Temperature. accountability (lapse 
rate) factor for engines (rate of 
change of referred power with respect 
to temperature ratio) 

Initial altitude at start of mission 
(ft) 

Cruise altitude for sizing engines 
(ft) 

Final altitude for transfer altitude 
segment (SGTIND. = 9) (ft) 

Hull design altitude (ft) 

Hull multiplicative drag factor . 

Fuel flow multiplicative factor 
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KhT 

Horizontal tail multiplicative drag 
factor 

KvT 

Vertical tail multiplicative drag 
factor 

Kw 

Wing multiplicative drag factor 

K1 

(LOG 0019) 

Reserve fuel multiplicative factor 

k3 1 

Engine weight factors 

M J 


^CC 

Cockpit controls weight factor 

■^RC* 

Rotor controls weight factor 

^SC* 

Rotor system controls weight factor 


Fixed wing controls weight factor 
(Fraction of airship gross weight) 

^TM** 

Tilt mechanism weight factor 
(Fraction of propeller weight) 

^RCA** 

Propeller controls weight factor 

^SCA** 

Propeller system controls weight 
factor 

^MC 

Miscellaneous controls weight factor 
(lb.) 

^AC 

Airship controls weight factor 
(Fraction of airship gross weight) 


Hull primary structure weight factor 
(If airship is non-rigid, this co- 
efficient is not used) 
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l^ENVl 

kENV2 

-^GBl 

>^GB2 

^BLNT 

kBAL 

^LG 

kww 

'kwp 

^HT 

kytp 

kpRB* 

kj^F* 

^PH* 

^amd* 


k^R** 


'^PA** 

"^VTAR** 


Main envelope (skin) weight factors 
(If airship is rigid, is input 

as O '. ) 


Gas cell weight factors 

Ballonet weight factor (Ib/ft^) 

(kpLOT input as 0 for rigid airships) 

Ballast weight factor (Fraction of 
airship gross weight) 

Landing gear weight factor 
(Fraction of airship gross weight) 

Wing weight factor (used if it is 
desired to account for wing relief 
loads, etc.) 

Wing weight factor (Ib/ft^) (If this 
factor is used, set k'^^ = 0.) 

Horizontal tail weight factor 
(Ib/ft^) 

Vertical tail weight factor (Ib/ft^) 


Rotor blade weight factor's 


Rotor hub weight factor 


Rotor weight factor 


Propeller weight factor 


Propeller weight factor (NOM = 1.0) 


Propeller weight factor (NOM =1.0) 
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^PDS 

Primary drive system weight factor 

^PDSZ 

Primary drive system weight factor 
(number of gears in system) 

kT 

Primary drive system weight factor 

■^PS 

Fuel system weight factor 
(Fraction of fuel required) 

^PEI 

Engine installation weight factor 
(Fraction of bare engine weight) 

(If kpEi is greater than 1.0, program 
assumes kpEi = WpEi (lbs.)) 

^PES 

Engine section weight factor 
(Fraction of bare engine weight) 

Kl 

Rotor blade weight multiplicative factor 

K2 

Rotor blade hub multiplicative factor 

K3 

Propeller weight multiplicative factor 

K4 

Primary drive system multiplicative 
factor 

K5 

Engine weight multiplicative factor 

K6 

Total hull weight multiplicative factor 

K7 

Gas cell weight multiplicative factor' " 

KS 

Wing weight multiplicative factor 

Kg 

Horizontal tail weight multiplicative 
factor 

Klo 

Vertical tail weight multiplicati've 
factor 

Kll 

Landing gear weight multiplicative 
factor 
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K12 

Rotor controls weight multiplicative 
factor 

K13 

Rotor system controls weight multipli- 
cative factor 

K14 

Fixed wing controls weight multiplica- 
tive factor 

K15 

Total propeller controls weight multi- 
plicative factor 


NOTE : 

* input only if DYLIND = 3 or 4. This corresponds 
to a hybrid airship which utilizes helicopter 
"type” rotors for all or a portion of its dynamic 
lift. 

** Input only if DYLIND =1 or 2. This corresponds to 
a fully buoyant conventional airship or a hybrid 
airship with wings which uses propeller (s) for pro- 
pulsion and tilts same for low speed/hover control. 


Lb /W o 

- (L/D) 
(L/D)t 
(L/D) OA 


Airship buoyancy ratio (ratio of 
buoyant lift to gross weight) 

Fineness ratio of airship nose section 

Fineness ratio of airship tail section 

Overall fineness ratio of hull 


LF Wing unloading factor 

LGsp^q Lifting gas (buoyant fluid) specific 

weight at SL, STD conditions (Ib/ft^) 
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Lh/LOA 


Lr/La 


■ Lv/LOA 


Mlf 

% 

NpSDcR 


Position of horizontal tail fin aero- 
dynamic center as a fraction of overall 
hull length (forward of stern) 

Design rotor lift as a fraction of 
design dynamic lift requirement 

Position of vertical tail fin aerody- 
namic center as a fraction of overall 
hull length (forward of stern) 

Maneuver load factor (g's) 

Numher of engines 

Number of engines shut down during 
criri se 


Nr 

PEHF 

Ee/j 


Number- of rotors or propellers 

Engine power fraction 

Mean Reynolds- number per foot for 
mission 


^MAX 

RMj 


AR 


ASwet 


Range at end of -cruise (n.rai^ 

Wing relief as fraction of wing lift 
(used with input) 

Initial range at start of mission 
(nautical, miles) 

Step size for cruise (nautical miles) 

Incremental wetted area of airship hull 
(ft 2 ) 


ASwet/Swet 


Incremental' wetted- area of airship hull 
divided by hull wetted area 


(t/c)p 


Wing root thickness to chord ratio 


(t/c)T 


Wing tip thickness to chord ratio 
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(t/c) jjp 
(t/ c)yip 
(t/c) 25R 

A'tn 
A Tin 

ATiNcr 


to 

tpw 


(t/P)H 


(tA)cR 


tA^ 

(T/W)j3 


VcR 


"^dive 


Horizontal tail mean, thickness to -chord 
ratio 

Vertical tail mean thickness to- chord 
ratio 

Rotor blade thickness to chord ratio 

@ 0.25 rotor radius 

Incremental time for hover (hours)’ 

Step size for hover (hours) 

Increment in ambient temperature during 
mission (°F) 

Increment in ambient temperature for 
engine sizing at cruise condition ("F)- 

Increment in ambient temperature for 
rotor or propeller sizing at takeoff 
condition (°F) 

Initial time at start of mission (hours) 

Incremental time for change -of payload 
we ight (hour s ) 

Ratio of lifting gas temperature to 
ambient temperature (superheat ratio)- 
in hover segment 

Ratio of lifting gas temperature to 
ambient temperature (supe-rheat ratio) 
in cruise segment 

configuration thrust/weight ratio (hover) 

configuration design thrust/weight ratio 
for sizing rotor or propeller in hover 

Design cruise s^ed- for engine sizing, 
(kts) 

Dive speed (knots EAS) 
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^gasbA^hl 


Vh 

VkTS 

VmO 

'^TIP 


Ratio of gas cell volume to total, hull 
volume 

Horizontal tail volume coefficient 

Mission cruise speed (kts) 

Maximum operating equivalent airspeed 
(kt) 

Rotor or propeller tip speed (fps) 


AVol 
A Vol/vol 


WpE 

%UL 

Wo 


Vertical tail volume coefficient 

Incremental volume of airship hull (ft^) 

Incremental volume of airship hull 
divided by hull volume 

Weight of fixed equipment (lb.) 

Weight of fixed useful load (lb.) 

Airship gross weight (lb.) 


WpAYL 


Payload weight (lbs.) - input only if 
OPTIi;® = 2 


W/A 


W/S 


A Wpi Q 


Rotor or prope'ller disc loading (psf) 
(based on difference between gross 
weight and buoyant lift) 

Wing loading based on actual lift 
carried (difference between gross 
weight and buoyant lift) (psf) 

Plight controls group incremental 
weight (lb.) 


AWp . 


Propulsion group incremental weight 
(lb.) 


A Wggi 


Structures group incremental weight 

(Ib.^ 
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'AWpi. 



^MR 


increment in payload weight during 
change of payload weight subroutine 
(lb.) 

Rotor blade cutout (end of blade shank, 
beginning of rotor airfoil sections) 
position as a fraction of rotor radius 

Rotor blade attachment point as a 
fraction of rotor radius 




Fuel required additive reserve factor 


propeller propulsive efficiency for 
hover 


n- 


P4 


T 


0T, 


MR 


(p /Pq) 
^MR 


Propeller propulsive efficiency for 
cruise 

Transmission efficiency 

Rotor blade twist (deg) 

Taper ratio of wing 

Taper ratio of horizontal tail 

Taper ratio of vertical tail 

Ratio of atmospheric density at hull 
design altitude to that at SL, STD 

Rotor or propeller solidity 
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5.. 3.2 Program Indicators 



OPTIND G = Weigh s dimension airship 
2 = Calculate performance 


HULIMD 1 = Conventional hull 

2 = Lifting body hull 

3 ■= Helipsoid 

4 = Disk (circular planform) hull 

^YLIND 1 = Dynamic lift by hull alone 

2 = Dynamic lift by wing and hull 

3 = Dynamic lift by rotor (s) only 

4 = Dynamic lift by wing and rotor (s) 

NOTE: For HULIND = 2 , 3 , or 4, only DYLIND = 2 

or 4 are used. 

RDMIND 1 = input D^r or a (or AF, if PROP.IND = 1) 
2 == Input W/A, Ct/^j 
PRPIND 0 = Propeller used 

1 = Helicopter "type" rotor used 



DRGIND 1 = Component drag buildup 

OSWIND 0 = Input span loading efficiency factor (e) 

1 = Program calculates e 
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propulsion indicators 


FIXIOT) 


ETAIND 


Mission 

SGTIND 


TOLIND 


CRSIND 


0 = Input fixed sized engines 

1 = Program sizes engines based on cruise 

flight design conditions 

0 = Input propulsive efficiencies for 

takeoff and cruise 

1 = program calculates propeller performance 
Performance Indicators 

0 = End of mission 

2 = Takeoff, hover, and landing 
4 = cruise 

8 = Change payload 

9 = Transfer altitude 
100 = End of case 

1 = Takeoff, hover, or land at input T/W 

2 = Takeoff, hover, or land at input power 

setting (PEHF) 

1 = cruise at cruise power 

2 = Cruise at constant true airspeed 

3 = cruise at speed for best specific range 
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6 . 0 SAMPIiE CASE 


This section contains a filled out sample input sheet and a 
complete sample case. 
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PRECEDING PAGE BLANK NOT FILMED 



BOEING VERTOL COMPANY CASCOMP COMPREHENSIVE AIRSHIP SIZING AND PERFORMANCE COMRUTER PROGRAM B-81 


A DiviaiOx CP tmc •of;nc cov*pan« 

GENERAL INFORMATION 


SHEET NO« 

CASE NO. 

/ - 7 

1 


TITLE 
1 CARD 
(72). 
kOIGITS) 


, 0 , A ,i. A ,S,HJ ,P. ,P,AA 

^ '* '9 *2 26 28 3 1 34 37 *0 42 


^ 1 I Si / I /?! )^i 


J 1 1 1 1 1 1 I I I ■ 

52 88 88 81 


-I 1 1 I 1 L 


_1 I 1 


-I I I L 

78 7 


OPTION 

INDICATOR 


VARIABLE 

UNIT 

LOC 

VALUE 

OPTtNO 



\0. ^ 


SIZE 

TREND 

INDICATORS 


'huund ' 


A 

0vtm» .. o 




AERODYNAMICS 

INDICATORS 


DRGIND 


0004 

A ] 


y' ''s - 


A- . 1 


PROPULSION 

& 

SIZE TRENDS 
INDICATORS 


, RESERVE 
‘FUEL 
FACTORS 


INITIAL 

jCONDITIONS 


FIXINO 


0006 

A 

RDMIND 


0007 

A 

PRPIND 


0003 

0. 







WBt 

fH 

6)i6po0. 

BMI 

WBS 


IHi 


Hi 

0012' 

' 

"A. ■ 

IteMfi 

Hi 



iim 

ISI 

im 


%AXp 

FT 

0015 

^ooo. 


HB 

Eilii 

^007 



.KTS ' 
-EAS . 

;®J17 

’ 60/' . 

Mlp 


0018 

A5 

7-I 


.0013. 

j.oo 


/tig' > 


Oio' 

"'O' fj 4 ^ ^ 

•/ ■* 




'^DIVE 

KTS 

EAS 

0022 

55.7 


,^'V' ' 


T-m 

Wp, ' 


-'N.M/ ' 

mii 

' A 

t"- r ' 


.ims 



0= WEIGH & DIMENSION 
2 = PERF. ONLY 


{ 1 = CONV., 2 = LIFTING BODY, 

3 = HELIPSOID, 4 = DISC 
( 1 = HULL (ONLY), 2 = WING 
13= ROTORIS), 4 = WING + ROTOR(s) 

J 1 = COMPONENT DRAG 
J 2 = DRAG TREND 

{ 0 = INPUT e 
1 = PROG. CALC e 

( 0= INPUT FIXEDSIZE ENGINES 
I 1 = PROGRAM SIZE ENGINES 
( 1 = INPUT Dmr ff(AF) 

I 2=,INPUT W/A.'Cj/a 
{ 0'= PROPELLER 
t 1 = HELICOPTER "TYPE" ROTOR 
10= INPUT?? P'S 
( 1 = PROG. CALC. PROP. PERF 


GROSS WEIGHT 
buoyancy ratio 

DESIGN ROTOR LIFT/DYN LIFT 

GASBAG VOL/„y^^^O^^ 

LIFTING GAS SPECIFIC 
WT (SL. STD) 

HULL DESIGN ALT 

ATMOS DENSITY RATIO 
AT DESIGN ALT 

LIMITING SPEED 

MANEUVER LOAD FACTOR 


NOM = 1.0 


MISSION PROFILE INFORMATION 
MAXIMUM OF 12 CONSECUTIVE 
SEGMENTS 

VALUES OF SGTIND 

0 = END OF MISSION 
2=T.O.,HOVER, LAND 
4 = CRUISE 

8 “CHANGE PAYLOAD 
9 = TRANSFER ALTITUDE 
100 “END OF CASE 



LOC 

VALUE 

iST 

0ii 


jND 

0032 


3 RD 

1X133 


4™ 


/pa, :r 


li# 

' ^ '‘V\ 

gTH 


* s > 4 ' 

O'"- : 

7 TH 

0(S7 

>\ , ' : 

gTH 

0030- 


9™ 

0033 

' ' ■* ' ' 

io-r« 

0040 


11 ™ 

004/ 


12 ™ 

0042 

?'/ "J; '.'i 


NOM = 0.0 

FUEL FLOW MULTIPLIER 
(NOM - 1.0) 


NOTE: )NH EN OPTI N D = 2 

CONSIDER ONLY THOSE 
ITEMS IN THE SHADED BLOCKS 


receding page blank not PILMM) 
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BOEING VERTOL COMPANY CASCOMP COMPREHENSIVE AIRSHIP SIZING AND PERFORMANCE COMPUTER PROGRAM B-81 

A OIV19ION or ThC •OLISC COmPA*4> 

NOTE; WHEN OPTIND = 2 

CONSIDER ONLY THOSE 
ITEMS IN THE SHADED 

BLOCKS AIRSHIP DIMENSIONAL INFORMATION 



WING 

OR 

HULL 


HOR. 

TAIL 


VERT. 

TAIL 




VALUES OF AERODYNAMIC EFFICIENCY 
(SEE NOTE g) 



NOTE: a. IF HULIND = 2,3,4, INPUT THESE VALUES 

INSTEAD OF THOSE NOTED IN b. 

INPUT NOT NECESSARY WHEN: 

b. HULIND = 2,3,4 d. RDMIND = 2 

e. RDMIND = 1 •. DYLIND = 3,4 


Mge blank not silmed! 


f. DYLIND = 1,2 

g. DYLIND = 3,4 OR ETAIND = 1 
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BOEING VERTOL COMPANY 


CASCOMP COMPREHENSIVE AIRSHIP SIZING AND PERFORMANCE COMPUTER PROGRAM B-81 


SHCET NO. 

CASE NO. 

7 



AIRSHIP PROPULSION INFORMATION 


NOTE 

VARIABLE 

LOG 

VALUE 

b 

BHP*fK 

otot 



NP- > = 

. BT02 


S' ' 


; 8105 

0*^7 


a 



^opo/ 

a 


■ ,0105 

♦ 


a 


. 0106 



ENGINE DATA 


CRUISE 

CONDITIONS 

FOR 

ENGINE SIZING 


NOTE: WHENOPTIND=2 

CONSIDER ONLY THOSE 
ITEMS IN THE SHADED 
BLOCKS. 


AIRSHIP AERODYNAMICS INFORMATION 


NOTE 

VARIABLE 

LOG 

VALUE 


CqvT 

0107 

,OOtQ7 


9dht 

0108 

,OOZ^7 

c - 


, -Ofl». 



AP« : ' // 

.0118 


d 

•"^ORG 

0111 


d 

ED RAG 

0112 


e 

'%C: , 

' 01J3 ' 


e 

,egaBA^i : 

: ' Olii ' 

■ ' ' . 


NOTE 

VARIABLE 

LOC 

VALUE 


Kvt 

0115 

ZSo 


Xht 

011G 

'Z.QO 

f 

Kf 

0117 

A 3V65 

9 


,, Oils 




{Rb/«) 

0119 



WING PROFILE DRAG AS FUNCTION OF C^ (g) 


NO. of PAIRS 

0120 


IN TABLE 




NOTE: 

a. THESE CONDITIONS ARE USED FOR 
WING.SIZING ALSO IN THE CASE OF 
HULIND “ 1. DYLIND = 1 OR 3 

INPUT NOT NECESSARY WHEN: 


b. fixind = 

C. OSWIND = 

d. DRGIND = 

e. DYLIND = 

f. HULIND = 

g. HULIND = 


1 

1 

1 

3 

2 OR 4 
1, DYLIND 


1 OR 3 OR HULIND 


m 

kiiiiiM 

mui 

BHH 

■1 

usiiawB 


BHIi 

mm 

wm 



■■ 

■ 



HHi 

91 


Q|g| 

i • ' 

Hi 



bhi 

H 

UUBI 



M 


aaMwiMi 

WiiMni 

BBBil 


■ 


SUf 


SSI 



\ 

■1 

IBiiHH 

MHMtafl 

» ■ r 

I 

V 1 

■ 


■BIBl 

HBaoiH 

' " i 

. I 

1 

■ 

HBI 

ONNMllIKi 


Hi 

B— 

wm 

. i 

m 

ISgH 

- '' 0135 ' 

1 

1 

1 

m 


KSS 

■1 


PRECEDING PAGE BLANK NOT FILMED 
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MULTIPLICATIVE FACTORS 
NOMINALLY - 1.0 


CASCOMP COMPREHENSIVE AIRSHIP SIZING AND PERFORMANCE COMPUTER PROGRAM B-81 


BOEING ViERTOL COMPANY 

A oivtaiQM or thc ttocisc company 


SHK£7 NO. 

CASE NO. 

H „7 ■ 



AIRSHIP WEIGHT INFORMANTION 


VARIABLE 

LOC. 

VALUE 

"fe 

0141 


WpuL 

0142 

/050. 


INCREMENTAL GROUPWEIGHTS 


VARIABLE 

LOC. 

VALUE 

AWpc 

0143 


AWp 

0144 

o. 


0145 

/OOO, 


= 0 ) 



GROUP WEIGHT INFORMATION 


FLIGHT CONTROLS 


‘‘CC 

0146 

Ye. 


0147 

0, 


0148 

O, 

■'fw 

0149 

o. 

•‘tm 

0150 

ori-i> 

•'RCA 

0151 

o.^ 

“SCA 

0152 


'‘mc 

0153 

0. 

‘'AC 

0154 

0,C709 


Kl 

0182 

AO 

K 2 

0183 

AO 

K 3 

0184 

/o 

K 4 

0185 

^.0 

*^5 

0186 

J‘0 


STRUCTURAL 


*'HL 

0155 

O.iOC 

''envi 

0156 

0. 

''ENV2 

0157 


•'gbi 

0158 


‘'GB2 

0159 


•'blnt 

0160 

0 . 

‘'bal 

0161 

0.0^^ 

BH 

0162 

0,0 1 3 


•0163 

0 . 

LF 

0184 

0 , 


0165 

a. 

•'WP 

0166 

0 , 

•'ht 

0167 

Aoe</ 

‘'VT 

0168 

AO&if 


*^6 

0187 

A>0 

K 7 

0188 

AO 

*<8 

0189 

AO 

Kg 

0190 


•^10 

019.1 

AO 


PROPULSION 


‘'PRB 

0169 


im 

0170 

4 ?. 

*'PH 

0171 

0 . 

‘'amd 

0172 

0 , 

‘'ar 

, 0173 

/7,5 

•'PA 

0174 

/. 0 


0175 

AO 

‘'PDS 

IIIIQgJI 

Z50. 

‘'PDSZ 

0177 • 

3. 

kT 

0178 

.IS 

•'FS - 

0179 

. 07 

•'PEI 

0180 

0.7.7 

•'PES 

0181 

z.s 



0192 

A 0 


0193 

AO 


0194 

00 

K^4 

0195 

/•o 

•^15 

0196 



• INPUT USED ONLY WHEN OPTIND = 2 

NOTE: WHEN OPTIND = 2 

CONSIDER ONLY THOSE 
ITEMS IN THE SHADED BLOCKS 

























































































































































BOEING VERTOL COfAPANY CASCOMP COMPREHENSIVE AIRSHIP SIZING AND PERFORMANCE COMPUTER PROGRAM B-81 

A DIVISION or TMt COK<PASV 


SHEET NO. 

CASE NO, 

7 

1 


TAKEOFF, HOVER AND LANDING INFORMATION SGTINO = 2 


TOLIND 


,sr 


,ND 


,RD 


«TH 


rTH 


LOC 

VALUE 

mr 


mz 


K103 


;o2o<' 


S2SS.. 



1 - INP'UTT/W 
2- INPUT PEHF 


(t/T)H 


LOC 

VALUE 



02S? 






'G210'~ 



NOM = 1.0 


AT,„|'>F) 


LOC 

VALUE 

■;02TI 


'02)2' 


0Z13 

- 

0214^ 


:s2i$' 

- " o 


T/W 


LOC 

VALUE 

8215 

' ' . ^ ^ 

0217, 


'8218' 

' ' ' ' ' 

;821?’' 


:'(mr 



INPUT NOT 
NECESSARY 
WHEN 
TOLIND" 2 


PEHF 


,ST 


,ND 


,R0 


-TH 


=TH 


LOC 

VALUE 

5'022t- 


0222: 

/ - 

pU" 


k24 

' 

■» V ^ 




INPUT NOT 
NECESSARY 
WHEN 
TOLIND = 1 


Atf|(HR) 


LOC 

VALUE 

^0220 


^8227"; 

' 

02B> 

> ^ N ^ 

' ^228,' 

' ' 

CPO' 



t„ (HR) 


LOC 

VALUE 




:'e /' 





\ii235' 

.•r.'vs 

> O' 

's '' " * 


®»iC»)iKrG 
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BOEING VERTOL COMPANY 


CASCOMP COMPREHENSIVE AIRSHIP SIZING AND PERFORMANCE COMPUTER PROGRAM B-81 


Sheet nq. 

CASE NO. 

6? Of 7 

— 1 


CRUISE INFORMATION 


SGTIND = 4 


CRSIND {trr)pR 



1 - SPEClFtED POWER NOM = 1.0 
2“ CONSTANT TAS 
3- BEST NMPP 






INPUT NOT 

NECESSARY 

WHEN 

CRSIND= 1,3 
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BOEING VERTOL COMPANY 

A 0<vi9l0«l or TmC 00£ISG COS<PAs> 


CASCOMP COMPREHENSIVE AlflSHIPSIZING AND PERFORMANCE COMPUTER PROGRAM B-81 


5HECT NO. 

CASE NO. 

7 0.7 



VARIABLE 

LOC 

VALUE 

CYCLE NO. 

imi. 

/.o 

FF ' - 

0302 

z.se 

^3 

C30'3\ 


H 

83)4 

0,: ; 


NOTE (a) 
(a) 


ALL TABLES MUST BE COMPLETE 


TAKE OFF POWER CRUISE POWER 


VALUES OF h, FT 


LOC 

VALUE 

|H 

IQH 

ESBl 


iSi 


H' 

'0302 , 


ii 

1 0^8- 


H' 

[£^111 

np6Q»' 


VALUES OF REF. PWR 


LOC 

VALUE 

11 

IQQI 

hoo 

^2 

03tt 

J.09 

m 

03f2 


^4 

,B3t3 

hZ7 

m 


WS3i 


VALUES OF REF. PWR 


LOC 

i 

VALUE 1 

il 

'0320 


13 

ESI 

1 



/.OZ-7 1 

m 


i 

13 


BieBi 


VALUES OF h, FT 


LOC 

VALUE 

V 

HI 


IS 

0318 


m 

0317 


IS 

iH 


IS 




SPECIFIC FUEL CONSUMPTION 


VALUES OF SFC 


LOC 

VALUE 

bCj' 

03^ 



; (»26 



' 0327 

oAsh 

'.SFC4,: 

, 0328 


SFCg 

8329 

0,9¥p- 


0330 


^FC^ 

0331 

0.903.. 


:0332 



VALUES OF REF. PWR 


LOC 

VALUE 


-^ 33 ; 

o'ms 

V 

''fG34. 


^3 

>033$ 



(B38, 

d/*fO 

% 

0337 

0. hP 


0338: 

o. qO, . 

^7'. 

0338 

V/oo'\ 


:;o348 



(a) kg IS IN LB/HP, IS IN LB 
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CONVENTIONAL RIGID AIRSHIP PARAMETRIC STUDY 




C A S C □ H P 

COMPREHENSIVE AIRSHIP SIZING COMPUTER PROGRAM 6-81 


THE FOLLOWING IS A CARD BY CARD REPRODUCTION OF THE INPUT DECK FOR THIS CASE 


LOC. CORRESPONDS TO LOCATION NUMBER GIVEN ON INPUT SHEET 

NUM STANDS FDR THE NUMBER OF SEQUENTIAL INPUT VALUES STARTING WITH LOC. (MAX. =5} 

EQUALS VALUE FOR VARIABLE CORRESPOND! N G TO LOC. 

VALl VALUE CORRESPONDING TO LOC. +0001 

VAL2 .VALUE CORRESPONDING TO LOC. +0002 

^ETC 


NOTE : IN USING AUXILIARY ENGINES 5 AUXILIARY ENGINE CYCLE INPUT LOCATIONS CAN BE CREATED 
BY PLACING A 66666 CARD IN FRONT AND BEHIND A STANDARD ENGINE CYCLE 



0.0 

L .OOO O 

60 00(i. 

5000.0 

60.0 00 
1.0000 
55.700 
2000.0 


4.0000 
0.50000 
0.5 000 0 
0.100006 00 
1.5190 
0.0 


4. GOOD 

10.000 

4i.oqoo 

0,800006-01 

0.70350 

5.0000 


0.0 

0.70350 

4. 0 000 

5000.0 
0.28700E-02 

25.000 


1.2000 
2.8000 
0.47430E 06 


0.0 

5820.0 

200.00 


48.000 
0.40000 
0.40600 


1.0000 
1.0000 
1.0000 
0.86170 

1. 3000 

0.0 

0.0 


4.0000 
O.IOOOOE 00 
O.IOO OOE 00 

0. ibdooE 00 
2.1260 ■ 
0.0 


140.00 

O.loboOE 00 


40.000 
0 . 42000 
_q. 97000 

5b'.”doo 

0.28700E-02 


1.0000 

0.0 

0.0 


1.0000 

0.0 


2.0000 

0.35090 

0.35090 


l.OOOO 

0.0 

0.92500 


100,00 

0.60000 

0.60000 


1.0000 


0.12510E-01 


2.8000 


1050.0 

0.0 


0.0 

38.000 

0.0 


4.4960 

0.45500 


_q.50000_ 

960.00 


80.000 

0,67000 


1.3463 


1000. 0 


0.0 

0.0 

0.38000E-01 


140,00 

0.82500 


240.00 

0.88000 


0.0 

0.90000E-02 

0.49000E-01 


0.26000 


0.93900 


1 0.46000E-01 

0. 13000E-01 

0, 0 

0 

• 

0 

1 0.0 

1.0840 

1.0840 


1 0.0 

0.0 

0. 0 

17.300 




17A 

5 

1.0000 


1.0000 

250.00 

3.0000 

0. "25000 


179 

3 

0.70000E-01 


0.27000 

2.5000 




182 

5 

1,0000 


1 .0000 

1.0000 

4.0000 

1.0000 


107 

5 

• 1.0000 


I'.OOOO 

l.OOOO 

1.0000 

. . l.OOOO 


192 

5 

1.0000 


1.0000 

l.OOOO 

1.0000 

l.OOOO 


201 

1 

2.0000 








1 

1.0000 







211 

1 

0.0 







221 

1 

O.IOOOOE-Ol 







226 

1 

0.20000 







231 

1 

2.0000 







236 

2 

2.0000 


2.0000 





241 

2 

1.0000 


1 .0000 





246 

2 

0.0 


0.0 





251 

2 ■ 

50.000 


50.000 





256 

2 

20.000 


5.0000 



' 


261 

2 

300.00 


350.00 





266 

4 

0.0 


0.0 

0.0 

0.0 



271 

4 

0.0 


0.0 

0.0 

0.0 



301 

4 

1.0000 


2.5800 

0.15000 

0.0 



305 

5 

0.0 


5000.0 

10000 . 

15000. 

17000. 


310 

5 

l.OOOO 


1.0900 

1.1800 

1,'2700 

1.3060 


315 

5 

0.0 


5 000.0 

10000. 

15000. 

17000. 


320 

5 

0.84800 


0.93800 

1.0270 

1.1160 

1.1500 


325 

5 

16.300 


5769500 

0.55600 

0. 495“0(5 

57440 OTS 


330 

3 

0.41800 


0.40800 

0.40000 




333 

5 

0.50000E-02 


0.20000 

0.30000 

0.40000 

0.60000 


338 

3 

0.80000 


l.OOOO 

2.0000 





INSUFFICIENT 

POWER AVAILABLE 

FOR 

CRUISEICRUS2) A 





INSUFFICIENT 

POWER AVAILABLE 

FOR 

CRUISE(CRUS2) A 





C\ 

1 

H 

00 


HIJLINO = 1 


CONVENTIONAL HULL 


***= dimensional data 


GROSS WEIGHT = 60000. POUNDS 


HULL 


DISPLACEMENT 

LENGTHIOVERALL) 

LENGTH(MOSE) 

DSPLMT 
EL DA 
ELN 

59998. 

355.3 

120.0 

POUNDS 

FEET 

FEET 

LENGTH(TAIL) 

ELT 

163.0 FEET 

diameter 

DH 

79.0 

FEET 

VOLUME IHULL) 

VHL 

1176841. 

CUBIC FEET 

VOLUME IGAST 

VGASR 

938028. 

CUBIC FEET 

WETTED AREA 

SF 

69796. 

SQUARE FEET 

PRISMATIC COEFFICIENT 

CV 

0.68 


CENTER OF BUOYANCY CS T61.6 


HORIZONTAL TAIL 

ASPECT RATIO ARHT 0.50 

AREA SHT 2612,1 SQUARE FEET 

SPAM 'BHT 2‘5.5'5 FETT 

HEAN CHORD CBARHT 51,11 FEET 

TAPER RATIO SLMH 0,600 

"j)T i* i* * «:((« «c *:(tA 





WEIGHTS DATA IN LBS 

GUST LOAD FACTOR GLF 

MANEUVER LOAD FACTOR EMLF 

1 

0,0 

.300 





ULTIMATE LOAD FACTOR ULF 


l.9'5U 





PROPULSION GROUP 







TOTAL MAIN ROTOR GROUP 

WPRG 

0. 





MAIN ROTOiT^LAOS 
MAIN ROTOR HUB 
PROPELLER GROUP 

Ski^wprb 

SK2*WPH 

DK3*WPRP 

472. 

0. 

0. 



DRIVE SYSTEM 
ENGINES 

ENGINE INSTALLATION 

DKA'l'WPD^ 

SK5«WEP 

WPEI 


271. 

U2. 

30. 




FUEL SYSTEM WFS 

PROPULSION GROUP WEIGHT INCREMENT DELWP 
* TOTAL PROPULSION GROUP WEIGHT WPSTR 


Ul. 

0. 


1026.' 


STRUCTURES GROUP 






- 

TOTAL HULL STRUCTURE HEIGHT 
HULL STRUCTURE 


SK6#WHL 

7053, 


4401. 


HULL ENVELOPE (SKIN)"" 

GAS CELLS 
BALLONETS 

SKT^WGSB 

WBALNT 

SK6’*WENV 

9233. 

0. 


2652. 


WING 

HORIZONTAL TAIL 
VERTICAL TAIL 

SKO<=WW 
SK9 ♦WHT 
SKIO'«‘WVT 


0. 

2832. 

2832. 




6-20 

LANDING GEAR 

ENGINE SECTION 
STRUCTURES WEIGHT INCREMENT 

SK11<<WLG 

WES 

DELHST 


78’0. 

2B0. 

1000. 




* TOTAL STRUCtUR'E WEIGHT 

WST 




24059. 



FLIGHT CONTROLS GROUP 







PRIMARY FLIGHT CONTROLS 

WPFC 


4317. 




COCKPIT Controls 

AIRSHIP CONTROLS 
ROTOR CONTROLS 

wcc 

WAC 

SK12#WRC 


257 . 
540. 

0. 




ROTOR SYSTEMS CONTROLS 
FIXED WING CONTROLS 
TILT MECHANISM 

SKIS^-HSC 

SK14*WFM 

WTH 


0. 

0. 

123. 



PROPELLER CONTROLS 
BALLAST 

MISCELLANEOUS CONTROLS 

$Kl5*WPC 

WBAL 

WMC 



63 7. 
2760. 

0. 



CONTROL WEIGHT INCREMENT 
* TOTAL CONTROL WEIGHT 

deThK 

HFC 


Tffsr 


4517. 


* W£IGHT"TiF~FlX£D EQUIPMENT 
=«■ WEIGHT EMPTY 
’K FIXED USEFUL LOAD 

WFE 

WE 

WFUL 




5320. 

35422. 

1050. 


« operating WETg'HTTHFn' 

PAYLOAD 
w FUEL 

QwE 

WPL 

HFR 




36472. 

21518. 

2010. 


GROSS WEIGHT 

WQ 

^ 4: iCc 4 « 

* # # * 

♦ # s{e 


60000. 




-sr~-5n»T<G>IfC STdiT'DAf A 

PkOPULSinN CYC LE NUMBER 1.00 0 WAS EMPLOYED 

TOTAL POWER f= OR 4. ENGINE(S>.( 6HP * ) 746. HORSEPOWER 


a\ 

I 

to 

I-* 


■i 

i = 



ENGINEIS) SIZED 
HC= 5000. FT, 

FDR CRUISE 
TEMPERATURE 

AT VC = 

= 41.2 

50.0 KNOTS 
DEG F. 

f 








3CI « If ^ « 

# * * *! 

3^ 4c )$( 

!fl( ♦ # 

^ ♦ 

if ii if * * i: if * 




% ^ 



*** AERODYNAMICS DATA 

TOTAL EFFECTIVE 

FLAT PLATE 

AREA 

FE 


238.8 

SQ.FT 





total WETTED AREA 

MEAN SKIN FRICTION COEFFICIENT 

DRAG COEFFICIENT BASED ON VOLUME 

SWET 

C8ARF 

CDV 


80413.8 SQ.FT 

0.002969 
0.021410 




1 ^ 

*** DRAG BREAKDOWN 





' 






WING F£ 

HULL FE 

VERTICAL TAIL 

FE 


Ffw 

FEH 

FEVT 


(5.0 

177.2 

18.3 

SQ.f^t 

SQ.FT 

SQ.FT 





HORIZONTAL TAIL FE 
INCREMENTAL FE 

WING LIFT EFFICIENCY FACTOR 


FEHT 

DELTA FE 
E 


18.3 

25.0 

1.0000 

SQ.FT 

SQ.FT 






♦ 

# * * 

» «t « ♦ # 

<1 « « 

If ^ if. if 

5 <1 i * » ♦ 





MISSION PERFORMANCE 

DATA 









ORUISE AT 50,0 KNOTS TAS 










! TIME 

RANGE FUEL USED 

WEIGHT 

ALT. 

TEMP 

TAS 

B.R. 

PEHF BHPR 

ETAP 

NMPP R.N. 

CL 

(HOURS) 

IN.MI) (POUNDS) 

“Tpounds) 

(FEET) 

TdFg.f ) 

IKT) 








HULL LIFT 
IPOUNOSl 


WING LIFT 
(POUNDS) 


ROTOR LIFT 
( POUNDS) 

ALPHA H 
(DEG) 


ALPHA D/L 
(DEG) 


INSUFFICIENT POWER AVAILABLE FOR 
CRUISE AT CRUISE POWER 

CRUISEICRUS2) A 







TIME 

(HOURS) 

RANGE FUEL USED 

(N.MI) (POUNDS) 

WEIGHT 

(POUNDS) 

ALT. 

(FEET) 

TEMP 

(OEG.F) 

TAS 

(KT) 

B.R. 

PEHF BHPR 

ETAP 

NMPP R.N. 

CL 



HULL LIFT 


WING LIFT 


ROTOR LIFT 

ALPHA H 


ALPHA D/L 




(POUNDS) 


ipotjndsT“ 


rpO'UND’Sl 

II7EGT 


TOEG") 


0.0 

0.0 0. 

0. 

2‘0'0 0‘; ' 

51.57 

0. 

4^.4 

rnjiTO 

0. 

TTOoia ijrd9 . 

0.0 

tJ748 

0Tr9'6 2T2 Q . C5 ^ 

-90.0 

"ITTO 

0.40 

2(T70 102^ 

59898, 

0. 

2000. 

51.87 

0. 

49.4 

1.002 

0. 

l.T5(T0 609. 

0.0 

0T4'8 

0,196212 "0.0 

-90.0 

07G 



0,81 

40.0 

204. 

59 796. 

0. 

2000. 

51.87 

0. 

"aT.’a’" 

1.003 

0. 

1 .000 

609. 

0.0 

0.48 

0.196212' 

0.0 

-90.0 

0.0 

1.21 

60.0 

306.- 

59694. 

0. 

2000. 

51. 87 

0. 

49.4 

■ 1.005 

0. 

1 .000 

609. 

0.0 

0.48 

•0.196212 

0.0 

-90w.0 ■ 

0.0 

1.62 

80,0 

408. 

59592, 

0. 

2000. 

51.87 

0. 

49,4 

1.007 

0. 

1 .000 

609. 

0.0 

0.48 

0.196212 

0;0 

-90.0 

0.0 

2.02 

100.0 

510. 

59490, 

0. 

2000. 

51.87 

0. 

49.4 

1.009 

0. 

1.000 

609. 

0.0 

0.48 

0.196212 

0.0 

-90.0 

0.0 

2.43 

120.0 

612. 

59388. 

0. 

2000. 

51.87 

0. 

49.4 

1.010 

0- 

1.000 

609. 
0.0 . 

0.48 

0.196212 

0.0 

-90.0 

0.0 

2.83 

140.0 

714. 

59286. 

0. 

2000. 

51.87 

0. 

49.4 

> 1.012 

0. 

1 .000 

609. 

0.0 

0.48 

0.196212 

0.0 

-90.0 

0.0 

3.24 

160.0 

815. 

59185. 

0. 

2000. 

51.87 

0. 

49.4 

1.014 

0. 

l.OOO 

609. 

0.0 

0.48 

0.196212 

0.0 

-90.0 

0.0 

3.64 

180.0 

917. 

59083. 

0. 

2000. 

51.87 

0. 

49.4 

1.0 L6 

0. 

1,000 

609. 

0.0 

0.43 

0.196212 

0.0 

-90.0 

0.0 

4.05 

200.0 

1019. 

58931. 

0. 

2000. 

51.87 

0. 

49.4 

1.017 

0. 

l.OOO 

609. 

0.0 

0.48 

0.196212 

0.0 

-90.0 

0,0 

4.45 

220.0 

1121. 

58879. 

0. 

2000. 

51.87 

0. 

49.4 

1,019 

0. 

1.000 

609. 

0.0 

0.48 

0.196212 

0.0 

-90.0 

f 

0.0 

4.85 

240.0 

1223. 

58777. 

0. 

2000. 

51.87 

0. 

49.4 

■ 1.021 

0. 

l.OOO 

609. 

0,0 

0.48 

0. 196212 

0.0 

-90.0 

0.0 

5.26 

260.0 

1325- 

58675. 

0. 

2000. 

51.37 

0. 

49.4 

1.023 

0. 

,1 , 000 

609. 

0.0 

0.48 

0.196212 

0.0 

-90.0 

0.0 

5.66 

280.0 

1427. 

58573. 

0. 

2000. 

51.87 

0, 

49.4 

1.024 

0. 

1.000 

609. 

0.0 

0.48 

0.196212 

■ 0.0 
-90.0 

0.0 

6.07 

300,0 

1529. 

58471. 

0. 

2000. 

51.87 

0. 

49.4 

1.026 

0, 

1.000 

609. 

0.0 

0.48 

0.196212 

0.0 

-90.0 

0.0 

CRUISE 

AT 50.0 

KNOTS TAS 











TIME 

RANGE • 

FUEL USED 

WEIGHT 

ALT. 

TEMP 

TAS 

B.R. 

PEHF. ' • 

BHPR 

ETAP 

NMPP 

R.N. 

CL . 

(HOURS) 

(N.Ml) 

(POUNDS) 

(POUNDS) 

(FEET) 

(DEG.F) 

(KT) 







■ ' 




HULL LIFT 
(POUNDS) 


WING LIFT 
(POUNDS) 


ROTOR LIFT 
( POUNDS) 

ALPHA H 
(OEG) 


ALPHA D/L 
(DEG) 


CRUISE 

INSUFFICIENT POWER 
AT CRUISE POWER 

AVAILABLE FOR 

CRUISE(CRUS2) A 









TIME 

(HOURS) 

RANGE ' 
(N.MI) 

FUEL USED 
• (POUNDS) 

WEIGHT 

(POUNDS) 

ALT. 

(FEET) 

TEMP 

(DEG.F) 

TAS 

(KT) 

B.R, 

PEHF 

BHPR 

ETAP 

NMPP 

R.N. 

CL 




HULL LIFT 


WING LIFT 


ROTOR LIFT 

ALPHA H 


ALPHA D/L 




TFoumos) 


( pound's! 


rPSUNDS f 


ToIegT 


rffEG)- 


6.07 

300.0 

1529. 

58471. 

0. 

2000. 

51.87 

0. 

49.4 

1.026 

0. 

r. O'O'O 

609". 

0.0 


0.196212 0.0 

-90.0 

0.0 

6.17 

305.0 

1554. 

58456. 

0. 

20157). 

5T.87 

0. 

49.4 

1.027 

0. 

1.066 

669. 

0.0 

■~D.4B 

0.196212 0.0 

-90.0 

1575 ' 

6.27 

310.0 

1566. 

58420. 

0. 

26"6'0. 

5kT7 

0. 

46-4 

“TTiT2'7 

0. 

1 . O0"O 

609. 

0.0 

■“5746 

67T96a-2 0.0 

-90.0 

D.O 

6.37 

315.0 

1605. 

58395. 

0. 

2‘^00. 

51. S'? 

0. 


l.-Q-^T 

0. 

T76'65 

569'. 

0.0 

“07'48 

5TTT6’2T2 0 -'0 

-90.0 


6.47 

320.0 

1631. 

58369. 

0. 

2000. 

51.87 

0. 

49.4 

1.028 

0. 

1.600 

609. 

0.0 

0.48 

0.196212 0.0 

-90.0 

T76 

6.57 

325.0 

1656. 

58344. 

0. 

2000. 

51.87 

0. 

49 i4 

1.028 

0. 

T7660 

609. 

0.0 

0.48 

07l962if 676 

-90.0 

"6.6 

6.68 

; 

330.0 

1682. 

58313. 

0. 

2000. 

5'1.S7 

0. 

49.4 

““lVO'29 

0. 

1 .605 

S69. 

0.0 

”6755 

D.r962r2 '0.6 

-90.0 

"6.6 

6.78 

335.(5 

1707. 

58293. 

0, 

joso; 

TTTbT 

0. 

49.4 

1.029 

0. 

1.000 

6097 

0.0 

67T8 

671'96212 670 

-90.0 

T .(5 

6.83 

340.0 

1733. 

53267. 

0. 

2000. 

51.87 

0. 

49.4 

1.036 

0. 

1 .065 

609. 

0.0 

“67T8 

67196212 0.0 

-90.0 

0.0 

tn 

6.98 

345.0 

1758. 

58242. 

0. 

ZQ’^lT. 

TSTs? 

0. 

49.4 

“17630 

0. 

Tnrso 

65'9. 

0.0 

-0.'4S~ 

57r9“521 2“ 0.0 

-90.0 

O.D 

to 

10 

7.08 

356.0 

1784. 

58216. 

0. 

2000. 

51.87 

0. 

49.4 

1.031 

■ 0. 

1 .06(5 

609. 

0.0 

0.48 

57I662I2' 0.0 

-90.0 

-0.0 

TAKEOFF, HOVER, 
TIME RANGE 

HOURS (N.MI.) 

OR LAND AT 
FUEL USED 
( POUNDS) 

PEhF = 0.010 
WEIGHT 
{POUNDS) 

Tor 2.000 
ALT. 

FEET 

HRS. 

TEMP 

(DEG.F) 

TAS 

(KTS) 

B.R. 

PEHF 

8HPR 

FM 

T7W THRUST FUEL FLOW 

(POUNDS) ILB/HR) 


7.03 

350.0 

1784. 

58216. 

2000. 

51.87 

0.0 

1.031 

O.OlO 

7. 

0.70 

0.004 

-60000. 

113. 

7.28 

35'5T5 

1W67 

STl 9'4 . 

2"(300'. 

5T787 

0.0 1.03 

”07010 

7. 

~0".70” 

-O'.OO'T' 

--600007 

1137 - 

7.48 

350.0 

1829. 

58171. 

2000. 

51.87 

0.0 

1.031 

0.010 

7. 

0.70 

0.004 

-60000. 

113. 

7.68 

350.0 

1852. 

58143. 

2000. 

51 .87 

0.0 

1.032 

O.OlO 

7. 

0.70 

0.004 

-60000. 

113. 

7.88 

35177D 

— rs7'47 — 

58IT57 

20007 


0'70~ 

^7032 0.010 

7. 

-6710' 

-O'. 004" 

--"600007 

— i'l37~ 

8.08 

350.0 

1897- 

58103- 

2000. 

51.87 

0-0 

1.033 

0.010 

7. 

0-70 

0-004 

-60000. 

113. 

8.28 

350.0 

1920. 

58030. 

2000. 

51.87 

0.0 

1.033 

O.OlO 

7. 

0.70 

0.004 

-60000. 

113. 

8.48 

3r5'076 

T942. 

5B6557 

2000. 

5T.87 

0.0 

“T76T3” 

D.OTO 

7. 

0.70^17004 -60000. 

1137” 

8.68 

350.0 

1965. 

58035. 

2000. 

51.87 

0.0 

1.034 

0.010 

7. 

0.70 

0.004 

-60000. 

113. 

8.88 

350.0 

1988. 

58012. 

2000. 

51.87 

0.0 

1.034 

0.010 

7. 

0.70 

0.004 

-60000. 

113._ 

9.08 

3‘56.0‘ 

20T07 

579607 

2000. 

51.37 

0.0 

“1703 5~ 

0.010 

77 

“0770- 

07004 — 

--60 0007 

7137 

9.03 

350.0 

2010. 

57990. 

2000. 

51.87 

0.0 

1.035 

0.010 

7. 

0.70 

6.004 

-60000. 

113. 


MISSION FUEL REQUIRED = 2010. 

RESERVE FUEL REQUIRED = 0. 




7.0 COMPIETE. program listing (FORTRAN) 

This section contains a complete FORTRAN listing of the 
CAS COMP computer program. 


ca- 


7-1 


C' 



F88-U:VEL LINKAGE EDITOK OPTIONS SPECIFIED XREF ,L I ST ,LET ,OVLY 
DEFAULT OPTION(S) USED - S 1ZE= 1 100352. 143361 


lewODOO INCLUDE SYSOBJ 

lEWOOOO INCLUDE SYSLMDDK B8100 ) 

lEWOOOO ENTRY MAIN 


lEWOOOO 

1EW0201 

»***88100 


NAME B8100(R) 

NOW REPLACED IN DATA SET 


CROSS REFERENCE TABLE 


CONTROL SECTION 


ENTRY 


NAME 


ORIGIN LENGTH SEG. NO. 


NAME LOCATION 


NAME LOCATION 


NAME LOCATION 


NAME LOCATION 


DRAG 

RUTPOW 

ENGSZ 


00 

420 

13F8 


41 E 
FD8 
922 


LIFT 

AERO 

MAIN 


CRUSl 

CRUS3 

SIZTR 


THRUST 

WGHTR 

ATMOS 


1020 

2538 

2DF8_ 

5140 

5018 

6978 

7858 

8808 

95 EO 


816 

8BA 

2342 


808 

C60 

IIDA 


CAC 

DD6 

316 


(O 


BIV 

QUO 

RTPOW 


98F6 

9E8B 

A6A0 


58C 

814 

26C 



CHGPL 

CRUS2 

FACTR 

A910 

AB08 

B640 

2C4 

A66 

126 

1 

L 

1 

LOADER 

8768 

85A 

1 

POWER 

BFC8 

8DC 

1 

PRFRM 

C8A8 

570 

1 


TABLE 

CE18 

46E 

1 

TOHL 

0288 

C06 

1 

TRALT ■ 

DE90 • 

26C 

1 


XLINT 

ElOO 

474 

1 






XLKUP 

E578 

854 

1 





^ CO 

IHCSLOG 

EOOO 

1B6 

I 










ALOGIO 

EUDO 

ALOG 

E0E8 


IHCSSCN 

EF88 

ID9 

1 

COS 

EF88 

SIN 

EFAO 


IHCFEX IT 

F168 

IC 

1 

EXIT 

F168 




- IHCSEXP 

F188 

192 

1 










EXP ' 

F188 




IHCFRXPR 

F320 

183 

1 

FRXPR# 

. F320 




IHCNAMEL 

F4A8 

AC3 

1 







FRDNL# 


F4A8 


FHRNL# 


FAAC 









NAME 


OklttlN LENGTH SEG. NO 


NAME 


LOCATION 



IHCECOMH 

FF70 

F61 

1 

IBCOM/iI 

FF70 


IHCC0MH2 

10ED8 

650 

] 








SEODASD 

11250 


IHCSSQRT 

11538 

145 

1 

SORT 

11538 


IHCFCVTH 

11680 

1190 

1 

AOCON# 

11630 






FCV iniJTP 

IICBB 


IHCEFNTH 

12820 

542 

1 

ARITH# 

12820 




ICB 

] 








ATAN2 

12068 


IHCSTNCT 

12F 38 

266 

1 

COT AN 

17F3R 


IHCEFIOS 

131A0 

F28 

1 

FIOCS# 

131A0 


Ml III HiHB 


52E 

1 




IHCERRH 

145F8 

504 

1 

ERRMON 

145F8 


mC-UQR.T 

1 

■^nn 

1 




IHCETRCH 

14ED0 

28E 

1 

IHCTRCH 

14E00 


Ml.lillJtllM 


63 8 

1 




$BLANKC0M 

15798 

9DC 

1 



— 1 — 







u> 

LOCATION 

REFERS 

TO SYMBOL 

IN 

CONTROL SECTION 

SEG. NO. 


100 





1 


108 


IBC0M« 


IHCECOMH 

1 



IZC 





1 


14C 







16C 














IBC 





■■■■■■ 


IDC 





1 







1 


910 





1 


918 


XLINT 


XLINT 

1 


9?Q 


FKXPR# 



1 


928 


SIN 


IHCSSCN 

1 


93 0 


SORT 


IHCSSQRT 

I 


9A8 





1 


90 8 





1 


9F8 





1 


AL8 





1 


A58 





1 


A78 





1 


6B4 


RTPOW 



1 


6CC 


RTPOW 


RTPOH 

1 


name 


LOCATION 


NAME 


LOCATION 


NAME LOCATION 


FOIOCS « 

1002C 

INTSWTCH 

10EB6 




FCVAOUTP 

FCVEOLITP 

1172A 
12 1BA 

FCVLOUTP 

FCVCQLITP 

117BA 
12 304 

FCVZOUTP 

INT6SWCH 

11 90 A 
1268B 

ADJSWTCH 

12 BBC 






AT AN 12D7C 


X4N li.£4E QIAii 130C0 

FIOC5BEP 131A6 


IHCERRE 14610 


ERRTRA 14ED8 


O o 




~cr 

pi 





LOCAT ION 

REFERS TO SYMBOL 

IN CONTROL SECTION 

SEG. NO. 

104 

XLINT 

XLINT 

1 

lie 



1 




1 

HHIVF 1 



1 




1 




1 

ICC 



1 

9C 


* 

1 

A4_ 



1. 

914 

RTPOW 

RTPOW 

1 

91C 

XLKUP 

XLKUP 

1 

924 



1 

92C 

AT AN 

1HCSATN2 

1 

934 

IBCOH# 

IHCECOMH 

1 




1 

9E8 



. 1 

A08 



1 

A2.8 



1 

A68 



1 ■ 

6B0 

RTPOW 

RTPOH 

1 


.. 


1 


604 


RTPOW 


RTPOH 


TVNK>I4< 





LOCATION REFERS TO SYMBOL IK CONTROL SECTION SEG. NO 



6DC 


RTPOW 

RTPOW 

1 


700 


RTPOW 

RT POW 

1 


724 


RTPOW 

RTPOW 

1 


72 C 




1 


25E4 




1 


26D0 




1 


2608 


FKXPR# 

IHCFRXPR 

1 


26F4 




1 


2714 




1 


2734 




1 


2754 




I 


2774 




1 


2794 






27B4 






1618 






1620 


ATMOS 

ATMOS 

1 


162B 


XUNT ■ 

XLINT 

1 


1630 


ROTPOW 

ROTPOW 

1 


164B 




1 


16E6 




1 


1708 




1 


1738 




1 


152C 




1 


1534 




1 


153C 




1 


154C 




1 

1 

1560 




1 

4=^ 

156C 




1 


1E30 




1 


1E54 




1 


1E74 




1 


1F74 




1 


2884 




1 


262C 




I 


460C 




I 


4614 


AERO 

AERO 

1 


461C 


ENGSZ 

ENGSZ 

1 


4624 


SIZTR 

SIZTR 

1 


462C 


• FRXPR# 

IHCFRXPR 

1 


4634 


LOADER 

LOAOER 

1 


4504 




1 


5588 




1 


5590 


LIFT 

. LIFT 

1 


5598 


FACTR 

FACTR 

1 


55A0 


' XLINT 

XLINT 

1 


55A8 


I8CQM# 

IHCECOMH 

1 


55E0 




1 


5600 




1 


5620 




1 


5640 




1 


5660 




1 


5680 




1 



't 

: DRAG 

DRAG 

i FACTR 

FACTR 

: I8C0M# 

IHCECOMH 

^ ’ thrust 

THRUST 



LOCATION 

REFERS TO SYMBOL 

IN CONTROL SECTION 

SEG. NO. 

5'6A0 



1 

5700 



1 

5720 



1 

5484 



1 

5490 



1 

5498 



1 

54A8 



1 

5488 



1 

54C4 



l 

54CC 



1 

607C 



1 




1 

6090 



1 

60A0 



1 

6080 



1 . 

60BC 



1 

60C4 • 



1 

6178 



1 

62E0 



1 

6184 

ATMOS 

ATMOS 

1 

618C 

POWER 

POWER 

1 

6194 

FWRNL# 

IHCNAMEL 

1 

619C 

ROTPOW 

ROTPOW 

1 

6200 



1 

6220 



1 

6240 



1 

6260 



1 

t 6280 



1 

Ln 62A0 



1 

. 62F0 



! 

6310 



1 

6EC4 



1 

6FF4 



1 

6F04 



1 

6F34 



1 

6F64 



1 

6F94 



1 

6FB4 



1 


• 


1 

6FF4 



1 

7014 



1 

7084 



1 

7094 



1 

6024 



1 




1 

6A60 



1 

6C44 

ATMOS 

ATMOS 

1 

6C4C 



1 

6C64 



1 

6C84 



1 

6CA4 



1 


6CC4 


LOCATION REFERS TO SYMBOL IN CONTROL SECTION SEG. NO 


56F0 1 

5710 -1 

3JA0 L 

548C I 

5494 1 

J fsM L 

54AC 1 

54C0 1 

IACQ L 

5400 1 

6004 ■ 1 

jijiec L 

6 09C 1 

60A4 I 

AftELB L 

5 0CO 1 

6 oca 1 

.6J.IC CEl&£ P.BA<? L 

6180 LIFT LIFT 1 

6 188 FACTR FACTR 1 

i?.l 90 XLIMl XLI.N.T L 

6198 IBCOH# IHCECOMH 1 

61F0 1 

iL21.0 ^ L 

6230 1 

6250 1 

J>ZW L 

6290 1 

6280 1 

L 

6EB4 I 

6E04 1 

3i£E4 L 

6F14 1 

6F44 1 

AE.8.4 ^ L 

6FA4 1 

6FC4 1 

^£4 L 

7 004 1 

7024 1 

iO.84 L 

69FC 1 

6A50 1 

AAiC L 

6C40 1 

6C46 ALOG IHCSLOG 1 

AC.50 FRXRR# IHCFRXPR L 

6C74 1 

6C94 1 

6CR4 L 

6CD4 i 












LOCATION 

REFERS TO SYMBOL 

IN CONTROL SECTION 

SEG. NO. 

LOCAT ION 

REFERS TO SYMBOL 

IN CONTROL SECTION 

SEG. NO. 

6CE4 



1 

6CF4 



1 

600A 



1 

6014 



1 

6D34 



1 

6 044 



1 

6D54 



1 

6 064 



1 

6074 



1 

6084 



1 

6094 



1 

6CA4 



1 

6E54 



1 

6E64 



1 

6E74 



1 

7ED8 



1 

7E0C 

000 

000 

1 

7EE0 

81 V 

8 IV 

1 

7EE4 

TABLE 

TA BLE 

I 

7EE8 

XLINT 

XLINT 

1 

7EEC 

FRXPR# 

IHCFRXPR 

1 

7EF0 

CO TAN 

IHCSTNCT 

1 


TAN 

IHCSTNCT 

1 

7EF8 

COS 

IHCSSCN 

1 

7EFC 

SIN 

IriCSSCN 

I 

7F00 

ATAN 

IHCSATN2 

1 

7F04 

SORT 

IHCSSQRT 

1 

7F08 

FWRNL# 

IHCNAMEL 

1 

7FQC 




1 

7F20 



1 

7F30 



1 

7F40 



1 

7F50 



1 

7F60 



1 

7F70 



. 1 

8070 



1 

7C80 



1 

7CS4 



1 

7CB8 

ODD 

ODD 

I 

7CBC 

ODD 

ODD 

1 

7CC0 

ODD 

ODD 

1 

7C04 



1 

7COO 



1 

7CDC 

□DO 

000 

1 

7CE0 

000 

ODD 

1 

7CE4 

ODD 

000 

1 

7014 

000 

ODD 

1 

7018 

ODD 

ODD 

1 

7D1C 



1 

7 040 

ODD 

ODD 

1 

7044 

ODD 

ODD 

1 

7048 



1 

706 8 

ODD 

. ODD 

1 - 

. 706C 

. ODD 

ODD 

1 

1 7070 



I 

7D7C 

ODD 

000 

1 

O' 7080 

ODD 

ODD 

1 

7D84 



1 

70A8 

ODD 

ODD 

I. 

70AC 



1 

7DC8 

QUO 

ODD 

1 

7DCC 



1 

70E3 



1 

8A20 



1 

8A24 

ALQGIO 

. IHCSLOG 

1 

• 8A2B 

SORT 

IHCSSQRT 

1 

3A2C 

FRXPR# 

IHCFRXPR 

1 




1 

8A50 



1 

8A60 



1 

8A70 



1 

, 8A80 



1 

SA90 



1 

8 AAO 



I 

SABO 



1 

SACO 



1 

8AD0 

• 


1 

SAEO 



1 

8AF0 



1 

3800 



1 

8810 ■ 



1 

8B20 



1 

8630 



1 

8 840 



1 

8850 



1 

8860 



1 

8870 



1 

3080 



I 

BB90 

- 


1 

8BA0 



1 

8880 

■ 


1 

8BC0 



1 

8300 



1 

88E0 



1 

. 8BF0 


. 

1 

8 COO 



1 

8C10 



1 

8C20 



1 

8C30 



I 

8C40 



1 

8C5 0 



I 

8C60 



1 

8C70 



1 

8C80 



1 




LOCATIGN REFERS TO SYMBOL IN CONTROL SECTION SEG. NO 


8C90 

33BC 

8 8 £4 

8904 

3910 

963C 

96C4 

96E8 

9205 . 

9728 

9748 

9155 . 

966 3 
AA8C 

Amc. 

AFE4 

AFEC 

A£F4 

AFFC 
B03 0- 
ao5^ 

8070 

8090 

BO BO 

5000 

BOFO 

Blip 

^ AEF4 
AFOO 

AEO.a.. 

AF18 
AF2 8 

AE3.4 

AF3C 

BC88 

L29JL. 

C298 

C2A0 

C2Aja. 

C280 

C2D4 

C2E4- 

C314 

C334 

C394 

COES 

CIQO 

C108 

CllC 

C.12A_ 

CAFO 


£JtE IHCSEXP 

SORT IHCSSQRT 


IBCUH# IHCECOMH 

DRAG DK AG 

ATMOS ATMOS 

FACTR FACTR 

-XLINT XLINT 

ROTPOW ROTPOW 


EXIT IHCFEXIT 


TABLE TABLE 

SORT IHCSSQRT 

FWRNL# IHCNAMEL 

THRUST THRUST 


1 

I 


1 

1 


1 

I 

X 

3 

] 

J 

1 

1 

X 

1 

1 

X 


1 

1 

X 

I 

I 

X 

1 

I 

X 

1 

1 

X 

1 

1 

JL 

1 

1 

X 

I 

1 

X 

1 

1 

X 

1 

1 

X 


1 

I 


LOCATION REFERS TO SYMBOL IN CONTROL SECTION SEG. NO 


88AC 
88DC 
_8.ej8. 
890C 
9688 
9 6 C0 
9608 
96F8 
9718 
9738 
9 758 
_9_fe5A 
iA83 
iFD8 
iF.EP. 
^FE8 
FFO 


‘LF£.8_ 

8020 


FRXPR^I IHCFRXPR 


XXEI LIFT 

CRUSl CRUSl 

POWER POWER 

Ifi-C-PM IHCS C QMH 


B030 

BOAO 

.55.0). 

BUEO 

BlOO 

.6X^5. 

AEFC 

AF04 

■AE14 

AFIC 

AF30 

.AE25. 

AF40 

BCBC 

029.4. 

C29C 

C2A4 

02A&. 

C2C4 

C2E4 

.0X04. 

C324 

C344 

0354 

C0E4 

COPS 

XXQ4 
CIOC 
C120 
C 128 


IBCOM# IHCECOMH 

XACXB EACXB, 

XLINT XLINT 

FRXPRA IHCFRXPR 

■IB CO M# LHCECOMH 


1 

1 

X 

1 

1 

X 

I 

1 

X 

1 

1 

X 

1 

1 

X 

1 

1 

X 



1 

1 


CAF4 


TOHL 


TOHL 








LOCATION REFERS TO SYMBOL IN CONTROL SECTION SEG. NO 


LOCATION REFERS TO SYMBOL IN CONTROL SECTION SEG. NO 



CAF8 

CHGPL 

CHGPL 

1 

CAFC 

CRUSl 

CRUSl 

1 



C300 

CRUS2 

CRUS 2 

1 

CU04 

CRUS3 

CRUS 3 

1 



CB08 

TRALT 

TKALT 

1 

CBOC 

IBCOM# 

IHCECOMH 

1 



CA90 



1 

0618 



1 . 



D61C 

ATMOS 

ATMOS 

. 1 

0620 

FACTR 

FACTR 

1 



0624 

POWER 

POWER 

1 

0628 

XL I NT 

XLINT 

1 



D62C 

SORT 

IHCSSORT 

1 

0630 

FRXPR# 

IHCFRXPR 

1 



0634 

IBCOM# 

IHCECOMH 

1 

0638 

ROTPOW 

ROTPOW 

1 



064C 



1 




1 



D66C 



1 

D67C 



1 



D68C 



1 

> D69C 



1 



06AC 



1 

D6BC 



1 



06CC 



1 

0 60C 



1 



06EC 



. 1 

D6FC 



1 



070C 



I 

D71C 



1 



072C 



1 

073C 



1 



074C • 



1 

077C 



1 



D78C 



1 

0 7CC 



1 



0524 



1 

0528 



1 



053 8 



1 

0540 



1 



0544 



I 

0543 



1 



D55C 



1 

0560 



1 



D564 



1 

0FE8 



1 



OFEC 

I8C0M# 

IHCECOMH 

1 

E330 

IBCOM# 

IHCECOMH 

1 



EAIO 

BIV 

BIV 

1 

EA2C 

IBCOM# 

IHCECOMH 

1 



EEF8 

IBCOM# 

IHCECOMH 

1 

EF34 

IHCERRM 

IHCERRM 

1 



F0B8 

IBCOM# 

IHCECOMH 

1 

FOFC 

IHCERRM 

IHCERRM 

1 


-J 

F180 

I8C0N# 

IHCECOMH 

1 

F290 

IBCOM# 

IHCECOMH 

1 


1 

F28C 

IHCfcRRM 

IHCERRM 

1 

F430 

IBCOM# 

IHCECOMH 

1 


00 

F434 

IHCERRM 

IHCERRM 

1 

F428 

ALOG 

IHCSLOG 

1 



F42C 

EXP 

IHCSEXP 

1 

F03C 

IBCOM# 

IHCECOMH 

1 



FD44 

AOCON# 

IHCFCVTH 

1 

FD40 

FIOCS# 

IHCEFIOS 

1 



FE2 8 

IHCERRM 

IHCERRM 

L 

1002C 

SEQDASO 

IHCC0HH2 

1 



lOOBC 

AOCON# 

IHCFCVTH 

1 , 

10DB4 

FIOCS# 

IHCEFIOS 

1 



lODCO 

ARITH# 

IHCEFNTH 

1 

lODEO 

AOJSWTCH 

IHCEFNTH 

1 



lODOC 

IHCUOPT 

IHCUOPT 

1 

100C4 

FC VEOUTP 

IHCFCVTH 

1 



10DC8 

FCVLOUTP 

IHCFCVTH 

1 

lODCC 

FCVIOUTP 

IHCFCVTH 

1 



10000 

FCVCOUTP 

IHCFCVTH 

1 

10004 

FCVAOUTP 

IHCFCVTH 

1 



10DD8 

FCVZOUTP 

IHCFCVTH 

1 

10068 

IHCERRE 

IHCERRM 

1 



10094 

IHCC0MH2 

IHCC0MH2 

1 

10C98 

IHCERRM 

IHCERRM 

!■ 



10D6C 

IHCCQMh2 

IHCC0MH2 

1 

10070 

IHCC0MH2 

IHCC0MH2 

1 



10D74 

IHCC0MH2 

IHCCUMH2 

1 

10 078 

IHCC0MH2 

IHCC0MH2 

1 



11175 

IHCECOMH 

IHCECOMH 

1 

11178 

IHCECOMH 

IHCECOMH 

1 



10F20 

IHCERRM 

IHCERRM 

I 

lOFlC 

IBCOM# 

IHCECOMH 

1 



11395 

IHCECOMH 

IHCECOMH 

1 

113A5 

IHCECOMH 

IHCECOMH 

1 



113B5 

IHCECOMH 

IHCECOMH 

1 

11608 

IBCOM# 

IHCECOMH 

1 



11630 

IHCERRM 

IHCERRM 

1 

1267C 

IBCOM# 

IHCECOMH 

1 



12678 

IHCERRM 

IHCERRM 

1 

12C0C 

IBCOM# 

IHCECOMH 

1 



12C10 

INTSWTCH 

IHCECOMH 

1 

128B8 

INT6SWCH 

IHCFCVTH 

1 



12BB4 

IHCUbPT 

IHCUOPT 

1 

12C18 

AD CON# 

IHCFCVTH 

1 



12C14 

FIOCS# 

IHCEFIOS 

1 

. 12C84 

IHCERRM 

IHCERRM 

1 



12EA8 

IBCOM# 

IHCECOMH 

1 

12EF4 

IHCERRM 

IHCERRM 

1 





LOCATION 

REFERS TO SYflBOL 

IN CONTROL SECTION 

SEG. NO. 

locat ign 

130C4 

IBCOM# 

IHCECOMH 

1 

13008 

1330a 

IHCERRM 

IHCERRM 

1 

1330C 

13FI8 

IHCUATBL 

IHCUATBL 

1 

13F24 

13F39 

IHCF I0S2 

IHCF I0S2 

1 

13F50 

140C1 

IHCFI0S2 

IHCFI0S2 

1 

148BC 

LMCQ 



1 

148C4 

14BC8 

FIOCSBEP 

IHCEFIOS 

1 

15044 

15048 

ADCON# 

ihcfcv'th 

1 

1504C 


ENTRY ADDRESS 
TOTAL LENGTH 


2DF8 

16178 



REFERS TO SYMBOL IN CONTROL SECTION SEG. NO. 


IHCERRM IHCEPRM 3 

IHCFIQS2 IHCFI0S2 3 

IBC OHtf UiOi COHH J 

IHCFI0S2 IHCFIOS2 3 

IHCUOPT IHCUOPT 1 

IHCTRCH IHCETRCH L 

18 COM# IHCeCOMH 1 

FIOCSBEP IHCEFIOS 1 


LEVEL 21.7 ( JA^ 73 ) 


OS/360 FORTRAN H 


DATE 75. lCC/15.23.21 


CC>P1LER CFT ICN S - N AME= PA IN tOPT = C2 » LJNECNT=S4 , SJ_2|^0 COCK , 

S C L P C E f E E C C 1 C r N a I S T , K6 D E C K rC CAC 7 h A P TnC E D I T , 1 0 1 N G ?R E T 



ISN 0002 


SU8RCCTINE AEFC 





COOIOOCO 



MEP8ER 

NAPE BE1A6F0 





CCC2CCC0 



C 

PAGE 1 

INPLT LOO 

CCOl THRU 1 

005C 



CCC3Q0C0 


ISN 0003 


CCPMON 

OPTING 

iHLLINC 

,DYLIND 

,CRG1ND 

(OSkINC 

,0CC4C0CQ 




IFIXIND 

fRCPINC 

fFFFINC 

.ETAIND 

,W0 

fXLEUO 

,0005CCCC 




2xlpLa 

tVGECVH 

tXLGC 

,HPAXD 

,RHCRHO 

,VMC 

,00060000 




2EPLF 

,CKl 

fEELWF 

,CKFF 

, VCIVE 

,HCC 

,0007COCC 




ABCQ 

tTOG 

,CAPH5J 

,SGTINO( 12) rELHLOA 

,ELVLQA 

,00080000 




£GAF2( 6) 






OC0900CO 



c 

PACE 2 

INPUT LCC 

CC51 THRU 

OlOC 



COICOOCO 


ISN OOOA 


CCPKON 

AR 

,vs 

,TCR 

,TCT 

,SLP 

,00110000 




lABFT 

,TCFT 

rVEARH 

tSLMH 

,ARVT 

,TCVT 

,00120000 




2VBARV 

f SLP\T 

,ELCN 

,ELDT 

,£LCOA 

fOLSkSH 

,00130000 




2CSFET 

tCLVLFL 

,CVCL 

rCBYLCA 

,ENB 

,kVA 

,00140000 




ACAPl 

,CAP2 

,£Pfi 

,DAM3 

,CLEYE 

jTHETMR 

,00150000 




£XC 

,XMR 

,TVCPR 

,VT 

fCTSIGH 

,TVk 

,00160000 




6PES 

,TINV 

,ET/P2 

,ETAP4N 

,TEEM5(5) 

,TB8AP4(5) 

,00170000 




7GAP3 






00180000 



c 

PAGE 3 

INPUT LCC 1 

ClCl THRU 140 



C0190CQO 


ISN 0005 


CCPMON 

CAP-i 

,ENF 

,ETAT 

,HC 

,vc 

,00200000 




lATPIY 

tCOVT 

,CCHT 

,0AM5 

,CLTAFE 

jFECPAG 

,00210000 




2EXPDRG 

,000 

,CLALPH 

,CKVT 

,CKHiT 

,CKF 

,00220000 




2CKh 

,RELI 

,TCIN 

,TbCLl(8) 

,TBCDWI(8) 

,GAP4I4» 

00230000 



c 

PAGE 4 

INPUT LCC 141 THRU 2CC 

WEIGHT DATA 


C0240C0O 


ISN 0006 


CCPMQN 

WFE 

,NFLL 

,DELWFC 

,CELWP 

fDELkST 

,00250000 

•jj. 



ISKCC 

,SKRC 

,£KSC 

,SKFW 

,£KTM 

tSKBCA 

,00260000 




2SKSCA 

,SKPC 

,SKAC 

,SKHL 

tSKENVl 

,skenv2 

,00270000 

o 



3SKGBI 

,£KG62 

,'KBLNT 

rSKBAL 

,SKLG 

,SKkk 

,00280000 




AELF 

,PMI 

, JKWP 

,SKHT 

tSKVT 

tSKPBB 

,00290000 




SSKRBF 

fSKPF 

,£KAPD 

tSKAR 

fSKPA 

,SKVTAR 

,00300000 




tSKPOS 

.SKFCSZ 

,£K1 

,SKFS 

f SKPEI 

,SKPES 

,00310000 




7SK1 

tSK2 

,CK3 

,0K4 

,SK5 

,SK£ 

,00320000 




£SK7 

,SK8 

,£K9 

tSKlO 

fSKll 

,SK12 

,00330000 




9SK13 

,SKI4 

,£K1S 

,PLIN 

,GAP5(3) 


0034000C 



c 

PACE 5 

INPUT LOG 201. THRU 3C0 




C035C0C0 


ISN 0007 


CCPKON 

TCLINCISI 

,>TGTA2(5) 

,TlN2(5l 

,THTW('5i 

,PF¥T2(5> 

,00360000 




1DELTH(5) ,STh(S) 

,CR£INC(5J 

,XTGTA4(5) 

,TIN4(5) 

, VIMS) 

,00370000 



• 

2CELR( 5) 

,RPAX(5> 

.CELFCRtS) 

,ENPCR(5) 

,CELWPL(5> 

,STPk(S) 

,00360000 




3PFIN(5J 

,GAP6(10) 





00390000 



c 

PAGE 6 

INPLT LCC 3C1 THRU 4C0 




C04COOCO 


ISN 0008 


CCPHON 

CYCFPL 

,FF 

,SK3 

,SK4 

,TBH1(S) 

,00410000 

/ 



1TET0< 5) 

,T8h2(5) 

,1ECPP15) 

,TeSFC(0) 

,T6P0W{3) 

,G'A'‘PT(60r‘ 

00420000 



c 

WORKING 

COMMON 





00430000 


ISN 0009 


CCPMON 

ALFCES,ALFCL 

,ALFF,APU, 




00440CC0 




I 

eHPA,eHFR,BHFSLF,eHT ,ELP,BR”,BS,&VT 

f 


00450000 




2 CBARF, 

CEARHT.CEAPVT 

,C£ARW,CCP, 

CCT,CDV,CLW 

,CPIND,CPNUO,CPPAR,CPPRCOC460000 




3»CFT0T, 

CP1,CTF,CV ,CX 

fCLCESfCE, 




0047C0CC 




^ CELRTH 

, DELTA, CH, CSPLP.T , ELC, ELHT, ELN, 

ELCA,ELT,ELVT,EN,ETAP, 

0048C00C 




S F£HtFEH,FEHL,FEhT, 

f El ,FETCTjFEVT,FEW,F£WH,FEWl,FM,FP,ETAP4 

004900GC 


ISN OOlO 


COMMON 

GAPD1K3.1S) , 

GLf ,GPDCiU6I,H, 



00500000 


PAGE 002 


ISN 0011 
ISN 0012 


ISN 0013 
ISN 001 4 


I SN 0 015 
ISN 00‘i6 
ISN 0017 
ISN ooia 


IS N 0019 

ISN 0020 
ISN 0021 
ISN_0023 

iSN 002 s' 
ISN 0026 

IJil 002jr. 

ISN 0028 
ISN 0029 

ISN 0031. 

ISN 0632 
^ ISN 0034 

.4 ISN 003_5_ 

M ISN 0036 

ISN 0037 

ISN...0035. 

ISN 0040 
ISN 0041 

isajaohz. 

ISN 0043 
ISN 0044 

.ISy_0045_ 

ISN 0047 
ISN 0048 

^ISN_5049_ 

ISN 0050 
ISN 0051 

ISN 0i)53 

ISN 0054 
ISN 0055 

I.S N_0 OJ^ 

ISN 0058 
ISN 0059 

I SN 6 0 6_0_ 

ISN 00^62 
ISN 0063 
ISN 0064 


LJJ^EUS..JNCCR.U,UCCRG,INCCYL, IADETA,INDFI>, INCt-LIL, INDOPT, INCOSW, 00510CCC 

£ I^OPO^l,^^DPRF,I^CPO^', IPf IM ' “ ' ” 0O52OOCO ' 

CCFMON LTK,NCCFF,ACXP» rCViEfFEKF»PI»QfRHCtREALJjRhPMR,R,RN 0C53CCCC 

&£M9N_JALSAli.§A6»SA7t SFC»SHPA,SHP^,JSHT,SHTE,SJHTW,SIGHA,SSIGMA,ST,005400CO 

lSTFETA,STFAX,SVltSVTE, SV lii.SVf SWEThfSWeXPt’SWnrSWWEf ;S 2 RHC ' ' CC5 5C0C0' 

CCFMON T »IiF,TCEAFtTFEIAtTNAX»TPP,TPRCPrTRtULF»V 6 ASBf VGASRiVHLtV CC56CCC0 

CCfMON,>.j IjBAL fUEALAT .UCC ,ViE , l«EP , WESi.WF, WFC v^'FP ,HFS, WFWi 005 700 CO 

1 WGSB.hFL rWFT » I- LG , In FC t V> PA Y L t kPC, WPDS’» WPE I , KPh , tsPRBV'wPRG , WPRP , ViPSTRCOSSOO CO 
2,I»RC,WRCA fhSCf^SCAfkST tUF *^iVTiWW.WPAYLC,WAC,kENV C05900C0 

, T OVW CO6CC000 

CCFNON DP F »SIGFF r AF* Eh F P I SEE COOCCOGl 

10C2 FCRMAT(22>,34HIH£ EPPCR IS IN THE CL.CDWI TAELE) 0O61COOO 

!!^J'JLXy_AA E P F ktf.E \J r F EH T , F ET D1,SW T7 , C BARF,COV , SAS, CC62CCGC 

1 SA6,SA7,SViNET t S ££ , C LTAFE , FNWRE , FNFRE , FNVRE, FNHrY, 0063 0000 * 

2 FHLREtPEN,REF,REVT,PEHTiR£HL,CKKh,SNETH C064COOO 

!!!ilkL..= tc m * c.i ^ .co 65 caac 

FEN=0.0 ■ 1:C66CC00 

IF <INCCYL.EC.I.CR.INCCYL.EC.3) GO TO 3 C067C0C0 

(_I NChU L • GT • I J GC TC 2 rnARrnno 

REN=RELI*CEARF C069CCCC- 

ARGG=1.CE-C7^REV< Q07C00C0 

FN NRE= I Ijf CjtAL^G LC_( APGGJ/7»0)*’^(~2»6) 00710000 

C C V. I =XU M ( f 8C L 1 , 1 8C0 U I , C MCL , mY 007200 C C 

If (N.NE.C) WRITE (6t 1CC2 ) CCT3COOC 

E.Ek=C K W*C C W 1 oSh’tF N MRE C074C0CC 

IF ( I NCCSk> EO .C ) 6C TC 3 ~ ~ 007500CC 

SEE=0.94-C.C4S’IAB*>»C.68 CC760000 

£C_IQ__3 ^00770000 

2 SW1*ET = C. 0Q78C0C0 

3 IF ( INCCPG.EQ >2 ) GC TC IS GC7900C0 

R.EF=RE.L I*ELCA 008C00C0 

REVT=RELI=»CEARLT "OCSIOOCO " 

REFT=RELI>lCeAPFT C08200CO 

AJR G.Q,= l...CE::iC.7 *JR£F q q a 3 0 0 C 0 

FNFRE=(l.C+ALOGlC(ARGG)/i.0)*=<>{-2,6) 00840000 

ARGG=I .CE-C7«PE\«T 0C85CQCC 

IF.I ARGG » G T« C « I GC TC 17 0085C1CC 

FNVRE=0. C085C2CC 

. GC TO 18 008503C0 

17 F N VRE.= ( 1 ♦C »ALCG 10 (ARGGI/7.0I**(..2.6 1 008600CO 

18 AP GG= 1. CE-0 y^REFT 00870000 

I F (ARGG .GT . C • ) GO TC IS C08701CC 

F.N FRE=0 « ■ ^0087 0200 

GC TO 20 ■ 00870300* 

19 FNFRE=(1.C+ALC61C(ARGG>/7.0)A’»(-2.6) 008800CC 

20 I FdNDHOL.GT.n GC TC 4 00890000 

FEFL = 0-CC287>*CKF*SkETMFNFRE C09COCCC ” 

GC TO 5 009100CO 

___4 IF (INCF Ul. EQ«3) GO TC 16 C091C1CC 

REFL=REL lACEARK ~ ^"C0920000' 

ARGG=1.CE-C7*REFL C09300CC 

FFLRE=tl.C-*ALCG10(ARGG >/7.0M*<-2.6) C0940000 


w 

rf 




“sry 






7;- 12 


_ISN 006 5 
ISN'0066' 
ISN 0068 
JSN 0069 
ISN “007 o' 
ISN 0071 
JSN 0072_ 
fSN“ 0073 
ISN 0074 
ISN 0075 
ISN 0076 
ISN 0077 
i S N 0 078 
“ISN 0080 
ISN 0081 
ISN 0 083 
iSN 008'4 
ISN 0085 
JSN 008^ 
rSN”0687 
ISN 0088 
ISN 0089 
~ISN 0'09C 
ISN 0092 
ISN 0093_ 
ISn" 0094 
ISN 0096 
ISN 0098 
ISN 009' 9 
ISN 0100 
ISN_0101_ 
“iSN '0102 
ISN 0103 


ISN 0106 


ISN 0110 
ISN 01X1 
ISN 0112 
ISN 0113 
I SN 0114 
ISN 0115' 
ISN 0116 


CCVvl = XLINT(T6CLl,TBCCWI,C.,MCL,M> 

If {fi.NE.crWBn'e (6VfCC2) 

FE(-L = CKV>*CD1.I«SV.*FHLP5 
F6h=0.C 

sTe=o'.c 

SUkET=C.C 

S F EVT=CK\>T^CC\l^’^SVT*F^^) FE 
FEHT=CKh7*C'CHT<SHT*FNFF£ 

FETOT=FEHL + FEh-»FEVT+FEFT*CLTAFE 
__6_SV>TT=SWETF+ SWViEUSVTU + 'FTW 
CE/!RF=rFeTCI/SUTI 
CCV=F£TCT/VF'L'S’tC.6 667 
IF (INO hUL.G T.l) €C TO 8 
SA5=FEHL + FEU + F'EH7+DLT3Fl 
IF .<INCCYL.EQ.2.0R,INCCYL.EC.4) GO TO 7 
SA6=0.C 
SA7=0.C 
GC TO 15 

_ 7 SA6=CK^^4F^^iFle 

SA7=l/(P“l«S£E«AP) 

6C TO IS 
8 SA7=0,.C 

IF (■lNCCPG.£C".2 J GO TC S 
SA5=FEVT+FEF7+CLTAFE 

SA6=CKW#FELBE 

IFTIN0HLL‘.EC.3~) SA6 = 0.C 

IF(IN0HUL.EC.31 SA5 = FEFL-»FE\(7+FEHT+DLTAFE 
GC TO 15 

16 PEFL=RE'L I»ELCA 
ARGG=1.0E-C7*BEK 

FFLRE={ 1,C+ALCG1C<ABGG)/1.0H*(-2.6J 

F£'FL=O.CC287*CKF*SWETH‘t‘FFLRE 

FEk=0.0 


ISN 0104 

S£E«0.0 

ISN 0105 

ShUET=C.C 



ISN 0107 

9 CCKI= 


ISN 01C8 

IF (M 


GC TO 5 

9 CCKI=XLIFTITBCll,T8CDkItC*tNTCL,Hl 


IF (M.NE.C) WRI7£(6,10C2l 
CKKW=FEhL/{CDVlxiSfcl 
• SA5=0.C 

SA6=CKKi; 

SA7=0.C 
15 CONTINUE 

return 

ENC 



SIZE OF PPCGRAM Q008BA HEXADECIMAL BYTES PAGE C04 


AERO / 



NAME 

H 

T 

TAG 

1 

C 

c 

TYPE 

RtA 

R«4 

AOC. 

M. R. 

N. R . 

^AWE 

M 

V 

TAG 

FA 

r 

TYPE 

I#4 

ft*4 

ADD. 

oocise 

N.R. 

NAME TAG 

Q C 

W C 

TYPE 

R^A 

R*4 

ADD. 

N« R • 
N*R. 

NAME TAG 

R C 

AF C 

TYPE 

R*4 

R>f4 

ADD. 

N.R., 

N.R. 


AR 

f 

c 

P*4 

OOOCC8 

ER 


c 

R*4 

N.R. 

BS 

C 

R*4 

N.R. 

CB 

C 

R*4 

N • R • 


CV 


c 

R>>4 

N.P. 

CX 


c 

R*4 

N.R. 

DH 

C 

R*4 

N.R. 

EN 

C 

R#4 

N • R • 


FF 


r 

R=t4 

N.R. 

FM 


c 

R’#4 

N.R. 

FP 

C 

R’l'A 

N.R. 

HC 

C_ 

,R>f4_ 

N ♦ R • 


PI 

F 

c 

R*4 ' 

000664 

RN 


c 

R#4 

N.R. 

SA 

c 

R#4 

N.R. 

st 

c 

R*4 

N.R . 


SM 

F ' 

c 

R'JA 

0C08C8 

TR 


c 

R*4 

N.R. 

VC 

c 

R*4 

N.R. 

VT 

C 

R*4 

N.R. 


WE 


r. 

R*4 

N.R. 

WF 


c 

R’I'A 

N.R. 

MO 

c 

R^A 

N.P. 

WS 

c._. 

_R*4 

N ■ R * 


WW 


c 

R>t4 

N.R. 

xc 


c 

R*4 

N.R. 

AMU 

c 

R=i«4 

N.R. 

BHT 

c 

R*4 

N.P . 


BLP 


c 

R^4 

N.P. 

BPR 


c 

R'(‘4 

■N.R. 

BVT 

c 

R'fA 

N.R. 

CCP 

c 

R*4 

N • R • 


CCT 


r 

B'I'A 

N.P. 

CDC 


c 

R>K4 

N.R. 

CDV S 

c 

R*4 

00C688 

CKF F 

c 

R*4_ 

oooibo 


CKW 

F 

c 

R*4 

000104 

CKl 


c 

R*4 

N.R. 

CLW 

c 

R#4 

N.R. 

CRT 

c 

R#4 

M • R • 


CTP 


c 

R*4 

N.R. 

CK3 


c 

R#4 

N.R. 

DK4 

c 

R=«4 

N.R. 

OMR 

c 

R^A 

N • R ■ 


ELC 


r. 

R#4 

N.R. 

ELF 


c 

R*4 

N.R. 

ELN 

c 

R#4 

N.R. 

ELT 

c_ 

R*4_ 

N.R . 


ENP 


c 

B*4 

N.P. 

ENR 


c 

R#4 

N.R. 

FEH 

c 

R’t'A 

N.R. 

FET 

c 

R*4 

N.R. 


FEW 

SF 

c 

R*4 

0007C8 

GLf 


c 

R*4 

N.R. 

HES 

c 

R*4 

N.R. 

HCC 

c 

R*4 

N.R. 


OWE 


r 

R*4 

N.R. 

PEF 

SF 


R*4 

OOOISC 

REW SF 


R*4 

OOC160 

RHO 

c_ 

R*4_ 

N • R • 


RMI 


c 

R>»4 

N.R. 

RCC 


c 

R*4 

N.R . 

SA5 S 

c 

R*4 

000884 

SA6 S 

c 

R*4 

C CG 88 3 


SA7 

S 

c 

R’»4 

00086C 

SEE 

SF 

c 

R#4 

00C9D8 

SFC 

c 

R*4 

N.R. 

SHT F 

c 

R44 

00089C 


SKT 


r 

R«4 

N.R. 

SKI 


c 

R*4 

N.R. 

SK2 

c 

R’S'A 

N.R. 

SK3 

c 

R*4 

N • R * 


SK4 


c 

R>14 

N.P. 

SK5 


c 

Rf'A 

N.R. 

SK6 

c 

R*4 

N.R. 

SK7 

c 

R*4 

N.R. 


SK8 


c 

P>S4 

N.R. 

SK9 


c 

R*4 

N.R. 

SLM 

c 

R*4 

N • R • 

STH 

c 

R*4 

N * R • 


$VT 

F 

£ 

R*4 

0008BC 

TAF 


c 

R*4 

N.R. 

TCR 

c 

R*4 

N.R. 

TCT 

c 

R*4 

N *R • 


TMP 


c 

R*4 

N.R. 

TOO 


c 

R*4 

N.R. 

TVW 

c 

R#4 

N.R. 

ULF 

c 

R*4 

N • R # 


VHL 

F 

c 

R*4 

0009CC 

VIN 


c 

RfA 

N.R. 

VMO 

c 

R*4 

N.R. 

NAC 

c 

R*4 

N.R. 

t 

WCC 



R*4, 

N.R. 

WEP 


c 

R*4 

■N.R. 

WES 

c 

8*4 

N.R. 

MFC 

c 

R*4_. 

N.R. 

{-» 

WFE 


C 

M4 

N.R. 

V»FR 


c 

R*4 

N.R. 

WFS 

c 

R*4 

N.R. 

WFH 

c 

P*4 

N.R. 

CO 

WHL 


c 

R=»4 

N.P. 

RHT 


c 

RX<4 

N.R. 

WLG 

c 

R*4 

N.R. 

WMC 

c 

R*4 

N • R • 


WP£ 


c 

PH4 

N.R. 

hPH 


.c_ 

R*4 

N.R. 

WRC 


R*4 

N.R. 

MSC 

c 

R*4 

N«R « 


WST 


c 

P*4 

N.R. 

kTM 


c 

' R*4 

N.R. 

WVA 

c 

R*4 

N.R. 

WVT 

c 

R*4 

N.R. 


XLB 


c 

B'»4 

N.R. 

XLR 


c 

R*4 

N.R. 

XLW 

c 

R#4 

N.R. 

XMR 

c 

R't'4 

N.R. 


aepcl 



R44 

000164 

ALFR 


_c. 

R44 

JJI.R, 

ARGG SFA 


R#4 _ 

OOC163 

ARFT. 

,c_ 

R*4 

N.R . 


ARVT 


c 

p»4 

N.R. 

EHP A 


c 

R’O-A 

N.R . 

BHPP 

c 

R*4 

N.R. 

BHPR 

c 

R*4 

N ♦ R • 


CDHT 

F 

c 

R*4 

OOOIAC 

CCVT 

F 

c 

R*4 

0001A8 

CDWI SF 


R*4 

00C16C 

CKFF 

c 

R*4 

N • R • 


CKHT 

F 

c 

R<4 

OOOICC 

CKKW 

JF 


R04 . 

00017C 

CKVT F 

c 

R*4 

00C1C3 

CAM! 

c 

R*4 

N.R. 


0AM2 


c 

R»4 

N.R. 

CAMS 


c 

R*4 

N.R. 

CAM4 

c 

R44 

N.R. 

CAMS 

c 

R*4 

N • R • 


DELR 


c 

P»4 

N.R. 

CVOL 


c 

'R*4 

N.R. 

ELDN 

c 

R*4 

N.R. 

ELOT 

c 

R*4 

N.R . 


ELHT 


c 

R-tA 

N.R. 

ELCA 

F 

c 

R*4 

0006D8 

ELVT 

c 

•R*4 

N.R. 

EMLF 

c 

-R*4_. 

N.R. 


ETAP 


c 

P»4 

N.R. 

ETAT 


c 

R#4 

N.R. 

FEH I 

c 

R*4 

N.it. 

FEHL SF 

c 

R*4 

0006F4 


FEHT 

SF 

c 

R>*4 

0006F8 

FEVT 

SF 

c 


000704 

FEWH 

c 

R»'4 

N.R. 

FEW 1 

c 

R«4 

N • R • 


GAPl 


r 

R>»4 . 

N.R. 

GAP2 


c 

R*4 

N.R. 

GAP3 

c 

R*4 

N.R. 

GAP4 

c... 

_ R*4 _ 

N • R • 


GAPS 


c 

R*4 

N.R. 

GAP6 


c 

R*4 

N.R. 

GAP7 

c 

R>*4 

N.R. 

HFIN 

c 

R*4 

N .R • 


1 ThU 


c 

IXr4 

N.R. 

XTCL 

SFA 


I#4 

000174 

PEHF 

c 

R>K4 

N.R. 

PLIN 

c 

R’»4 

N • R * 


REHL 

SF 


P*4 

000178 

FEHT 

SF 


R«4 

00017C 

PELI F 

c 

R*4 

00C108 

REVT SF 



000180 


RMAX 


c 

R*4 

N.R. 

SHPA 


c 

R44 

N.R. 

SHPR 

c 

R#4 

N.R. 

SHTE 

c 

R*4 

N.R. 


SHTW 

F 

c 

R«4 

0CO8A4 

SKAC 


c 

R*4 

N.R. 

SKAR 

c 

R44 

N.R. 

SKCC 

c 

RA4 

N • R • 


SKFS 


r 

R«4 

N.R. 

• SKFW 


r 

R#4 

N.R. 

SKHL 

c 

RA4 

N.R. 

SKHT 

c 

R»4 

N • R • 


SKLG 


c 

R«4 

N.R. 

SKMC 


c 

R*4 

N.R. 

SKPA 

c 

■ R«4 

N.R. 

SKPH 

c 

R*4 

N.R. 


5KRC 


c 

P#4 

N.R. 

SKSC 


c 

R#4 

N.R. 

SKTH • 

c 

R>!‘4 

N.R. 

SKVT 

c 

R*4 

N »R • 




c 

P’>4 

N.R. 

SKkk 


c 

R*4 

N.R. 

SKIO 

c 

R*4 

N.R. 

SKll 

c . 

, R*4 

N • R • 
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SK12 

C 

R«4 

N.R. 

SK13 

C 

R*A 

N.R. 

SKIA 

C 

Ri«A 

N.R. 

SK15 


c 

R*A 

N*R* 


SLMH 

C 

pit A 

N.P. 

STPN 

C 

RX=A 

N.R. 

SVT6 

C 

■■r*A 

‘"N.R. ■■ 

svm 

“F" 

“c’ ■ 

R*A ■ 

ocoecA" 


bw I k 

C 


0008CA 

TBHl 

C 

R*A 

N.R. 

TBH2 

C 

RiCA 

■N'. R . 

TETC 


c 

R*A 

N.R.'- 


TCHT 

C 

R*A 

N.R. 

. TCLN F 

C 

R*A 

OOOICC 

TCVT 

C 

RwA 

N.P, 

TINY 


c 

R^iiA 

N.R . 


TIN2 

c 

RitA 

N.P. 

T INA 

C 

R*A 

"n:r. 

TMAX 

C 

“r*a 

N.P. 

~ TCVW 

• 

"c" 

B»A 

N.R. 


TWIN 

c 

P*A 

N.P. 

NEAL 

C 

R*A 

N.R. 

WENV 

c 

R#A 

N.R. 

kFUL 


c 

R*A 

N.R. 


WGiiB 

c 

R# A 

N.P. 

RPDS 

C 

R*A 

N.R. 

WPEI 

c 

R*A 

N.R. 

kpRB 


c 

B*A 

N.R. 


WPRG 

c 

R*A 

N.R. 

RPRP 

C 

R*A 

N.R. 

WRCA 

c 

■"RitiA 

N.R.“' 

NSCA 


■■‘cr 

R*4 ' 

N.R. 


XL6H 

c 

B*A 

N.R. 

XLGD 

C 

R«A 

N.R. 

XLHL 

c 

R«A 

N.R. 

YLS2 


c 

R*A 

N.R. 


ALFDL 

c 

R<A 

N.R. 

ATPIY 

c 

R*A 

N.R. 

CBARF S 

c 

RitiA 

000670 

CBARVI 

F 

c 

RifiA 

00067C 


CLOES 

c 

RitA 

N.R. 

CLEYE 

c 

R>XA 

N.R. 

CPINb 

c 

■r*a' 

‘N.R.’ 

CPNUD 

— 


■p>»A" 

N.R. 


CPP AR 

c 

RXA 

N.P. 

CFFPC 

c 

R*A 

N.R. 

CPTOT 

c 

R-i-A 

N.R. 

DELTA 


C 

R«A 

N.R. 


CEL TH 

c 

R>1A 

N.R. 

DELNF 

c. 

Ri#A 

N.R. 

DELWP 

c 

R*A 

N.R. 

CSNET 


c 

R>>A 

N.R. 


ELOCA 

c 

RitA 

N.R. 

ENPCR 

c 

R*A 

N.R. 

ETAP2 

c 

R*A 

N.R. 

ETAPA 

— 

c" 

■r*a‘ 

N.R. 


FETOT SF 

c 

Ri*A 

0007CO 

FHLRE SF 


R»A 

00018A 

FNFRE SF 


R*A 

000188 

FNHBE 

SF 


P*A 

0C018C 


FNVRE SF 


P#A 

000190 

FN«RE SF 


R+A 

00019A 

GMDDl 

c 

R*A 

N.P. 

HMAXD 


c 

Ri»A 

N.R. 


I C R U S 

L 

I i»A 

N.R. 

NAERG 



000000 

NOCPP 

c 

I*A” 

N.R. 

NCXPJ 


c 

■l*A' 

N.R. 


PFET2 

c 

R»A 

N.R. 

REALJ 

c 

R*A 

N.R. 

RHPMR 

c 

RiKA 

N.R. 

SIGMA 


c 

R*A 

N.R. 


S I GM R 

c 

R*4 

N.R. 

SKAMC 

c 

R*A 

N.R. 

SKBAL 

c 

Rit'A 

N.R. 

SKGEl 


c 

R*A 

N.R. 


SKGB2 

c 

p’iA 

N.R. 

SKPOS 

c 

R#A 

N.R. 

SKPEI 

c 

RifA 

N.R. 

SKPES 

-- ■ — • 

'c" 

■R*4" 

N.R. 


SKPRB 

c 

R*A 

N.R. 

SKRBF 

c 

R#A 

N.R. 

SKRCA 

c 

R*A 

N.R. 

SKSCA 


c 

R*A 

N.R. 


SLMVT 

c 

P>!>A 

N.P. 

STPAX 

c 

R#A 

N.R. 

SNETH F 

c 

R*A 

00C8CC 

SNEXP 


c 

R*A 

N.R. 


SkViiET SF 

L 

R*A 

0008C8 

S2RHC 

c 

R*?" 

N.R. 

TBCLl FA 

c 

R#A 

O'OCIEO 

TBCPP 


c 

■r*a 

N.R. 


TBEM5 

c 

R<A 

N.R. 

TEPCH 

c 

r*a 

N.R. 

TBSFC 

c 

R*A 

N.R. 

TCBAR 


c 

R*A 

N.R. 


THETA 

c 

Ri» A 

N.P. 

TPFCP 

c 

R«A 

N.R. 

TVCHR 

c 

R*A 

N.R. 

VBARH 


c 

r*a 

N.R. 


VBARV 

L 

Ri*A 

N.R. 

VCIVE 

c 

Rit-A 

N.R, 

VGASB 

c 

R»!A 

"N.R. 

VGASR 


c 

■r*A 

N.R. 


NPAYL 

C 

R*A 

N.R. 

NFSTR 

c 

R*A 

N.R. 

XLALB 

c 

R*A 

N.R. 

XL6N0 


c 

R*A 

N.R. 

iJ 

XL I NT F 

XF 

RitiA 

OOOCCC 

XLRLA 

c 

Rit-A 

N.R. 

FRXPR« 

XF 

R#4 

000000 

ALCGIO 


XF 

R*A 

OGOOOO 

1 

ALFDES 

L 

RitA 

N.R. 

EHFSL'P 

c 

R*A 

N.R. 

CBARHT F 

c 

Rit<A 

C0C67A 

CBARVT 

~F~~ 

c 

■r+a" 

GC0678 

4^ 

CBYLGA 

C 

R#A 

N.R. 

CLALPh 

c 

R*A 

N.R. 

CRSIND 

c 

RiCA 

N.R. 

CTSIGH 


c 

R*A 

N.R. 


CYCPRL 

c 

Ri»A 

N.R. 

CELFCR 

c 

R*4 

N.R. 

CELRTH 

c 

RiXA 

N.R. 

DELWFC 


c 

R*A 

N.R. 


OELWPL 

L 

R*A 

N.P. 

' CELWST 

c 

R*A 

N.R. 

DLSWSH 

c 

R*A 

N.R. 

• DLTAFE' 


■■"C' " 

■r*a‘" 

“0C01S4 


DLVLHL 

C 

P*A 

N.R. 

CRGINC 

c 

R*A 

N.R. 

DSPLMT 

c 

R*A 

N.R. 

DVLIND 


c 

R*A 

N.R. 


E LHLO A 

C 

RtA 

N.R. 

ELVLGA 

c 

R*A 

N.R. 

ETAIND 

c 

R#A 

N.R. 

ETAPAN 


c 

R*A 

N.R. 


EXPORG 

t 

R*A 

N.R. 

FECRAG 

c 

R*A 

N.R. 

FIXING 

c 

r#a' 

n.r: 

GAPDll 


c' 

R*A" 

N.R. 


HLLIND 

C 

R*A 

N.R. 

lECCM# F 

XF 

I*A 

000000 ■ 

INDCRU 

c 

I*A 

N.R. 

INCDRG 


c 

I*A 

00082A 


INOOYL 

c 

I«A 

000828 

INEETA 

c 

I«A 

N.R. 

INDFIX 

c 

I*A 

N.R. 

INCHUL 


c 

I*A 

00083A 


I ADOPT 

L 

I»A 

N.R. 

INCC^U 

c~ 

I*A 

00083C 

INDPOW 

c 

T*A' 

N.R. 

INCPPP 

*■* 

c 

I«A 

N.R. 


INDRDM 

C 

I#A 

N.R. 

IPPINT- 

c 

I*A 

N.R. 

OPTING 

c 

R*A 

N.P. 

QSNINO 


c 

R*A 

N.R. 


PRPINO 

c 

R4A 

N.R. 

PCMNC 

c 

R*A 

N.R. 

RHORHO 

c 

Rit<A 

N.R. 

SGTIND 


c 

R*A 

N.R. 


SKBLNT 

L 

P*A 

N.R. 

SKENVl 

c 

RfA 

N.Ri 

SKENV2 ■ 

c"' 

■r*a‘ 

n;r'. 

SKPDSZ 


c"' 

■r*a” 

N.R. 


SKVTAR 

c 

R*A 

N.R. 

SSIGPA 

c 

RitiA 

N.R. ■ 

STHETA 

c 

R*A 

N.R, 

TBCDNl 

FA 

c 

RifA 

OC0200 


TB8AP4 

^ 

R4A 

N.P. 

TFETMR 

c 

R*A 

N.R. 

TOLIND 

c 

R*A 

N.R. 

VGBOVH 


c 

R#A 

N.R. 


WBALNT 

c 

R*A 

N.R. 

IcFAYLO 

c 

R«A 

N.R. 

XTGTA2 

c 

R^A 

N.R. 

XTGTAA 


c 

R*A 

N.R. 


***** CTpmon information ***** ; 

N A ME C F CCPPCN BLOCK ♦ * STlE CF BLOCK OWfOC F E'SWDtC'l'a AX“'BY T E’S ' 
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W - R - 

HULINC 

PAA 

N.R. 

DYLINO 

RAA 

N.R. 

DRGIND 

RAA 

N.R. 

fj . R . 



OSH uc 
ETAIAD 

R# A 
RAA 
A 

N.R. 
N ♦ P • 

N « P • 

F IXINC 
kC 
XLGC 

RAA 
RAA 
PAA . 

'N.P. 

N. R. 
N.R. 

ROMIND 

XLBWO 

HMAXD 

RAA 

baa 

P*4 

N.P. 

N.R. 

N.R. 

PRP IND 
XLRLA 
^RHORHO 

P*A 

_ RAA _ 

N.R. 
N.R. 
M • R • 



VNC 

CKFF 

Trn 

P«A 
P*A 
P4 A 

N.P. 

N • R • 
N« R* 

eULF 
VCIVE 
G/iP 1 

RAA"“ 

RAA 

PAA 

N.R. 
N.P. 
N. R. 

CKl 

HOO 

SGTIND 

PAA 
RA4 
PAA 

N.R. 

N.R. 

N.R. 

OELViF 

ROO 

ELHLCA .. 

RAA 
RAA _ 

N.R. 

N.R. 



ELVLCA 

TCR 

Tri-T 

■pi A 
P«A 
RA A 

N.P. 

N.P. 

N.P. 

GAFZ 

TCT 

VE4RP 

RAA 

PAA 

PAA 

N.R. 

N.R. 

N.R. 

AR 

SLM 

SLMH 

RAA 

RAA 

_P A A 

0 0 C OC 8 

N.R. 

N.R. 

W o 
ARHT 

arvt_. 

RAA 
R»A 
“ RAA 
raa 
RAA 

K* R« 
M.R* 
N* R + 



TC\.T 
ELCT 
ni u 1 1- ) 

"piA" 

P*A 

raa 

N.P. 
N.P. 
N.P . 

■'veapV 

ELCO/l 

CVCL 

RAA 

PAA 

RAA 

N.R. 

N.R. 

N.R. 

SLMVT 

DLS«SH 

C6YL0A 

pi A 
PAA 
RAA 

N.R. 

N.R. 

N.R. 

DSW6T 

ENP 

N.R. 

N.R.. i 

N.R- 



kVA 

DAI'S 

P*A 

BAA 

N.P. 

N.P. 

N . ® . 

CAP i 
CLEVE 
TVCPP 

Raa 

RAA 

pAA 

N.R. 

N.R. 

N.R. 

CAM2 

THETMR 

VT 

Pa'a 

PAA 

RAA 

N.R. 

N.R* 

N.R. 

XC 

CTSIGH.. 

RAA 

RAA _ 

N.R. 

N.R. 

O Q 
^ a 


T\U 
ETAFAN 
r A h ^ 

RA A 
RAA 
PAA 

N.P. 

N.P. 

N-P- 

FES 

TBEP5 

ENF 

^PAA 

PAA 

PAA 

N.R. 
N. R. 
N.R. 

TINY 

TB8APA 

ETAT 

PAA 
BAA 
RAA _ 

N.R. 

N.R. 

N.R. 

ETAP2 

GAPS 

HC 

RAA 

raa__ 

N.R. 

N.R. 

nrr!> Ar 

MB 


VC 

CAFS 

cc 

~pAA 

PAA 

PAA 

N.P. 

N.P. 

N.P. 

ATPIV 

CLTAFE 

CLALFP 

FAA 

RAA 

RAA 

N.R. 

OCOIBA 

N.R. 

CDVT 

FEDRAG 

CKVT 

BAA 

PAA 

0001A8 

N.R. 

_P001C8 

GGr 1 
EXPDRG 
CKHT . 

RAA 

RAA 

-RAA 

RAA 

R*A _ 

N.R. 

OQQICC 
ft fin 1 nr. 



CHF 
. TBCLl 

PAA 

RAA 

OOOICO 

OOOIEO 

N ■ P • 

CKK 

lECDWl 

CELViFC 

raa 

PAA 

PAA 

OOOlUA 

0C0200 

N.P. 

RELI 

GAPA 

DELWP 

pAA 

PAA 

PAA 

obcios 

N.R. 

N.R. 

ViFE 

DELhST_ 

N.R. 

N.R. 1 



W p LL 

SKCC 

SKTF 

SKAT 

RAA 

PAA 

RAA 

N.P. 

N.P. 

N.P. 

SKRC 

SKRCA 

SKHL 

RAA 

RAA 

RAA 

N.R. 

N.R. 

N.R. 

SKSC 

SKSCA 

SKENVl 

PAA 

PAA 

_RAA_ 

N.R. 

N.R. 

N.R. 

SK FW 
SKNC 
SKENV2 

P#4 

. 

N.P. 

N.R. 

N.R. 


T-15 

SKGBl 

SKLG 

■“pa A 
PAA 

N.P. 

N.P. 

SKGEE 

SKkh 

SKFT 

RAA 

RAA 

RAA 

N.R. 

N.R. 

N.R. 

SKBLNT 

ELF 

SKVT 

BAA 

PAA 

RAA 

N.R. 

N.R. 

N.R. 

RNI 

SKPRB , 

B*A 

R*A 

RAA 

PAA 

RAA.. 

N.R. 

N.R. 



SKREF 
• SKFA 

~p’aA 

PAA 

N.P. 

N.P. 

■ M . D . 

SKPF 
SKVTAR 
SKF S 

RAA 

RAA 

pAA 

N.P. 

N.P. 

N.R. 

SKAHD 

SKPDS 

SKPEI 

pAA 

RAA 

pAA 

N.R. 

N.R. 

.N.R* 

S K A R 
SKPOSZ 
SKPES 

N.R. 

N.R. 



SKI 

SK5 

PAA 
PAA 
P A A 

N.P. 

N.P. 

N. R • 

SK2 

SK6 

SKIC 

RAA 

RAA 

RAA 

N.R. 

N.P. 

N.R- 

OKS 

SK7 

SKll 

ra’a 

BAA 

N.R. 

N.R. 

N.R. 

OKA 

SK8 

SK12 

R*A 

RAA 

b*a' 

raa 

RAA 

N.R. 

N.R. 

P, 



s r 

SK13 

GAPS 

PAA 

RAA 

N.P. 

N.P. 

M . C 

SKIA 

TCLINC 

PFET2 

RAA 

RAA 

RAA 

N.R. 

N.R. 

N.R. 

SKIS 

XTGTA2 

OELTH 

RAA 

PAA 

PAA 

N.R. 

N.R. 

N.R. 

PL IN 
TIN2 
,STH, 

N.R. 

N.R. 



T H 1 Vi 
CPSIAO 
DELP 

RAA 

RAA 

N.P. 
N. P . 

XTCTAA 

PPA> 

STFV 

RAA 

RAA 

RAA 

N.P. 

N.R. 

N.R. 

TINA 

DELFCR 

HFIN 

PAA 

RAA 

PAA 

N.R. 
N.R. 
N • R • 

V IN 
ENPCR 
GAP6. 

K*A 
R*A 
R.aa_ 

N.R. 

N.R. 



DcL w r L 

cycppL 

TBH 

' ra'a 

PAA 

PAA 

N.P. 

N.P. 

N -R . 

FF 

TETC 

TBPCK 

PAA 

PAA 

RAA 

N.P. 

N.P. 

N.P. 

SK3 
TilH2 
GAP 7 

RAA 

RAA 

PAA_ 

N.K. 

N.R. 

N'.R. 

SKA 

TBCRP 

ALFDES 

R*4 



N.R. 

N.R. 



i U j 1 «-« 

ALFCL 

BHFB 

RAA 

PAA 

N.P. 

N.P. 

N.P. 

ALFP 
EHFStf 
e £ 

RAA 

RAA 

■ raa 

N.R. 

N.R. 

N.R. 

AMU 

BHT 

BVT 

r'aa 

BAA 

RAA 

N.R. 

N.R. 

N.R. 

8LP 

CBARF 

PAA 
RAA„ 

N.R. 

000670 



K K 

CEAPFl 

CCT 

CFALC 

PAA 

RAA 

RAA 

00067A 

N.P. 

N.R. 

CBAPVl 

COV 

CPPAR 

p'aa" 

p»A 

R'AA 

000678 

000688 

N.R. 

CBARW 

CLW 

CPPRQ 

PAA 

RAA 

RAA 

00067C 

N.R. 

N.R. 

CCP 

CPIND 

CPTOT 

RAA 

raa 

RAA 

N.R. 

N.R. 



■PAG£"C07 



CFT 

R.#'^ 

N.R. 

CTF 

R*4 

N.R. 

CV 

R*4 

N.R. 

ex 

R*4 

N.R. 


CLCES 

R#^ 

N.P. 

CE 

R*4 

N.R. 

DELRTH 

R#4 

, N.R. 

DELTA 

R*4 

N.R. 


CH 

R>M( 

N.R. 

CSFLM 

P*4 

N.R. 

GLC 

R*4 

N.R. 

ELhT 

P*4 

N.R. 


6LN 

• 

N.R. 

ELQA 

P*4 

000603 

ELT 

R*4 

N.R. 

ELVT 

R*4 

N.R. 



fi’HA 

N.R. 

ETAF 

P*4 

N.R. 

FEH 

R*4 

N.R. 

FEHI 

R*4 

N.R. 


FEhL 

R*4 

0006F4 

FEH7 

P*4 

0006F8 

FET 

R*4 

N.R. 

. FETCT 

P*4 

0C07O0 


FEVT 

R=!'4 

0007C4 

FEV> 

P*4 

000703 

FEWH 

R*4 

N.R. 

FEUI 

R*4 

N.R. 


ft* 

F#4 

N.R. 

FF 

P*4 

N.R. 

ETAP4 

R*4 

N.R. 

GAMDU 

R*4 

N.R. 


GLF 

R«-ii 

N.R. 

GNOCl 

R*4 

N.R. 

H 

R*4 

N.R. 

ICRUS 

1*4 

N.R. 


INDCRL 


N.R. 

INDCRG 

1*4 

000824 

INDDYL 

1*4 

000828 

INDETA 

1*4 

N.R. 


INOFIX 

I*A 

N.R. 

INDhUL 

1*4 

000834 

iNDOPT 

i'#4. 

N.R. 

INDQSM 

1*4 

0D'083C 


INDFCiN 


N.R. 

INDPRF 

1*4 

N.R. 

INDRDM 

1*4 

N.R. 

IPRINT 

1*4 

N.R. 


LTK 

1*4 

N.R. 

NCCPf 

1*4 

N.R. 

NOXPJ 

1*4 

N.R. 

ONE 

R*4 

N.R. 


P EF F 

R*4 

N.R. 

F I 

R*4 

0C0864 

Q 

P*4 

N.R. 

RMO 

R*4 

N.R. 


REALJ 

P*4 

N.R. 

RHFPP 

R*4 

N.R. 

R 

R*4 

N.R. 

RN 

R*4 

N.R. 


SA 

F*4 

N.R. 

SAS 

B*4 

000884 

SA6 

P*4 

00C888 

SA7 

R*4 

000880 


SFC 

R>*4 

N.R. 

SHPA 

R*4 

N.R'. 

SHPR 

P*4 

■■n.'r."~“ 

SHt* 

R*4 

0C089C 


SHE 

P*4 

N.R. 

SFTP 

R*4 

0008A4 

SIGMA 

P*4 

N.R. 

SSIGPA 

R*4 

N.R. 


ST 

R*4 

N.P. 

STHETA 

R*4 

N.R. 

STMAX 

R*4 

N.R. 

SVT 

R*4 

000860 


SV7E 

R*4 

N.R. 

SVTh 

R*4 

OC08C4 

SW 

R*4 

OC08C8 

SMETH 

R*4 

000800 


SViE>P 

R*4 

N.R. 

SPT7 

R*4 

0008D4 

SWWET 

R*4 

OOC8D6 

S2RH0 

R*4 

N.R. 


T 

R*4 

N.R. 

TAF 

R*4 

N.R. 

TC8AR 

R*4 

N.R. 

THETA 

P*4 

N.R. 


TRAX 

R*4 

N.R. 

TPP 

P*4 

N.R. 

TPROP 

R'*4 

N.R. 

TR 

R*4"' ' 

N.R. 


ILF 

P*4 

N.P. 

VGASE 

P*4 

N.R. 

VGASR 

R*4 

N.R. 

VHL 

R*4 

0C090C 


V 

R*4 

N.R. 

V 

R*4 

N.R. 

UBAL 

R*4 

N.R. 

MBALNT 

R*4 

N.R. 


kCC 

R*4 

N.P. 

hE 

R*4 

N.R. 

WEP 

R*4 

"N.R. 

UES 

R*4 

N.R. 

Nj 

FF 

R*4 

N.R. 

kFC 

R*4 

N.R. 

WFR 

R*4 

N.R. 

HFS 

R*4 

N.R. 

1 

kFW 

R*4 

N.R. 

kC-SE 

R*4 

N.R. 

WHL 

R*4 

N.R. 

KhT 

R*4 

N.R. 

H 

h LG 

R*4 

N.R. 

KPC 

R*4 

N.R. 

•WPAYL 


N.R. 

kPC 

R*4 

N.R. 


hPCS 

R*4 

N.P. 

WPEI 

P»4 

N.R. 

WPH 

R*4 

N.R. 

WPRB 

R*4 

N.R. 


WPRG 

P*4 

N.P. 

PPP F 

R*4 

N.R. 

WPSTR 

R*4 

N.R. 

MRC 

R*4 

N.R. 


WRCA 

Rv4 

N.R. 

use 

R*4 

N.R. 

use A 

P“*4 

N.R. 

WST 

" ^R*4 

N.R. 


KTM 

P*4 

N.R. 

uu 

R*4 

N.R. 

MM 

R*4 

N.R. 

WPAYLO 

R*4 

N.R. 


hAC 

R*4 

N.R. 

UENV 

R*4 

N.R. 

XULB 

R*4 

N.R. 

XLB 

R*4 

N.R. 


XLEh 

R*4 

N.P. 

XlhL 

R*4 

N.R. 

XUR 

R*TT“ 

N.R. 

JClM 

R#4 

i^.R. 


YLS2 

R*4 

N.R. 

TCVU 

R*4 

N.R. 

DMR 

R*4 

N.R. 

SIGMR 

R*4 

N.R. 


AF 

R*4 

N.R. 

BHFF 

R*4 

N.R. 

SEE 

R*4 

00C9D8 





LABEL 

2 

ACCB 

0CC4A6 

L^BEL 

'a 

ACOR 

CC04AE 

LABEL 

17 

A DDR 
0C0542 

LABEL AOOR 

18 00057A 

PAGE 008 

19 

CCC59E 

2C 

CCC5CC 

4 

CC05F0 

S 000698 


6 

CCC60e NR 

T 

CCCT5C 

8 

CC0776 

16 0007D2 


9 

CCC63E 

15 

CCC8S6 






*CfTIONS IN EFFECT# NAME= K A IN ,CPT=C2, LIN ECNT=54, S IZE=COCOK i 

? TiONr'lN EFFECT# ^OURCE ,EBCCIC t NCLIST ,NO'DTcTr7LaAD,MAP ,N0T61 t7I0^^ E F 

#STATISTICS* SOURCE STATEMENTS = IIS .PPOGRAW SIZE s 2234 

#STATI STICS# NC CIACNCSTICS GENIEFATEC 


♦ A####: END CF CCPPILATICN ###4#'* 


99K BYTES OF CORE NOT USED 




LEVEL 21.7 ( JAN 73 ) 


OS/360 FORTRAN H 


DATE 75.127/20.11.58 


COMPILER OPTIONS - NAME= MA IN ,0PT=02 . L I N£CNT= 54, S I2E=0000K , 

SOURCE, EBCDIC, NOLI ST , NODECK,LOAD,MAP,NOEDIT, IO,NOXREF 




C 

. ENTRY MAIN CASCOMP 





00010000 



C##** MEMBER 

NAME B81 AMAIN 





CCC20000 



C 

PAGE 1 

INPUT LOC 

0001 THRU 

00 50 



00C300OO 


ISN 0002 


COMMON 

OPTIND 

,HULIND 

.DYLINO 

, DRGIND 

,OSWIND 

.OOC40000 




IFIXIND 

, RDM! NO 

,PRPIND 

, ETAIND 

• WO 

, XLBWO 

,00050000 




2XLRLA 

.VGBQVH 

,XLGD 

,HMAXD 

, RHORHO 

, VMO 

,00050000 




3EMLF 

,CK1 

,DELWF 

,CKFF 

, VDIVE 

,H00 

,00070000 




4ROO 

,T00 

,GAP1(5) 

,SGTIND(12) 

,ELHLOA 

, ELVLOA 

,00030000 




5GAP2I6) 






OCC90000 



C 

PAGE 2 

INPUT LOC 

0051 THRU 

0100 



ooiooooo 


ISN ,0003 


C OMMGN 

AR 

,ws 

,TCR 

, TCT 

,SLM 

,00110000 




1ARH7 

,TCHT 

,VBARH 

, SLMH 

, ARVT 

, TCVT 

,00120000 




2V8ARV 

tSLMVr 

,ELON 

,ELOT 

, ELDOA 

.DLSKSH 

,00130000 




30SUET 

.DLVLHL 

,OVOL 

tCBYLOA 

, ENR 

,WVA 

,00140000 




4DAM1 

,DAM2 

,BMR 

,DAM3 

,CLEYE 

.THETMR 

,00150000 




5XC 

,XHR 

,TVCMR 

fVT 

,CTSIGH 

,TVW 

, C0160000 




6HES 

iTINY 

,ETAP2 

,ETAP4N 

,TBEM5(5) 

,T88AP4<5) 

, C0170000 




7GAP3 






C0180000 



C 

PAGE 3 

INPUT LOC 0101 THRU 140 



00190000 


ISN 0004 


C OMMON 

0 AM4 

,ENP 

,ETAT 

,HC 

,vc 

,00200000 




lATMIY 

,CDVT 

,CDHT 

,0AM5 

, OLTAFE 

iFEORAG 

,00210000 




2EXPDRG 

,COC 

,CLALPH 

,CKVT 

, CKHT 

,CKF 

, CC220000 




3CKW 

,RELI 

,TCLN 

,TBCLIt8) 

, TBC0WK8) 

,GAP4(4 ) 

00230000 



c 

PAGE 4. 

INPUT LOC 141 

THRU 200 

WEIGHT DATA 



00240000 


ISN 0005 


COMMON 

WFE 

,WFUL 

,DELWFC 

, DELWP 

,OELWST 

, 00250000 




ISKCC 

,SKRC 

,SKSC 

,SKFW 

, SKTM 

jSKRCA 

,00260000 

■vl 



2SKSCA 

,SKMC 

,SKAC 

,SKHL 

,SKENVl 

,SKENV2 

,00270000 

H 



3SKGB1 

,SKGB2 

,SKBLNT 

,SKBAL 

tSKLG 

,SKWW 

,00280000 

OD 



4ELF 

,RMI 

,SKWP 

, SKHT 

, SKVT 

.SKPRB 

,00290000 




5SKRBF 

,SKPH 

,SKAMD 

,SKAR 

, SKPA 

,SKVTAR 

, 00300000 




6SKPDS 

tSKPOSZ 

,SKT 

,SKFS 

, SKPEI 

fSKPES 

,00310000 




7SKI 

,SK2 

,DK3 

,0K4 

, SK5 

,SK6 

,00320000 




8SK7 

,SK8 

,SK9 

fSKlO 

,SK11 

rSK12 

,00330000 




9SK13 

,SK14 

,SK15 

,PLIN 

,GAP5(3) 


00340000 



c 

PAGE 5 

INPUT LOC 201 THRU 300 




00350000 


ISN 0006 


COMMON 

T0LIND15) 

,XTGTA2I 5» 

,TIN2(5) 

, TWTWISI 

,PFET2(5) 

, OC360000 




1DELTH(5) ,STH(5) 

,CRSIND(5) 

,XTGTA4(5) 

, TIN4(5> 

, VIN{5» 

,00370000 




2DELR(5) 

,RMAX(5) 

,DELFCR(5J 

,ENPCR(5) 

, CELWPL(5) 

,STPH(5 ) 

,00360000 




3HFIN(5) 

,GAP6<10) 





00390000 



c 

PAGE 6 

INPUT LOC 301 THRU 400 




CC400000 


ISN 0007 


COMMON 

CYCPRL 

,FF 

,SK3 

, SK4 

,TBH1(5) 

,00410000 




ITBTOIS) 

,TBH2I5J • 

,T.BCRPI 5) 

,TBSFC(81 

, TBP0W(8) 

,GAP7I60) 

00420000 



c 

WORKING 

COMMON 





00430000 


ISN 0008 


COMMON 

alfdes,alfol. 

ALFR.AMU, 




00440000 




1 

BHPA , BHPR , BHPSUP , BHT , BLP , BR , BS , 8VT, 



00450000 




2 CBARF, 

C8ARHT,C8ARVT, 

CBARH.CCP, 

CCT.CDV.CLW, 

CP1N0,CPNUC 

, CPPAR,CPPRQQ0460000 




3,CPT0T, 

CRT,CTP,CV,CX, 

CLDES.CB, 




00470000 




4 DELRTH 

, DELTA, OH, DSPLMT, ELC, ELHT , ELN.ELOA, ELT, ELVT , EN ,ETAP, 

00480000 




5 FEHtFEHI ,FEHL,FEHT ,FET ,F£TOT ,FEVT, FEW,FEWH 

, FEWI,FM,FP 

,ETAP4 

00490000 


ISM 0009 


COMMON 

GAMD11(3,15),GLF,GMDD1(16),H, 



' 00500000 





7 ICRUS, INDCRU, INODKG , IMDOYL, INDETA, I NOF I X , I N DHUL f IN DOET , I NOGS W, 

00510000 




8 INDPOW, i'nDPRP, INOROM, IPRINT 

00520000 


ISN 

0010 

COMMON LTHL,NOCPP,NUXPJ, OWE, PEHF, PI , 0, RHO, RE ALJ , RHP>:R,R,RN 

00530000 


ISM 

0011 

COMMON SA,SA5,SA6,SA7,SFC,SHPA,SHPR ,SHT,SHTE , SHTW, S I GMA , S'S I GMA , ST 

,00540000 




ISTHETA. STMAX ,SVT, SVTE , S VTW , S W , SWE TH , S WEXP , SW TT, SWWET ,S2 RHO 

00550000 


ISN 

0012 

COMMON T.TAF ,TCSAR, THETA , TMAX , TMP , T PROP , TR , U LF, VG AS 8, VGAS R , VHL , V 

0C560O00 


ISN 

0013 

COMMON W,W6AL,WBALNT,WCC,WE,WEP,WES,WF,WFC,WFR,WFS,KFW, 

00570000 




1 WGS6,WHL,WHT,WLG,WMC,WPAYL , WPC , W PO S , WPE I , WP H, WPR B, WPRG , WPRP , WPST ROC 580000 




2,WRC,WRCA,WSC,WSCA, hST, WTM , WVT, WW , WPAYLO, WAC ,WENV 

00590000 


ISN 

0014 

COMMON XLAL8,XLB,XLBH,XLHL,XLR,XLW, YLSZjTOVW 

00600000 


ISN 

0015 

COMMON DMKiSIGMR, AF,BHPP,SEE 

C0600001 


ISN 

0016 

COMMON /ODD/ AO 1 3 , 15) ,A 1 ( 3, 15 ) , A2( 3 , 15 ) ,BBO( 16) ,B81{16) ,882116), 

C06000IO 




1 RJ3(10),CPOW3(iO ),ETAI3{10,10),RJ4(10),CP0W4(10) , 

C0600020 




2 ETAI4( 10,10) ,AMACH{3) , CLLL I 1 5 ) , CLGAM { 16 ) , CP0W33 ( 20 ) , 

00600030 




3 CTI3120),CTI4(20) 

CC600040 


ISN 

0017 

DIMENSION DATAU) 

00600100 


ISN 

0018 

EQUIVALENCE (OATA( 1 ) ,OPTIND) 

00610000 




INITIALIZE DATA 

0,0620000 


ISN 

0019 

DO 1 1=1,400 

00630000 


ISN 

0020 

1 DATA! I) = 0. 

00640000 


ISN 

0021 

DO 2 1=179,193 

00650000 


ISN 

0022 

2 DATAU) = 1. 

Oa'660000 


ISN 

0023 

PI = 3.14159 

00670000 

"S'S 

ISN 

0024 

DATAIIU = I. 

00680000 


ISN 

0025 

DATA! 13) = 1. 

00690000 


ISN 

0026 

DATAU6) = 1. 

00700000 


ISN 

0027 

0ATAU8) = 1. 

00710000 

ISN 

0028 

DATAU 19) = 1, 

00720000 


ISN 

0029 

DATA(21) = 1. 

00730000 


ISN 

0030 

DATA! 109) = 1. , 

00740000 

H ^ 

ISN 

0031 

0ATAU61) = 1. 

00750000 


ISN 

0032 

3 CALL LOADER (DATA,1) 

00 760000 


ISN 

0033 

INDOPT=OPTINO+O.l 

00770000 

53 

ISN 

0034 

INUhUL=HULIND+0.l 

00780000 


ISN 

0035 

IND0YL=DYLIND+0.1 

CC7900Q0 


ISN 

0036 

INDDRG=DRGIND+0.1 

OC800000 


ISN 

0037 

INDCSW=0SWrND+0.1 

ooeioooo 


ISN 

0038 

INDFIX=F1XIND+0.1 

00820000 


ISN 

0039 

INORUH=ROniND+O.I 

00830000 


ISN 

0040 

INDPRP=PRPIND+0.1 

00840000 


ISN 

0041 

IN0ETA=ETAIND+0.1 

CC850000 


ISN 

0042 

HRAYL=PLIN 

00850100 


ISN 

0043 

DMR=DAM1 

00850200 


ISN 

0044 

SIGMR=DAM2 

00850300 


ISM 

0 045 

AF=DAM3 

00850400 


ISN 

0046 

6HPP=0AM4 

00850500 


ISN 

0047 

SEE=0AM5 

00850600 


I SN 

0048 

IF( INDDYL.GT.2)Gb TO 4 

CC860000 


ISN 

0050 

IF( INDETA. EU.O)GO TO 4 

00870000 


ISN 

0052 

DO 69 1=1,16 

00880000 , 


ISN 

0053 

GMDDim = BBOU) + CLEYE^^CBBiU) + CLEYE * BB2 ( I ) ) 

.00890000 


ISN 

0054 

S9 CONTINUE 

CC900000 




PAGE 003 


ISN 0055 
ISN 0056 
rSN 0057 
tSN 0058 
ISN 0059 
ISN 0060 
ISN 0062 
ISN 0064 
ISN 0065 
ISN 0066 
ISN 0067 
ISN 0068 
ISN 0069 
ISN 0070 
ISN 0071 
ISN 0072 
ISN 007^ 
ISN 0075 
ISN 0076 

ISN 0078 


>4 

1 

to 

o 


ISN 0079 

ISN ooai 

ISN 0032 
ISN 0084 


ISN 0035 
ISN 0087 
ISN 0088 
ISN 0090 
ISN 0091 


DO 77 J = 1,3 
00 78 K = 1, 15 

GAMDIKJ.K) = A0(J,KJ + CLEYE * ( A1(J,K) + CL6YE * A2IJ,Kn. 

78 CONTINUE 
77 CONTINUE 

4 IF( INDOPT.EQ.O) GO TO 5 
IF( INDOPT.EQ.l) RETURN 
GO TO 6 

5 CALL SIZTR 
CALL AERO 
CALL ENGS2 
IPRINT=0 
CALL PRFRH 
CALL WGHTR 
WRITE(6,2015) 

IF( INDHUL.EQ.1)WRITE(6,2003) 

2003 FORMATaOXf* HULIND = 1 CONVENTIONAL HULL'//) 

2015 FORMAniHl.lOX,'*** DIMENSIONAL DATA',//) 

IF( IN0HUL.EQ.1}WRITE(6,2001)W0,DSPLMT,EL0A,ELN,ELT,DH,VHL,VGA$R, 
1ETH,CV,C8 

2001 FORMATllOX,' GROSS WEIGHT = ',F10.0,' POUNDS'// 


lOX,'*** HULL'/ 

20X,' DISPLACEMENT* , 12X , ' DS PLMT ' , 3X,F1 0,0, 4X, 


pounds '/ 


20X,* LENGTH! OVERALL) ' ,9X,' ELOA* , 9X,F7 .1 ,3X, ' FEET '/ 

20X,' LENGTH(NUSE) ' , I2X ,? EL N' , 11 X , F7 . 1 , 3X , ' FE ET * / 

20X, ' LENGTH! TAIL) • ,12X,'ELT' , 1 1 X , F7. 1 ,3X , • FE ET' / 

20X,' DIAMETER', 16X,'DH', 12X,F7, 1 ,3X, 'FE ET* / 

20X,* VOLUME! HULL)' ,12X,'VHL* ,5X ,F12.0 ,4X, 'CUBIC FEET'/ 
20X,' VOLUME! GAS) ' , 12X, ' VSASR* , 2X,F12.0, 4X, • CUBl C FEET'/ 
20X, 'WETTED AREA* , 1 3X, * SF *, 6X,F U. 0, 4X, » SQUARE FEET'/ 


20X,' PRISMATIC 
20X,' CENTER OF 


COEFFICIENT 

BUOYANCV 

4 4= 


CV ,15X, F6.2, 
CB* ,14X,F6.1, 


4 4 4 4 4 4 4 


1 
2 

3 

4 

5 

6 

7 

8 
9 
A 
8 

C lOX,' 4444 

04 4 4 4 4 4 4 4 '/) 

IF! IN0DYL.EQ.1.OR.IN0DYL.EQ.3 ) GO TO 2222 
ALFDD=ALF0ES*57.29S7795 

IF! INOHUL. EQ. 1 ) WRITE! 6, 2002 )AR, SW,6S ,CB ARW , S LH, CLOES.ALFDO 
2002 FORMAT !1 OX,'*** WING'/ 

1 20X, 'ASPECT RATIO* ,I2X ,' AR* ,14X,F6.2/ 

2 20X, 'AREA* ,20X, 'SW' ,11X,F8. 1,3X, 'SQUARE FEET'/ 

3 20X,* SPAN' ,20X,'BW' , 1 2 X , P 6 ♦ 2 , 2 X...'J,E EX. < / 

4 20X, 'MEAN CHORD', 14X,'CBARW',10X,F7. 2,' FEET'/ 

5 20X, 'TAPER RATIO* ,13X i * LAMBDA ', 12X,F6. 3/ 

6 20X, 'DESIGN LIFT COEFFICI ENT • , 2X, 'CL CES* , 12X,F6. 3/ 

7 20X, 'DESIGN ANGLE OF ATTACK* ,3X,*ALF0ES' ,11X,F6. 3, ' DEG 
80X,'* 44444444444444444*4 4444444444 
94 4 4 4 ' /) 

2222 IF! INDHUL.EQ,2) WRI TE ( 6 , 2004) 

2004 FORMAT! 10X,*HULIN0 = 2 LIFTING HULL'//) 

IF !1NDHUL.EQ.3) WRITE !6, 2019) 

2019 FORMATllOX, 'HUL I NO = 3 LIFTING HULL lELLIPTICAL PL ANFORH) '// ) 
IF IINDHUL.EQ.4) WRITE!6,2020 )■ 


C0910000 
00920000 
CO 930000 
C0930100 
CC9400QO 
00950000 
00960000 
00970000 
C098000Q 
00990000 
OICOOOOO 
OICIOOOO 
01020000 
01C30000 
01030100 
C1C40000 
01 050000 
OIC70000 
SW01C80000 
01C90000 
01 LOOOOO 
OlllOOOO 
01 120000 
01 130000 
01140000 
01 150000 
01160000 
01170000 
01 180000 
01190000 
01200000 
C1210000 
C1220000 
01230000 
01240000 
01240100 
01250000 
01260000 
01270000 
01230000 
01290000 
01300000 
01310000 
01320000 
/101320100 
4 01320200 
01320300 
01330000 
01340000 
01340100 
0134020 0 
01340300 



-21 


PAGE 004 


ISN 0093 
ISN 0094 

ISN. 0096 . . 


ISM 0097 
ISN 0090 


ISN 0099 
ISN 0100 


ISN 0101 
ISN 0103 , 


ISN 0104 
ISN 0106 


2020 FORMATIIOX,' HULINO = 4 LIFTING HULL (CIRCULAR PUNFORM)'//! 01340900 

IF( INDHUL.GT. IJ W RI TE (6 , 2005 ) WD , D SPLMT t ELOA , TMAX , AR , BS , TC R , SLM, VHLO I 350000 


1, VGASR,SW,SWETH,CLDESf ALFDD,CB 


C1360000 


2005 fORMATI lOX, ' GROSS WEIGHT = • f FI 0 . 0 1 2 X , ' POUNDS ' // 1 OX, * *** HULL'/ 01370000 


1 

20X, 

•01 SPLACEMEN T 

DSPLMT' , 

2X,F10.0,6X,' 

PCUNDS* 

/ 

01380000 

2 

2CX, 

•LENGTHIOVERALL) 

ELOA ' , 

6x,F7.i ,5-x:;' 

FEET •-/ 


Cl 390000 

3 

20X, 

•MAXIMUM THICKNESS 

TMAX ' , 

7X,F6.1 ,5X,' 

FEET V 


01400000 

4 

20X, 

•ASPECT RATIO 

AR • , 

8X,F6.2/ 



01410000 

5 

20X, 

•SPAN 

8S ' , 

6X,F7.1 ,5X,‘ 

FEET •/ 


C1420000 

6 

20X, 

'THICKNESS/CHORD 

TCR ' , 

9X,F6.3/ 



01430000 

7 

20X, 

•TAPER RATIO 

LAMBDA', 

9X,F6.3/ 



C1440000 

8 

20X, 

♦ VOLUME (HULL) 

VHL • , 

F12.0,6X,' 

CUBIC 

FEET'/ 

01450000 

9 

20X, 

•VOLUME (GAS) 

VGASR ', 

F 12.0,6X,« 

CUBIC 

FEET'/ 

01460000 

A 

20X, 

♦PLANFQRM AREA 

SW • , 

lX,Fll-0, 6X,» 

SQUARE 

FEET'/ 

01470000 

B 

20X, 

•WETTED AREA 

SWETH • , 

lX,Fli.0,6X,' 

SQUARE 

FEET'/ 

01480000 

C 20X, 

•DESIGN LIFT COEFF IC lENT • , IX 

, 'CLDES* ,2X ,F6 

.3/ 


01490000 

D 

20X, 

•DESIGN ANGLE OF ATTACK* ,2X, 

•ALFDES',IX,F6 

.3,' DEG'/ 

01 500000 

E 

20X, 

•CENTER OF BUOYANCY 

CB • , 

7X,F6.1 ,5X,' 

FEET'/IOX,' # 

# # *01501000 

F 

♦ 

########## 

# # # * 

* # :4t :(c # # ;)( 

:0( ^ ^ 4 

« # # # 

#•/) 01502000 


WRITE (6,2006 )ARHT ,SHT ,BHT , CBARHT , SLMH 
2006 FORMATUOX,' HORIZONTAL TAIL'/ 

I 20X, 'ASPECT RATIO' »12X,'ARHT',12X, 


20X,' SHT* , iOX, 
20X,'SHT', IIX, 
14X, 'CBARHT', 9X, 
13X,'SLMH', 13X, 


F6.2/ 

F8.1,3X, 'SQUARE FEET'/ 
F8.2,2X,'FEET'/ 
F7.2,2X,'FEET'/ 
F6.3/10X,'* 


2 20X,'AKEA', 

3 20X, 'SPAN', 

4 20X,'MEAN CHORD* , 

5 20X, 'TAPER RATIO' , 

*****^**** **********'// i 

WRITE(6,2007)ARVT,SVT,BVT,CBAftVT, SLMVT 
2007 FORMAT! 1 OX, **>!=* VERTICAL TAIL'/ 

1 20X, 'ASPECT RATIO* ,12X,'ARVT ', 12X, 

2 20X,'AREA’, 20X,'SVT', lOX, 

3 20X,*SPAN«, 20X,'BVT', IIX, 

4 20X, 'MEAN CHORD* , 14X , • CBARVT • , 9X, 


F6.2/ 

F8. 1, 3X, 'SQUARE FEET'/ 
F8.2,2X,*FEST*/ 
F7.2,2X,'FEET •/ 


5 20X, 'TAPER RATIO', 13X, 'SLMVT', 13X, F6.3/10X,'* 

5:(e ^ ^ * #*'//) 

IF( INDDYL.LE.2)WRITE(6,2008)DMR, AF, SIGMRjENR ,DMR, VT 

2008 FORMAT! lOX, ' =*'#* PROPELLERS - DYLIND = 1 OR 2*// 

1 20X, *01 AMETER' , 21X,'DMR*, 5X ,F7. 2,3X, • FEET * / 

20X, 'ACTIVITY FACTOR' PER BLADE', 4X,*AF' , 5X,F6.0/ 

20X, 'SOLIDITY* , 21X,'SIGMR* ,5X,F6.3/ 

20X,'NO. OF PROPELLERS', 12X,'ENR', 6X.F4.0/ 

20X,'NO. OF BLADES PER PROP', 7X,'BMR', 

20X,*TIP SPEED', 20X,'VT* , 

lOX,' 

# « 4 «*//) 

IF( INDDYL.GT .2 ) WR IT E ( 6, 2009 1 OMR, S IGMR, WVA ,ENR ,BMR, VT 

2009 FORMATl lOX,' ROTOR(S) - DYLIND = 3 OR 4'// 


2 

3 

4 

5 

6 

7 

8 


01510000 

01520000 

01530000 

01.540000 

01550000 

01560000 

01570000 

C1580000 

01590000 

01600000 

01610000 

01620000 

01630000 

01640000 

01650000 

C1660000 

01670000 

01680000 

C1690000 

oncoboo 

01710000 

01720000 

01730000 

01740000 


1 20X, 'DIAMETER* , 

2 20X, 'SOLIDITY' , 

3 20X,'DISC LOADING* , 

4/20X,'N0. OF ROTORS', 

5 20X,»N0. OF BLADES PER ROTORS 


6X,F4.0/ 

5X,F6. 0,5X, ' FT/SEC'/ 

#01750000 
01760000 
01 770000 

oneoooo 

01790000 

oiaooooo 


21X,'DMR', 5X,F7.2,3X,' FEET'/ 

21X, ' SIGMR* ,5X,F6. 3/ 

17X,*WVA* , 5X,F6.1,4X, 'LB/SQ.FT *01810000 

UX.'ENR', 6X,F4.0/ 01820000 

6X,'8MR', 6X,F4.0/ . . _ . 01830000 
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PAGE 005 


6 20X,'TIP SPfcEO't 

7 lOXf' 

8 * * >)i lit «•//) 

ISN 0107 , WftITt(6,2010) GLF , EHLF , ULF 

ISN 0108 2010 FORMAT! IHl, lOX, HEIGHTS DATA 

2 20X,»GUST LOAD FACTOR 

1 20X, ‘MANEUVER LOAD FACTOR 

3 20X, ‘ULTIMATE LOAD FACTOR 


20X,* VT‘ , 

Kt <t i(t * <t # 


5X,F6.0,5X,‘ FT/SE'C*/ 

#-l(tlj!«>lC*##«l>f 


IN L8S‘/ 

GIF *,15X,F7.3/ 
ENLF' , 14X,F7.3/ 
ULF ' tl5X,F7.3//) 


01240000 

*01650000 

01860000 

0187'0000 

01880000 

01890000 

CISOOOOO 

01910000 


ISN 

0109 

WPRBO 

== SKI * 

WPRB 

C1920000 

ISN 

0110 

WPHO 

= SK2 * 

WPH 

01930000 

ISN 

OUl 

WPRPO 

= DK3 * 

WPRP 

C1940000 

ISN 

0112 

WPOSO 

= DK4 * 

WPDS 

C1950000 

ISN 

0113 

WEPO 

= SK5 * 

WEP 

01960000 

ISN 

0114 

WHLG 

= SK6 * 

WHL 

Cl 970000 

ISN 

0115 

WENVO 

= SK6 * 

WENV 

C1980000 

ISN 

0116 

HHLT = WHLO + 

WENVO 

01990000 

ISN 

0117 

MGSBO 

= SK7 * 

WGS3 

02 COOOOO 

ISN 

0118 

WHO 

= SK8 * 

WW 

02CIOOOO 

ISN 

0119 

WHTO 

= SK9 * 

WHT 

02020000 

ISN 

0120 

WVTO 

= SKIO* 

WVT 

02030000 

ISN 

0121 

WLGO 

= SKll* 

WLG 

02040000 

ISN 

0122 

WRCO 

= SK12* 

WRC 

02 05 0000 

ISN 

0123 

WSCO 

= SK13* 

WSC 

02C60000 

ISN 

0124 

WFWO 

= SK14* 

WFW 

02070000 

ISN 

0125 

WPCO 

= SK15* 

WPC 

C2C80000 

ISN 

012to 

WPFC = 

: WCC«-WRCO+WSCO+HFWO+WTM+WPCO+WBAL+WMC<-WAC 

02C90000 

ISN 

0127 

WFC = 

^ WPFC + 

OELWFC 

02100000 

ISN 

0128 

, . . WPL=HPAYL 


02100100 

ISN 

0129 

WRITE{6,2011 JWPRG, WPRBO, WPHO, WPRPO, WPDSO, WEPO, WPE I 

,WFS,DELWP,WPSTR02 110000 

ISN 

0130 

2011 F0RMATI15X,' PROPULSION GROUP'// 

02120000 


1 20X, ‘TOTAL MAIN ROTOR GROUP WPRG SFIO.O/ 02130000 

2 20X,‘ MAIN RUTOR BLADE • ,17X SK1*HPR8 15X, FI 0.0/ 02140000 

3 20X, ‘ MAIN ROTOR HUB' .19X, • SK2*WPH' . 16X, FIO.O/ 02150000 

4 20X,‘ PROPELLER GROUP' t 18X, • DK3*WPRP' , 8X, FIO .0/ 02160000 

5 20X,‘6rIVE- SYSTEM', 22X, ' DK4*HPDS* , 3X, FIO.O/ ‘ ' 02170000 

6 20X, 'ENGINES', 27X, ‘SK5*WEP* ,9X, FIO.O/ C2180000 

7 20X, 'ENGINE INST ALLATIQN' ,15X, 'WPE I' , 12X, FIO.O/ 02190000 

8 20X,'FUEL SYSTEM',23X, ‘NFS' ,13X, FIO.O/ C2200000 

9 20X, 'PROPULSION GROUP WEIGHT INCREMENT OELWP* ,IIX, FIO.O/ 02210000 

A 18X,'* TOTAL PROPULSION GROUP WEIGHT WPS T K‘ ,3 IX ,F 10 .0/ / ) 02220000 

ISN 0131 WRITE(6,2012)HHLT,WHLO,WENVO,HGSBO,W6ALNT,WWG,WHTO,WVTO,WLGO,WES, 02230000 

1 DELWST,WST C2240000 

ISN 0132 2012 FORMATIISX, • STRUCTURES GROUP'// 02250000 

1 20X, 'TOTAL HULL STRUCTURE WE IGHT ' , 24X , FIO . 0 / C2260000 

B SOX, 'HULL STRUCTURE' ,20X,'SK6*WHL* ,17X, FIO.O/ 02270000 

C 30X, 'HULL ENVELOPE t SK IN) ' , 14X , ' SK6* W ENV* , 1 6X, F 10 . 0/ 02280000 

2 20X,'GAS CELLS', 25X., '* SK7*WGSB' ,7X ,F10 .0/ 02290000 

3 20X, 'BALLONETS* , 25X, 'WBALNT' ,9X, FIO.O/ 02300000 

4 20X, 'WING' ,30X, 'SK8*WW' ,9X, FIO.O/ 02310000 

5 20X,' HORIZONTAL TAIL',19X, • SK9 *WHT', 8X, FIO.O/ C2320000 

6 20X, 'VERTICAL TAIL',19X, 'SK10*WVT', 8X, FIO.O/ 02330000' 

GEAR',19X, 'SKll*WLG', 6X, FIO.O/ 02340000 


-7 20X, 'LANDING 



ISN 0133 
£SN 0134 


ISM 0135 
ISN 0136 


ISN 0137 
ISN 0138 
ISN 0139 
ISN 0140 


ISN 0141 


ISN 0142 
ISN 0143 


ISN 0144 
ISN 0145 


8 20Xt*ENGIME SECTION' »19X, ’WES* 

9 20X,' STRUCTURES WEIGHT I NCREMENT • , 7X , ' DELW S T ‘ 
A 18X, TOTAL STRUCTURE WEIGHT' t 12X,'WST>, 


1 ,WFC 

2013 FORMAT (15X,' FLIGHT 


CONTROLS C 7 ROUP'// 


20X, 'PRIMARY 
26X, 'COCKPIT 
26Xf 'AIRSHIP 
26X,’ ROTOR 


FLIGHT CONTROLS', llX,'WPFC',12Xt 
CONTROLS' ,16X, 'WCC ,17X, 
CONTROLS' ,16X, 'WAC ' ,17X,F10.0/ 
CONTROLS' ,16X, •SKIZ’fWRC* ,13X, 


26X, 'ROTOR 
26X, 'FIXED 


SYSTEMS 

WING 


CONTROLS' ,11X, ' SK13*WSC 
CONTROLS’ ,I1X, 'SK14*WFW* 


,13X, 

,13X, 


26X, 'TILT MECHANISM' , 1 8X , « WTH' , 1 8 X , 

26X, 'PROPELLER CONTROLS' , 1 IX , • SK 15 *WPC ' , 13X , 

26X, 'BALLAST', 26X,’WBAL' ,16X, 

26X, 'MISCELLANEOUS CONTROLS' ,11X, 'WMC ,18X, 

20X, 'CONTROL WEIGHT INCH EMEN T • , 1 OX , ' DELNFC ' , lOX , 


18X,'# TOTAL CONTROL W E I GHT ' ,14X , ' WFC • ,33X , 
WRITE<6,2014)WFE,WE,WFUL>0WE ,WPL,WFR,WO 
2014 FQRMATdOX,'* WEIGHT OF FIXED EQU I PMENT • , 9X , *WFE • , 
1 laX,'# WEIGHT EMPTY' ,22X, 'WE', 

,2 . 18X,'# FIXED USEFUL L0AD»,17X, 'WFUL' 

3 18X, OPERATING WEIGHT EMPTY', 12X, 'OWE', 

4 18X, '* PAYLOAD' , 23X, »WPL', 

5 18X, •>1' FUEL* ,30X, *WFR', 

6 : 16X,'*** GROSS WEIGHT' ,22X, 

710X,' !tf*^*^-t**if:*«**#* 


84 ^ 

CALL ATMOSIHC, 
«RITE(6,2016) 
WRITE (6,2022) 


>)t ***** * 


* * * * 

ATMI Y) 

CYCPRL,ENP, BHPP 
VC,HC,TMP 


* * * 
*>//i 


•WO* : 
* * < 


13X, FIO.O/ 

G2350000 

lOX, FIO.O/ 

02360000 

33X, FIO.O//) 

023.70000 

WBAL,WMC,D£LWFC 

02380000 

02390000 

02400000 

FIO.O/ 

02A100QO 

FIO.O/ 

02A20000 

02430000 

FIO.O/ . 

02A4Q000 

FIO.O/ 

02950000 

FIO.O/ 

02960000 

FIO.O/ 

02970000 

FIO.O/ 

02930000 

FIO.O/ 

02990000 

FIO.O/ 

02500000 

F 10.0/ 

02510000 

FIO-O/ ) 

02520000 

02530000 

33X,FLO.O/ 

02590000 

34X, FIO.O/ 

02550000 

,32X, FIO.O/ 

C2S60000 

33X, FIO.O/ 

02570000 

33X, FIO.O/ 

02 580000 

33X,F 10.0// 

02590000 

34X, FIO.O/ 

02600000 

******** 

02610000 


2016 FORMAT! lOX,' *** PROPULSION DATA'// 

1 20X,» PROPULSION CYCLE NUMBER * ,29X, FIO. 3, 5X, 'WAS EMPLOYED'// 

2 20X, 'TOTAL POWER FOR' , 2X , F5. 0,2X , • ENG INE (S ) , ( BHP ♦ J',6X,F10,0, 

3 2X, 'HORSEPOWER' // ) 

2022 FORMAT(20X,' ENGINE(S) SIZED FOR CRUISE AT VC« ', 2X, F6.1 , IX, • KNOTS, 
I /20X,'HC=',2X,F6.0,1X,'FT, T EMPE RATURE=* , 2X ,F5 . L, IX, • DEG F.'/lOX 
2 ' ******************************* 
3* *********** *•/) 

WRITE(6,2017)FETO T, SWTT ,CBARF ,COV 

2017 FORMAT { IHO, lOX, '**=» AERODYNAMICS DATA'// 

I 20X, 'TOTAL EFFECTIVE FLAT PLATE' AR EA * , 7X , • F E * , I IX , FIO . 1 , 7X , • SQ .F 
2' /20X, • TOTAL WETTED ARE A' , 20X , ■ SWET ' ,9X,F 10. I, 7X, • SQ.FT* / 

3 20X-,'MEAN SKIN FRICTION COEFFIC lENT ' , 7X, 'CBARF, • ,14X,F9.6/ 

4 20X,»DRAG COEFFICIENT BASED ON VOLUME ', 5X, • CDV 14X,Fll. 6//) 
WRITE(6,2018)FEW,FEHL,FEVT,F£HT,DLTAFE,SEE 

2018 FORMAT! 1 OX, "i*** DRAG BREAKDOWN'/ 

1 20X,'WING FE',29X, '.FEW', lOX, FIO. 1,7X,' SQ.FT'/ 

2 20X,«HULL FE.' ,29X, 'FEH' , lOX, FLO. 1,7X, ' SQ.FT'/ 

3 20X, 'VERTICAL TAIL FE * , 19X , ' F£ VT • , 9X , F 10 . 1,7X , ' S Q.FT * / 

4 20X, 'HORIZONTAL TAIL FE 19X,' FEHT ', 9X,F 10. 1,7X, • SQ.FT' / 

5 20X,' INCREMENTAL PE' , 19X ,' DELTA FE' , 5X, FIO. I, 7X, • SQ. FT'/ 


02620000 
02620100 
02630000 
02630100 
02640000 
02650000 
02660000 
02670000 
•02680000 
,02680100 
*02680200 
02680300 
02690000 
02700000 
TC2710000 
02720000 
02 73 0000 
02740000 
02750000 
C2760000 
02770000 
02780000 
02790000 
02800000 
'’■>810000 
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, o ,7X, 'WING LIFT EFFI Cl ENCY FAC TOR ' , lOX , ‘E ' , 18X ,F7.4/ lOX, 02620000 

' 11 C2830000 

3# « « « « « :(( #'# # # # *»//) 02 840000 



ISN 

0140 


SPRO= WPL^VC/WE 

02640100 


ISN 

0 147 


WRITE16,2024JSPR0 

02840200 


ISN 

0140 

2024 

FnkNAT(20Xf 'SPECIFIC PRODUCTIVITY =', 2 X , F7. 2 , IX TON-KNOTS/TON' ) 

02840300 


ISN 

0149 


IPRINT=I 

02850000 


ISN 

0150 


CALL PRFRM 

02860000 


ISN 

0151 


GO TO 3 

02870000 


ISN 

0152 

6 

SA5 = DLTAFE 

C2680000 


ISN 

0153 


IFIIND0YL.EU.2.QR.INDDYL.EQ.4) GO TO 7 

02390000 


ISN 

0155 


GO TO a 

C2900000 


ISN 

0l5to 

7 

SA6 = CKW 

C2910000 


ISN 

0157 


SW = WO/WS 

02920000 


ISN 

0 158 


IF! INOHUL.EQ.DGO TO 9 

02930000 


ISN 

OloO 


GO TO 8 

C2940000 


ISN 

0 161 

9 

CALL ATMOSIHC.ATMIY) 

02950000 


ISN 

0162 


0 = 1,42636 * RHO * VC « VC 

02960000 


ISN 

0163 


ALFDES = (1. - XLRLA)’*=U. - XLBWO )=CW0/ (Q # SW » CLALPH) 

02970000 


ISN 

0164 


VHULL = XLBWO «< WD/IRHORHO *VGB0VH#(0. 076474 - XLGD J ) 

02980000 


ISN 

0165 


DENCM = PI (0.25=<"ELD0A-EL0N/12. - ELDT*7./60, ) *( 1 ,+DLVLHL ) 

02990000 


ISN 

0166 


DH = I (VHULL-DVQL)/OENOMJ**Il,/3. ) 

03000000 


ISN 

0167 


ELOA = ELDOA * DH 

03CIOOOO 


ISN 

01o8 

8 

IPRINT=1 

C3C20000 


ISN 

0169 


CALL PRFRM 

03,030000 


ISN 

0170 


GO TO ,3 

03C40000 

-J 

1 

ISN 

0171 


END 

03060000 

•to 








MAIN / 



t 

NJ 

Ui 


A«E 

TAG 

TYPE 

AOD- 

H 


C 

R*A 

N. R. 

Q 

SF 

c 

R>i=A 

000868 

'w 


c 

R*A 

N.R. 

Al 

F 

c 

R'i'A 

OOOOBA 

C6 

F 

c 

RAA 

000688 

EN 


c 

R*A 

M.R. 

HC 

SFA 

c 

R=S=A 

00019C 

ST 


c 

R«A 

M.R. 

VT 

F 

c 

R*A 

0001<t8 

WS 

F 

c 

R*A 

OOOOCC 

PRO 

F 

c 

R’i'A 

00021C 

QLP 


c 

R#A 

M.R. 

CCT 


c 

RAA 

M.R. 

CKW 

f 

c 

R#A 

OOOLDA 

CTP 


c 

RAA 

N-R. 

ELC 


c 

R*A 

N- R. 

EiMP 

F 

c 

R*A 

00019A 

FE^J 

F 

c 

RAA 

000708 

OWE 

F 

c 

RAA 

00085C 

RMI 


c 

R»»A 

N.R. 

SA7 


c 

R«>A 

N.R. 

SKT 


C. 

RAA 

N.R. 

SKA 


c 

R’i'A 

N.R. 

SK8 

F 

c 

R*A 

0002FO 

SVT 

F 

c 

R=S'A 

0008BC 

TMP 

F 

c 

RAA 

0008FA 

VHL 

F 

c 

R*A 

00090C 

V.CC 

F 

c 

R*A 

000920 

WFE 

F 

c 

R*A 

000230 

WHL 

F 

c 

R«A 

0009A3 

WPC 

F 

c 

R«A 

0009 5C 

WSC 

F 

c 

R*A 

00093A 

WVT 

F 

c 

R#4 

000994 

XLW 


c 

R*A 

N.R.' 

ARHT 

F 

c 

ROA 

OOOODC 

3HPR 


c 

R*A 

N.R. 

CKHT 


c 

R«A 

N.R. 

CTIA 


c 

R*A 

N.R. 

0 AM A 

F 

c 

R*A 

000190 

DVOL 

F 

c 

R«A 

000114 

ELOA 

SF 

c 

R#A 

0006D8 

ETAT 


c 

R*A 

N.R. 

FEVT 

c 

c 

R*A 

000704 

GAP2 


c 

R<=A 

N.R. 

GAP6 


c 

R*A 

N.R. 

PEHF 


c 

R=fA 

N.R. 

SHPA 


c 

R^A 

N.R. 

SKAC 


c 

R*A 

N.R. 

SKFW 


c 

R«A 

N.R. 

SKMC 


c 

R*A 

N.R. 


NAME 

TAG 

TYPE 

ADD. 

I 

SF 


1*4 

001708 

R 


C 

R*4 

N.R. 

AF 

SF 

C 

R#4 

000900 

A2 

F 

c 

R*4 

000168 

CV 

F 

c 

R*4 

0006AC 

FF 


c 

R*4 

N.R. 

PI 

SF 

c 

R*4 

000864 

SW 

SF 

c 

R*4 

0008C8 

WE 

F 

c 

R*4 

000924 

ww 

F 

c 

R*4 

000998 

BBL 

F 

c 

R*4 

00025C 

AMR 

F 

c 

R*4 

00012C 

CDC 


c 

R*4 

N.R. 

CKl 


c 

R*4 

N.R. 

DK3 

F 

c 

R*4 

0002DC 

ELF 


c 

R#A 

N.R. 

ENR 

F 

c 

R*4 

OOOllC 

GLF 

F 

c 

R*4 

000704 

RHO 

F 

c 

R*4 

00086C 

ROD 


c 

R*4 

N.R. 

SEE 

SF 

c 

R*4 

0009D8 

SKI 

F 

c 

R*4 

0002D4 

SK5 

F 

c 

R*4 

0002E4 

SK9 

F 

c 

R*4 

0002F4 

TAF 


c 

R*4 

N.R. 

TOO 


c 

R*4 

N.R. 

VIN 


c 

R*4 

N.R. 

WEP 

F . 

c 

R*4 

000928 

WFR 

F 

c 

R^A 

000938 

WHT 

F 

c 

R*4 

00094C 

WPH 

F 

c 

R*4 

000968 

WST 

F 

c 

R*4 

00098C 

WWO 

SF 


R*4 

0017E8 

XMR 


c 

R*4 

N.R. 

ARVT 

F 

c 

R*4 

OOOOEC 

CDHT 


c 

R*4 

N.R. 

■ CKVT 


,c 

R*4 

N.R. 

OAMl 

F 

c 

R#4 

000124 

DAMS 

F 

c 

R*4 

OOOIBO 

EL DN 

F 

c 

R*4 

OOOOFC 

ELVT 


c 

R*4 

N.R. 

FEHI 


c 

R*4 

N.R. 

FEWH 


c 

R*4 

N.R. 

GAP3 


c 

R*4 

N.R. 

GAP7 


c 

R*4 

N.R. 

PLIN 

F 

c 

R*4 

000310 

SHPR 


c 

R*4 

N.R. 

SKAR 


c 

R*4 

N.R. 

SKHL 


c 

R*4 

N.R. 

SKPA 


c 

RA4 

N.R. 


SIZE OF PROGRAM 00239E HEXADECIMAL BYTES PAGE 008 


NAME 

TAG 

TYPE 

ADO. 

NAME 

TAG 

TYPE 

ADC. 

J 

SF 


1*4 

OOITDC 

K 

SF 


1*4 

0017E0 

T 


C 

R*4 

N.R, 

V 


C 

R*4 

N.R. 

AR 

F 

C 

R*4 

OOOOC8 

AO 

F 

C 

R*4 

OOOOOO 

BR 


C 

R*4 

N.R, 

BS 

F 

C 

R*4 

000668 

CX 


c 

R*4 

N.R. 

DH 

SF 

C 

R*4 

0006C4 

FM 


c 

R*4 

N.R. 

FP 


C 

R*4 

N. R. 

PN 


c 

R*4 

M.R. 

SA 


C 

R*4 

N.R. 

TR 


c 

R*4 

N.R. 

VC 

F 

C 

R*4 

0001 AO 

WF 


c 

R*4 

N.R. 

WO 

F 

C 

R*4 

000024 

xc 


c 

R*4 

N.R. 

AMU 


C 

R*4 

N.R. 

BB2 

F 

c 

R*4 

00029C 

BHT 

F 

C 

R*4 

00065C 

8VT 

F 

c 

R*4 

00066C 

CCP 


C 

R*4 

M.R. 

CDV 

F 

c 

R*4 , 

000688 

CKF 


C 

P,*4 

N.R. 

CLW 


c 

R*4 

N.R. 

CRT 


c 

R*4 

N.R. 

0K4 

F 

c 

R*4 

00O2E0 

OMR 

SF 

c 

R*4 

0009C3 

ELM 

F 

c 

R*4 - 

0C06O4 

ELT 

F 

c 

R*4 

0006 DC 

FEH 


c 

R*4 

N.R. 

FET 


c 

R*4 

N. R. 

HES 


c 

R*4 

N.R. 

HOO 


c 

R*4 

N. R. 

RJ3 


c 

R*4 

N.R. 

RJA 


c 

R*4 

N.R. 

SA5 

S 

c 

R*4 

000884 

SA6 

S 

c 

R*4 

000838 

SFC 


c 

R*4 

N.R. 

SHT 

F 

c 

P.*4 

00089C 

SK2 

F 

c 

R*4 

0002D8 

SK3 


c 

R*4 

N.R. 

SK6 

F 

c 

R*4 

0C02E8 

SKT 

F 

c 

R*4 

0002EC 

SLM 

F 

c' 

R*4 

OOOOD8 

STH 


c 

R*4 

N.R. 

TCR 

F 

c 

R*4 

OCOODO 

TCT 


c 

R*4 

N.R. 

TVW 


c 

R*4 

N.R. 

ULF 

F 

c 

R*4 

000900 

VMD 


c 

R*A 

N.R. 

WAC 

F 

c 

R*4 

0009AO 

WES 

F 

c 

R#4 

00092C 

WFC 

SF 

c 

R*4 

000934 

WFS 

F 

c 

R*4 

0DO93C 

WFW 

F 

c 

R*4 

000940 

WLG 

F 

c 

R*4 

0C0950 

WMC 

F 

c 

R*4 

000954 

WPL 

SF 


R*4 

0C17E4 

WRC 

F 

c 

R*4 

00097C 

WTM 

P 

c 

R*4 

OC0990. 

WVA 

f , 

— .c 

,R*4 

000120 

XLB 


c 

R*4 

N.R. 

XLR 


c 

R*4 

N. R. 

AERO 

SF 

XF 

R*4 

000000 

ALFR 


c 

R*4 

N.R. 

BHPA 


c 

R*4 

N.R. 

BHPP 

SF 

. c 

R*4 

0009D4 

CDVT 


c 

R*4 

NiK. 

CKFF 


c 

R*4 

N.R. 

CLLL 


c 

R*4 

N.R. 

CT 13 


c 

R*4 

N.R. 

D4M2 

F 

c 

R*4 

000128 

DAM3 

F 

c 

R*4 . 

000130 

DATA 

SFA 

CE 

R#4 

COOOOO 

OELR 


c 

R*4 

N.R, 

ELOT 

F 

c 

R*4 

OCOlOO 

ELHT 


c 

R*4 

N.R. 

EHLF 

F 

c 

R*4 

0C0044 

ETAP 


c 

R*4 

N.R. 

FEhL 

F 

c 

R*4 

0D06F4 

FEHT 

F 

c 

R*4 

0006F8 

FEWI 


c 

R*4 

N.R. 

GAPl 


c 

R*4 

N.R. 

GAP4 


c 

R*4 . 

N.R. 

GAPS 


c 

R*4 

N. R. 

HF IN 


c 

R*4 

N.R. 

LTHL 


c 

1*4 

N.R. 

RELI 


c 

R#4 

N.R. 

RMAX 


c 

R*4 

N.R. 

SHTE 


c 

R«4 

N.R, 

SHTW 


c 

R*4 

N. R. 

SKCC 


c 

R*4 

N.R, 

SKFS 


c 

R*4 

N.R. 

SKHT 


c 

R*4 

N.R* 

SKLG 


c 

R*4 

N. R. 

SKPH 


c 

R*4 

N.R. 

SKRC 


c 

„ ^*^4 . 

N.R. 



SKSC 


C 

R<'h 

N.R. 

SKTM 


C 

R*4 

N. R. 

SKVT 


C 

R*4 

N.R. 

SKWP . 

C 

R*4 

N.R. 

SKWVJ 


C 

R=»=A- 

N.R. 

SKIO 

F 

C 

R*4 

0002F8 

SKll 

F 

C 

R*4 

0002FC 

SK12 F 

C 

R*4 

000300 

SK13 

F 

C 

R*A 

000304 

SK14 

F 

C 

R*4 

000306 

SK13 

F 

C 

R*4 

‘CC030C 

SLMH F 

C 

R*4 

OOOOE3 

SHRO 

SF 


R*<V 

0017EC 

STPW 


c 

K*4 

N.R. 

SVTE 


c 

ft*4 

‘ N.R. 

SVTW 

C 

R*4 

N.R. 

SV.TT 

F 

C 

R=«=4 

000804 

TBHl 


c 

R*4 

N.R. 

T8H2 


C 

R*4 

N.R. 

TBTO 

C 

R*4 

N.R. 

TCHT 


C 


N.R. 

TCLN 


c 

R*4 

N.R. 

TCVT 


c 

R*4 

N.R. 

TINY 

C 

P.*4 

N.R. 

T IN2 


C 

R#A 

N.R. 

TIN4 


c 

R*4 

N.R. 

TMAX 

F 

c 

R*4 

0C08F0 

TOVW 

C 

R*4 

N.R. 

ThTW 


C 

R=*=A- 

N.R. 

MBAL 

F 

c 

R*4 

000918 

H6NV 

F 

c 

R*4 

OC09A4 

NEPQ SF 


R*4 

0017F0 

WFUL 

F 

C 


000234 

WFWO 

SF 


R*4 

0017F4 

WGS3 

F 

c 

R*4 

0C0944 

WHLO SF 


R*4 

0017F8 

WHLT 

SF 


R=!‘A 

0017FC 

WHTO 

SF 


R*4 

001800 

WLGC 

SF 


R*4 

CC1304 

WPCO SF 


R*4 

001308 

WPOS 

F 

c 

R*4 

0009o0 

WPEI 

F 

c 

R*4 

000964 

WPFC 

SF 


R*4 

0C180C 

WPHO SF 


R*4 

'ooi’aio ■ 

WPKB 

F 

c 

R*A 

00096C 

WPRG 

F 

c 

R*4 

000970 

WPRP 

F 

c 

R*4 

000974 

HRCA 

C 

R*4 

N.R. 

WRCO 

SF 



001314 

WSCA 


c 

R*4 

N.R. 

WSCO 

SF 


R*4 

0£1813 

WVTO SF 


R*4 

00181C 

XU3H 


c 

R«=4 

N.R. 

XLGD 

F 

c 

R*4 

000034 

XLHL 


c 

R*4 

N.R. 

YLS2 

C 

R*4 

N.R. 

ALFDD 

SF 


R*4 

001820 

AUFDL 


c 

R*4 

N.R. 

AMACH 


c 

R*4 

N.R. 

ATMIY SFA 

C 

R*4 

0001A4 

ATHUS 

SF 

XF 

R*4 

000000 

CBARF 

F 

c 

R*4 

000670 

CBARW 

F 

c 

R*4 

00067C 

CLDES F 

C 

R*4 

0006 B4 . 

■CLEYE 

F 

■ c 

R*4 

000134 

CUGAM 


c 

R*4 

N.R, 

CPLND 


c 

R*4- 

N.R. 

CPNUO 

c 

R*4 

N. k. 

CPUW3 


c 

R’f'4 

N.R. 

CP0W4 


c 

R*4 

N.R. 

CPP AR 


c 

R*4 

N.R. 

CPPRO 

c 

R*4 

N.R. 

CPrcT 


. c 

R*4 

N.R. 

•DELTA 


c 

R*4 

N.R. 

OELTH 


■ c 

R*4 

N.R. 

DELWF 

, c 

R*4 

N.R, 

OELWP 

’ F 

c 

R*:^' 

00023C 

OENOM 

SF 


R*4 

001824 

DSWET 


c 

R*4 

N.R. 

ELDOA F 

c 

R*4 

000104 

EMGSZ 

SF 

XF 

R«>4 

OOOOOO 

ENPCR 


c 

R»4 

N.R. 

ETA 13 


c 

R*4 

N.R. 

ETAI4 

c 

R*4 

N.R. 

ETAP2 


C 

R*4 

N.R. 

ETAP4 


c 

R*4 

N.R. 

FETOT 

F 

c 

R*4 

000700 

GHDDl S 

c 

R*4 

0007D8 

HMAXD 


c 

R^-4 

N.R. 

I CRUS 


c 

1*4 

N.R. 

NOCPP 


c 

1*4 

N.R. 

NDXPJ 

c 

1*4 

N.R. 

PFET2 


c 

R^4 

N.R. 

PRFRM 

SF 

XF 

R«4 

OOOOOO 

REALJ 


c 

R*4 

N.R. 

RHi>MR 

c 

R*4. 

N. R. 

SIGMA 


c 

R*<t 

N.R. 

SIGMR 

SF 

c 

R*4 

0009CC 

SIZTR 

SF 

XF 

R*4 

OOOOOO 

SKAHO 

c 

R*4 

N.R. 

SK0AL 


c 

R>!'4 

N.R. 

SKGBl 


c 

R*4 

N.R. 

SKGB2 


c 

R*4 

N.R. 

SKPDS 

c 

R*4 

N.R. 

SKPEI 


c 

R04 

N.R. 

SKPES 


c 

R*4 

N.R. 

SKPR3 


c 

R*4 

N.R. 

SKRBF 

c 

R*4 

N.R. 

SKKCA 


c 

R^4 

N.R. 

SKSCA 


c 

R*4 

N.R. 

SLMVT 

F_ 

c 

R*4 

OOOOF8 

STMAX 

c 

R*4 

N.R. 

SWETH 

F 

c 

R*4 

0008CC 

SWEXP 


c 

R*4 

N.R. 

SWWET 


■ c 

R*4 

N.R. 

S2RH0 

""c 

R*4 

N.R. 

TBCLl 


c 

R*4 

N.R, 

TBCRP 


c 

R*4 

N.R. 

TBEM5 


c 

R*4 

N.R. 

TBPOW 

c 

R*4 

N.R. 

T&SFC 


c 

R*4 

N.R. 

TCBAR 


c 

R*4 

N.R. 

THETA 


c 

R*4 

N.R. 

tprop 

c 

R*4 

N.R. 

TV CUR 


c 

R#4 

N.R. 

VBARH 


c 

R*4 

N.R. 

VBARV 


c 

R*4 

N.R. 

VDIVE 

c 

R#4 

N.R. 

VGASB 


c 

R#4 

N.R. 

VGA SR 

F 

c 

R*4 

000903 

vhull 

SF 


R*4 

OC1828 

WEN VO SF 


R*4 

00182C 

WGHTR 

SF 

XF 

R*4 

OOOOOO 

WGS 80 

SF 


R*4 

001830 

WPAYL 

SF 

c 

R*4 

0C0958 

WPDSO SF 


R*4 

001834 

WPR80 

SF 


R>!'4 

001838 

WPRPO 

SF 


R*4 

00183C 

hPSTR 

F 

c 

R*4 

000978 

xlalb 

~ c 

R*4 

N.R. 

XLfiWO 

F 

c 

R=i‘4 

000028 

XLRLA 

F 

c 

R*4 

00002C 

FRXPR# 


XF 

R*4 

OOOOOO 

ALFOES SF 

c 

R*4 

000640 

BHPSUP 


c 

R*4 

N.R. 

CBARHT 

F 

c 

R*4 

000674 

CBARVT 

F 

c 

R*4 

0C0678 

ceyLOA 

c 

R*4 

N.R. 

CLALPH 

F 

c 

K=t'4 

0001C4 

CP0W33 


c 

R*4 

N.R. 

CRSINO 


c 

R*4 

N.R. 

CTSIGH 

c 

R*4 

N. R. 

CYCPRL 

F 

c 

RV4 

000480 

DELFCR 


c 

R*4 

N.R. 

OELRTH 


c 

R*4 

N.R. 

DELWFC F 

c 

R*4 

000233 

OELWPL 


c 

R4‘4 

N.R. 

DELWST 

F 

c 

R*4 

000240 

OLSHSH 


c 

R*4 

N.R. 

OLTAFE F 

c 

R*4 

000 1B4 

DLVLHL 

F 

c 

R5=4 

000110 

DUG I NO 

F 

c 

R*4 

OOOOOC 

DSPLMT 

F 

c 

R*4 

0006C3 

DYLIND F 

c 

R*4 

000003 

ELHLOA 

, 

c 

R«>4 

N.R, . 

ELVLUA 


c. 

R *4 

N.R. 

ETAIND 

F 

c 

R*4 

OC0020 

ETAP4N 

c 

R*4 

N.R. 

EXPDRG 


• c 

R#4'. 

N.R, 

FEDRAG 


c 

. R*4 

N.R. . 

FIXING 

F 

c 

R*4 

000014 

GAMDll S 

c 

R*4 

000720 

HULIiNO 

F : 

, c 

R>«4 

C00004 • 

18 CON# 

F 

XF 

R*4 

OOOOOO 

INGCRU 


c 

1*4 

N.R. 

INOORG S 

c 

1*4 

000824 

IiNDDYL 

s 

c 

I«4 

'000828 • 

INDETA 

S 

c 

1*4 

00082C 

' 'iNOF IX 

S 

c 

1*4 

0C0830 

INDHUL S 

c 

1*4 

000834 

INDOPT 

S 

c 

1*4 

000838 

INDOSW 

S 

c 

1*4 

00083C 

INOPQW 


c 

1*4 

N.R. 

INOPRP S 

c 

1*4 

000844 

INORDM 

S 

c 

1*4 

000848 

IPRINT 

s 

c 

1*4 

00084C 

LOADER 

SF 

XF 

1*4 

OOOOOO 

OPTING F 

CE 

R*4 

OOOOOO 

0 SWING 

F 

c 

R*4 

000010 

PRPIND 

F 

c 

R*4 

OOOOIC 

RDMIND 

F 

c 

R*4 

000018 

RHORHO F 

c 

R*4 

00003C 

SGTIND 


c 

R*4 

N.R. 

SKBLNT 


■ c 

R*4 

N.R. 

SKENVl 


c 

R*4 

N.R. 

SKENV2 

c 

R*4 

N.R. 

SKPOSZ 


c 

R*4 

N.R. 

SKVTAR 


c 

R*4 

N.R. 

SSIGHA 


c 

R*4 

N.R. 

STHETA 

c 

R*4 

N. R. 

T8C0WI 


c 

RfA 

N.R. 

TB8AP4 


c 

R*4 

N.R. 

THETMR 


c 

R*4 

N.R, 

TOLIND 

c 

R*4 

N.R. 

V6BQVH 

F 

c 

R*4 

000030 

WBALNT 

F 

c 

R*4 

OOOOIC 

WPAYLO 


c 

R*4 

N.R. 

XTGTA2 

c 

R*4 

N.R. 



PAGE 010 


KTGTA4 C R*4 N.R. 

COMMON [NFORMATIQN 



NAME OF 

COMMON 

BLOCK * 

♦ SIZE 

OF BLOCK 00090C 

hEXAOEC IMAL 

BYTES 





VAR. NAME 

TYPE 

REL. ADOR. 

VAR. NAME 

TYPE 

REL. ADOR. 

VAR. NAME 

TYPE 

REL. ACDR. 

VAR. NAME 

TYPE 

REL. ADOR. 


OPTIND 

R>!=4 

000000 

HUL IND 

R*4 

000004 

OYLI ND 


oooooe 

DRGIND 

R*4 

oooooe 


OSWINO 

R*4 

000010 

FIXING 

R*=4 

000014 

ROM IND 

P*4 

000018 

PRPIND 

R*4 

OOOOIC 

o 

ETAIND 

R*4 

000020 

WO 

R«4 

000024 

XLBWO 

R*4 

000028 

XLRLA 

R*4 

00002C 

tal to 

VGBOVH 

R=f'4 

000030 

XL GO 

R*4 

000034 

HMAXD 

R=C4 

N.R. 

RHORHO 

R«4 

00003C 

s 

VMO 

R>!'4 

N.R. 

EMLF 

R*4 

000044 

CKl 

R>>=4 

N.R. 

OELWF 

R*4 

N.R. . 

►d y 

CKFF 

R#4 

N.R. 

VDl VE 

R*4 

N.R. 

HOO 

R*4 

N.R. 

ROO 

R*4 

N.R. 

l2i 

TOO 

R*4 

N.R. 

GAPl 

R*4 

N.R. 

SGTINO 

R*4 

N.R. 

ELHLOA 

R*4 

N.R. 

^ fi . 

Ttf"N 

ELVLCA 

R*4 

N.R. 

GAP2 

it*4 

N.R. 

AR 

R*4 

OOOOC3 

WS 

R«4 

OOOOCC 

TCR 

R*4 

000000 

TCT 

P*4 

N.R. 

SLM 


OO0CO6 

ARHT 

R*4 

oooooe 


TCHT 

R*4 

N.R. 

VBARH 

R*4 

N.R. 

SLMH 

R*4 

OOOOE8 

ARVT 

R*4 

OOOOEC 


TCVT 

R=!=4 

N.R. 

VBARV 

R«^4 

N.R. 

SLMVT 

R«4 

0000F8 

ELDN 

R*4 

OOOOFC 


GLUT 

R*4 

000100 

ELOOA 

R*4 

000104 

DLSWSH 

R#4 

N.R. 

OSWET 

R*4 

N.R. 


DLVLHL 

R=»4 

000110 

DVOL 

R#4 

000114 

C8YL0A 

R*4 

N.R. 

ENR 

R*4 

OOOllC 


WVA 

R<-4 

000120 , 

, DAMl 

R#4 

000124 

DA M2 

R<<4 

000128 

BMR 

R*4 

00012C 

DAM 3 

R*4 

000130 

CLEYE 

R*4 

. ^000134 

THETMR 

R«4 

N.R. 

XC 

R*4 

N.R, 


XMR 

R#4 

N.R. 

TVCMR 

RX'A 

N.R. 

VT 

R*4 

000148 

CT S I GH 

R«4 

N.R. 


TVW 

P*4 

N.R. 

HES 

R#4 

N.R. 

TINY 

R*4 

N.R. 

ETAP2 

R*4 

N.R. 


ETAP4N 

R=t=4 

N.R. 

TBEM5 

R*4 

N. R. 

TB8AP4 

R*4 

N.R. 

GAP3 

R*4 

N.R. 


DAM4 

K=»4 

000190 

ENP 

R*4 

000194 

ETAT 

R*4 

N.R. 

HC 

R*4 

00019C 


VC 

R«=4 

OOOIAO 

ATMIY 

R#4 

0001A4 

CDVT 

R*4 

N.R. 

CDHT 

R*4 

N.R. 


0AM5 

R*4 

OOOIBO 

DLTAFE 

R*4 

0001B4 

FEDRAG 

R*4 

N.R. 

EXPDRG 

R«4 

N.R. 


CDC 

R*4 

N.R. 

CLAL PH 

. R#4 

0001C4 

CKVT 

R*4 

N.R. 

CKHT 

R*4 

N.R. 


CKF 

R*4 

N.R. 

CKW 

R#4 

000104 

RELI 

R*4 

N.R. 

TCLN 

R>*4 

N.R. 


TBCLl 

R*4 

N.R. 

TSCDWI 

R^4 

N.R. 

GAP4 

R*4 

N.R. 

WFE 

R*4 

000230 


WFUL 

R'S'4 

000234 

DELWFC 

R=«'4 

000238 

DELWP 

R*4 

00023C 

DELWST 

R*4 

000240 


SKCC 

R*4 

N.R. 

SKRC 

R*4 

N.R.’ 

SKSC 

R*4 

N.R. 

SKFW 

R*4 

N.R. 


SKTM 

R’i'4 

N.R. 

' SKRCA 

R*4 

N.R. ■ 

SKSCA 

R*4 

N.R, 

SKMC 

R*4 

N.R. 


SKAC 

R=!‘4 

N.R. 

SKHL 

R#4 

N.R. 

SKEN VI 

R*4 

N.R. 

SKENV2 

R*4 

N.R. 


SRGDl 

R*4 

N.R. 

SKGB2 

R^-A 

N.R. 

SKBLNT 

R«4 

N.R. 

SK6AL 

R>*:4 

N.R. 


SKLG 

R*4 

N.R. 

SKWW 

R»4 

N.R. 

ELF 

R*4 

N.R, 

RMI 

R*4 

N.R. 


SKWP 

R*4 

N.R. 

SKHT 

R*4 

N.R. 

SKVT 

R>^4 

N.R. 

SKPRB 

R*4 

N.R. 


SKRBF 

R‘f‘4 

N.R. 

SKPH 

R’fA 

N.R. 

SKAMD 

R«4 

N.R. 

SK AR 

R«4 

N.R. 


SKPA 

R*4 

N.R. 

SKVTAR 

R#4 

N.R. 

SKPDS 

R*4 

N.R. 

SKPDS2 

R*4 

N.R. 


SKT 

R*4 

N.R. 

SKFS 

R*4 

N.R. 

SKPEl 

R#4 

N.R. 

SKPES 

R*4 

N.R, 


SKI 

R^t'A 

000204 

SK2 

R#4 

000203 

DK3 

R*4 

0002DC 

DK4 

R*4 

0002E0 


SK5 

R=f4 

0002 E4 

• SK6 

R#4 

0002E8 

SK7 

R#4 

0002EC 

SK8 

R«4 

0002FO 


SK9 

R<“4 

0002F4 

SKIO 

R*4 

0002F8 

SKll 

R#4 

0002FC 

SK12 

R*4 

000300 


SKI 3 

R*4 • 

000304 

SK14 

R#4 

000308 

SKIS 

R*4 

00030C 

PLIN 

R*4 

000310 


GAPS 

Rl‘4 

N.R. 

TOLIND’ 

R*4 

N.R. 

XTGTA2 

R*4 

N.R. 

TIN2 

' R*4 

N.R. 


TWTW 

R#4 

N.R. 

PFET2 

RKA 

N.R. 

DELTH 

R’«‘4 

N.R. 

STH 

R’OA 

N.K. 


CRSINO 

R«4 

N.R. 

XTGTA4 

R*4 

N.R. 

TIN4 

R’i'A 

N.R. 

VIN 

R*4 

N.R. 


DELR 

R#4 

N.R. 

RMAX 

RX<4 

N.R. 

□ELFCR 

ROA 

N.R. 

ENPCR 

R*4 

N.R. 


DELWPL 

k>»4 

N.R. 

STPW 

R#4 

N.R. 

HF IN 

R*4 

N.R. 

GAPS 

R#4 

N.R. 


CYCPRL 

R*4 , 

0004B0 

FF 

R=C4 

N.R. 

SK3 

R#4 

N.R. 

SKA 

R'i'A 

N.R. 
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TBHl 

R*4 

N.R. 

TBTO 

R*4 

N.R. 

T8I-2 

R*4 

N.R. 

TBCRP 

R*4 

N.R. 

TBSFC 

R#4 

N.R. 

TBPDW 

R*4 

N.R. 

GAP7 

R*4 

N.R. 

ALFDES 

R*4 

000640 

ALFDL 

R«4 

N.R. 

ALFR 

R*4 

N.R. 

AMU 

R#4 

N.R. 

BHPA 

R*4 

N.R. 

BriPR 

R*4 

N.R. 

6HPSUP 

R*4 

N.R. 

BET 

P.*4 

00065C 

SLP 

R*4 

N. R. 

SR 

R<<4 

N.R, 

BS 

R*4 

000668 

BVT 

R*4 

00066C 

CBARF 

R*4 

000670 

CBARHT 

R*4 

000674 

CBARVT 

R*4 

000678 

CBAPW 

R*4 • 

00067C ■ 

CCP 

R*4 

N.R. 

CCT 

R*4 

N.R. 

CDV 

R*4 

000608 

CLW 

R*4 

N.R. 

CPINO 

R*4 

N.R. 

CP NOD 

R^4 

N.R. 

CPPAR 

R*4 

N.R. 

CPPRO 

R*4 

N.R, 

CPTOT 

R*4 

N.R. 

CRT 

R*4 

N.R. 

CTP 

R*4 

N.R. 

CV 

R*4 

0006AC 

CX 

R*4 

N.R. 

CLDES 

R«4 

0006B4 

CB 

R*4 

0006B8 

DELRTH 

R*4 

N.R. 

DELTA 

R*4 

N.R, 

DH 

R»4 

0006C4 

DSPLMT 

R*4 

0006C8 

ELC 

ft*4 

N.R. 

ELHT 

R*4 

N.R. 

ELN 

ft *4 

000604 

ELOA 

R*4 

0006D8 

ELT 

ft*4 

00060C 

ELVT 

R*4 

N.R. 

tN 

R#4 

N.R. 

ETAP 

R*4 

N.R. 

FEH 

R*4 

N.R. 

FEHI 

R*4 

N.R. 

FEHL 

R<=4 

0006F4 

FEHT 

R*4 

0006FO 

FET 

• R*4 

N.R. 

FETOT 

R#4 

vOOTOO 

FtVT 

R>»4 

000704 

FEW 

R*4 

000708 

FEWH 

R*4 

N.R. 

FEHI 

R*4 

N.R. 

FM 

R«=4 

N.R. 

FP 

R*4 

N.R. 

ETAP4 

R*4 

N.R. 

GAMDll 

R*4 

000720 

GLF 

R#4 

000704 

GMDDl 

R*4 

000708 

H 

R*4 

N.R. 

ICRUS 

1*4 

N.R. 

INDCRU 

1*4 

N.R. 

INDDRG 

1*4 

000824 

INDO YL 

1*4 

000828 

INDETA 

1*4 

00032C 

INOFIX 

1*4 

000830 

INOHUL 

1*4 

000034 

INDOPT 

1*4 

000838 

INOOSW 

1*4 

00033C 

INDPOW 

1*4 

N.R. 

INDPRP 

1*4 

000844 

INORDM 

1*4 

000848 

IPRINT 

1*4 

00084C 

LTHL 

1*4 

N.R. 

NOCPP 

1*4 

N.R. 

NOXPJ 

1*4 

N.R, 

owe 

R*4 

00085C 

PEHF 

R*4 

N.R. 

PI 

R*4 

000864 

Q 

R*4 

000868 

RHO 

R*4 

00086C 

REALJ 

R*4 

N.R. 

RHP MR 

R*4 

N.R. 

R 

R*4 

N.R . 

RN 

R*4 

N.R. 

SA 

R*4 

N.R. 

SA5 

R*4 

000384 

SA6 

R*4 

000808 

SAT 

R*4 

N.R. 

SFC 

R*4 

N.R. 

SHPA 

ft*4 

N.R. 

SHPR 

R*4 

N.R. 

SHT 

R*4 

00089C 

SHTE 

R*4 

N.R. 

SHTW 

R*4 

N.R. 

SIGMA 

R*4 

N.R. 

SSI6MA 

R*4 

N.R. 

ST 

R*4 

N.R. 

STHETA 

R*4 

N.R. 

STMAX 

R*4 

N.R. 

SVT 

R*4 

0008BC 

SVTE 

R*<e 

N.R. 

SVTH 

R*4 

N.R. 

Sw 

R*4 

0008C8 

SWETH 

R*4 

OOOOCC 

SWEXP 

R*4 

N.R. 

SHTT 

R*4 

000804 

SWWET 

R*4 

N.R. 

S2RH0 

R*4 

N.R. 

T 

R*4 

N.R. 

TAF 

R*4 

N.R. 

TCSAR 

R#4 

N.R. 

THETA 

R*4 

N.R. 

TMAX 

R*4 

0008FO 

TMP 

R*4 

0008F4 

TPRCP 

R*4 

N.R. 

TR 

R*4 

N.R. 

ULF 

R*4 

OC0900 

V6ASB 

R*4 

N.R. 

’ VGA SR 

R*4 

000908 

VHL 

■ R*4 

00090C 

V 

R*4 

N.R. 

W 

R*4 

N.R. 

WBAL 

R*4 

000918 

WBALNT 

R*4 

00091C 

WCC 

ft*4 

000920 

WE 

R*4 

000924 

WEP 

R*4 

000928 

WES 

R*4 

00092C 

WF 

R*4 

N.R. 

WFC 

R*4 

000934 

WFR 

R*4 

000938 

WFS 

R*4 ■" 

'00093C 

WFH 

R*4 

000940 

■ ' WGSB 

R*4 

000944 

WHL 

R*4 

000948 

HHT 

R*4 

00094C 

WLG 

R*4 

000950 

WMC 

R*4 

000954 

WPAYL 

R*4 

000958 

wpc ■ 

R*4 

00095C 

WPDS 

R*4 

000960 

WPEI 

R*4 

000964 

WPH 

R*4 

000968 

HPR6 

R*4 

00096C 

WPRG 

R*4 

000970 

WPRP 

R*4 

000974 

WPSTR 

R*4 

000978 

WRC 

R*4 

00097C 

WRCA 

K*4 

N.R. 

WSC 

R*4 

000984 

'WSCA 

R*4 

N.R, 

HST 

R*4 

0009 8C 

WTM 

R*4 

000990 

WVT 

R*4 

000994 

MW 

R*4 

000998 

WPAYLO 

■ R*4 

N.R. 

WAC 

R*4 

0CO9A0 

WENV 

R*4 

0009A4 

XLAL8 

R*4 

N.R. 

XLB 

R*4 

N.R. 

XLBH 

R*4 

N.R. 

XLHL 

R*4 

N.R. 

XLR 

R*4 

N.R. 

XLH 

R*4 

N.R. 

YLS2 

R*4 

N.R. 

TOVW 

R*4 

N.R. 

DMR 

R*4 

0009C8 

SIGMR 

R*4 

0009CC 

AF 

R*4 

000900 

BHPP 

R*4 

0009D4 

SEE 

R#4 

0009D8 





EOUiVALENCED VARIABLES WITHIN THIS-COMMQN BLOCK 

VARIABLE OFFSET VARIABLE OFFSET VARIABLE OFFSET VARIABLE OFFSET 

DATA 000000 


NAME OF COMMON BLOCK * ODD* SIZE OF BLOCK 


000814 HEXADECIMAL BYTES 
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. NAME 

TYPE 

REL. ADDR. 

VAR. NAM 

AO 


000000 

A1 

631 

R=!'A 

00025C 

BB2 

ETAI3 

K*'t 

N.R. 

RJ4 

AMACH 


N.R. 

CULL 

CTI3 


N.R, 

CTI4 


TYPE 

RELv ADOR. 

VAR. NAME 

TYPE 

R'#4 

000084 

A2 

R*4 

R*4 

00029C ' 

RJ3 

R*4 

R*4 

N.R. 

CP0W4 

R<-4 

R*4 ■ 

N.R. 

CL GAM 

R«4 

R*4 

N.R. 




REL. AODR. 

VAR. name 

TYPE 

REL. ADOR 

000168 

B.BO 

R*4 

00021C 

N.R. 

-CP0W3 

R#4 

N.R.„ 

■ N.R. 

ETA 14 

R*4 

N.R. 

N.R. 

CP0W33 

R#4 

N.R. 


I 

> 2 ) 



LABEL 

AODR 

LABEL 

AODR 

LABEL 

AODR 

LABEL 

A DOR 

PAGE 013 

1 

0018CC 

2 

0018E2 

3 

001916 

69 

001AB2 


73 

001AE4 

77 

001AE8 

4 

OOIAEC 

5 

OOIBOC 


2222 

e 

00IC7S 
002368 • 

6 

002264 

7 

002280 

-9 

O022A4 



^OPTIONS IN EFFECTS' NAME= MA IN»OP T=02,UNECNT=54, S I ZEsOOOOK, 

^OPTIONS IN EFFECT’!' SOUi^CE , EBCDIC, NOLIST , NODECK, LOAD ,MAPfNOEO IT, I D,NOXREF 

’('STATISTICS* SOURCE STATEMENTS = 170 .PROGRAM SIZE = 9118 

=*STATiSTICS* NO DIAGNOSTICS GENERATED 

**=**** END OF COMPILATION ***♦♦»! 79K BYTES OF CORE NOT USED 


'J 

I 

U> 

o 



L£\,EL 

21.7 { 

73 

) 


GS/360 FORTRAN H 



datt 

^.09771 1.08. 45 



CCNFILER 

CFTICNS - 

NAPE= PAIN,! 

DP1=C2,UINECNT=54,SIZE= 

QCCCK, 





'iSN 

0002 

SCUHC'6 , £ ECCIC , ^C L 1ST ,NODECK,LOAOtMAP tNOED IT, 10 
SUBRCOIINE ATKCSIl-l- ,T IN32 ) 

KEFBER NAf-E BBUT^CS 

“NOyPEF 

COOICCCC 

00C20C00 



ISN 

0003 

C 

PACE 1 
CCPKON 
1FI>1N0 

INPUT LGC 

CPT lAO 
tRCPIAD 

CCCl THRU 
fHULINC 
fPPF INC 

005C 
,OYUIND 
,ETAI ND 

,CRGIND 

,NG 

tOSV^IND 

jXLERO 

,00040000 

,00050000 






2xLfiLA 

2EPLF 

^PCC 

,VGeCTH 

,GK1 

,TOG 

,>CGC 

.CEUVsF 

,GAF1(53 

TTTPTIX'D 

,CKFF 

,SGTINO( 12) 

,1<HURHU 
, VEIVE 
, ELH.LOA 

, VFC 
,HGC 
,EUVLCA 

TUODeCTJTJO 

,CCO70CC0 

,00080000 



ISN 

0004 

C 

£6AF2(6I 
PACE 2 
CCPMQN 

INPUT LGC 

AR 

CC51 THRU 

OlOC 

,TCR 

, TCT 

,SLP 

”37)09CF3'ST3 

COICCOOO 

,00110000 

, 





lARI-T 

2VEARV 

2CSWET 

,TCFT 

,SLPVT 

tCLVLHL 

, VEARH 

,ELCN 

•fCVCL 

,SUMH 

,ELOT 

rCBYLGA 

, ARVT 
, ELCOA 
,£NR 

Ttcv'T 

,DU£NSH 

,WVA 

.OOlS'CCCTC 

,00130000 

,00140000 


1 

ISN 

0005 


^catt 

£XC 

CCFMQN 

,CAP2 

,XNR 

HEJ 

,tP'F 

,TVCPR 

'TtJAM'3 

,VT 

iCLEVE 

,CTSIGH 

, TH. ETMR 
,TVk 

,00150000 
00160000 
COl 700C0 





C 

£ 

7GAF3 
PAGE 3 

,TINT 

. INPUT LGC 

■TFTTPz TETTCPTiT 

ClCl THRU 140 

.TfiEKSrS) — 

f b i 

"TCDrsTJUTTC 

O019COOO 

C02CO000 

Ss 


ISN 

0006 


CCPMON 

lATMY 

2EXF0RG 

. CAP4 
. ,CO\iT 
,COC 

,£NF 

tCCHT 

,CLALPH 

,ETAT 
, 0 AMS 
,CKVT 

? HC 

,CLTAFE 

,CKHT 

, VC 

tPECRAG 

,CKF 

, 002 i 0 0 00 
,00220000 
,00230000 



. fl 


ISN 

0007 

C 

2CKV» 
PAGE 4 
GCPMON 

,REL1 ,TCLN 

INPUT LGC 141 THFL 2C0 
HPE ,HFLL 

rTBCcrm 
V^EIGHT DATA 
tDEUWFC 

jCELKP 

TcTATym 

tOELNST 

0025GCCC 

,00260000 



r 

U) 




"TJKt'C 

2SKSCA 

3SKGB1 

.SKftC- 

fSKPC 

,SKGE2 

,SK£C 

,ENAC 

,£X8LNT 

, SKFiS 
fSKHL 
tSKBAL 

7TITTR 
♦ SKENVl 
, SKLG 

, SKENV2 
,SKU 

,002701100 

,00280000 

,00290000 

a tk 





4ELF 

SSKRBF 

6SKPDS 

,RP1 
,SKPH 
, SKFCSZ 

tSKVp 
tSKAPD 
,£KT , 

K 

K 


IsKVTAR 

tSKPES 

,00300000 

,00310000 

,00320000 






7$K1 

6SK7 

SSK13 

, SK2 
,£K8 
,SK14 

,CK3 

,£KS 

,£l<15 

,DK4 

,SK10 

,PLIN 

,SK5 

,SKll 

,GAF5(3) 

t SK 6 
tSKL2 

,003 3COC(3 
,00340000 
C035C0CC 



ISN 

oooe 

C 

PAGE 5 lAFLT LOG 2C1 THRU 300 
CCPMON T0LIM(5> ,>TCTA215> 
1DELTH«5> ,STHI5) ,CP«1NC(5) 

,TIN2(5) 

,XTGTA4(5) 

, T^^T^.( 5) 
,TIN4I6) 

,PFET2<5» 

,VI.N(5) 

00360000 
,00370000 
, ,00380000 





C 

20£lR(5J 

3HFIN(5) 

page 6 

,RMAx( 51 ,tElFCKI5» 

,GAF£(IC) 

INPUT LGC 301 .THRU 400 

,ENPCR( 5 ) 

TCEranrT57~ 

iSTPHlbJ 

■'VO'U'i'90'0'0'0 

004CC0C0 

00410000 



iSn 

0009 

C 

(TC pmQn 
ITBTOI 5) 
HCFKING 

gycprt 

,TBH2(5) 

CCPNCN 

»FH : 

,TECPP('S). 

■ r“S'R3 
,TESFC<8) 

TTRTJ 

.TBPOWIB) 

, TBHK 5) 
,GAP7(60) 

, UU420000 
00430COC 
00440000 



ISN 

0010 


CCPMON 

1 

2 CEARF, 

ALHCeS.AlPCU ,ALFR ,AM., 
BHPA,BHFR,EHFSLP ,EHT , El P , BR , BS , B VT , 
CEARHT,CEAPVT,C£ AFW,CCP,CCT,CDV,CLW, 

CFINDjCPNUD 

C045C0GC 

00460000 

i,CPFAR,CPPRG0047C000 






3,CFT0T,CRT,CTP ,CV,CX ,CLCES»CE, 

4 CELRTH, DELTA, CH, CSPLFT , ELC , ELHT , SUN , ELGA , ELT , ELVT , EN , ET AP , 

£ FEH.FEHI ,FEHL , F EH T , F E T , FETCT ,FEVT ,FEW, FEWH, FEWI, FM, FP, ET AF4 

00480000 

00490000 

005C0CC0 



KAUC 'jyjii 


ISN 0011 


!SN 0012 
ISN 0013 

ISN 0014 
ISN 0015 


ISN 0016 
ISN 0017 
ISN 0018 

ISN 0019 
ISN 0021 
ISN 0022 
ISN 0023 
ISN 0024 
ISN 0025 
ISN 0026 
ISN 0028 
ISN 0029 
ISN 0030 
ISN 0031 


CCl'NON CA('D1112 fl5) . CL F , C f' DC U.16 * CC5100C0 

7 I CrC/S t rKCCRUri NC CPG ,~i ^ C’CY'l f i'fvDETAf INOFI Xt INChL'L , INOOPT t INCOSWr OO520CC0 

£ INOPOV* tUOPRF . INCFCF » IFF IM 

CCPMON LTi-L ,NCCFF ,NOXF V . C V E t F EHF t P 1 1 Q > F-H C r R E ALJ , RHPMR , R , RN . __ 

CCFKON SA ,S A"5 TS A6 >"S A7 » SFCVSPf A , SHPR » ShT » SHT E »SPTW f S I GPA , SS IONA, ST r 0C5 vCOCC 
ISTHETAt STPAXt SVTiSVTETSWF'r SVi i S WETH f SWEXF » SK IT » SWFfET tS2RKC 00560000 

CCFMON T tlAFt TCEAF tTF ETA tTRAX>TP PtTPROPtTR»L'lF»VGASBtVGASP>VHL»V 00 5 7C0CC 
CCPMON V. , k8 Ar,lTE A LN T , Vs TC , ii E t kEP t WES, WF , W FC , Vi F R , WFS , WFW , .jooron^Ecnnrn 

I ViGSB»RPLtViPTtULGiWF'CfFFAYLtV'FCjWPDS*WPEIjV(PF»FiPRBfWPR6»V/PBPfWPSTP005SOCCO 

2,l\RC,WRCA,VxSC,VSCA ,N ST . V TP , ^ V T » WH t hPAYLO , h AC , VENV 

CCPMON XLALB,'>rE»XL6(-7xlFLTXLRtXLHfyLS2fTCVW 
CCFMON CMR,SIGPF»AF,ehFP,SEE 

NAPELIST /NAT^CS/ ThET A » C ELT A i S IGMAt S A , RhC , S 2RN0t STHETA « 0Q62CCQC 

1 SSICPAfCELRTl-,TPP 

IF IHH.GT .36089.1 GG TC 2 SofsOOCC 

T»r..l.C-C.CCCCC6»5.> , h ^ g§HSi- 

2 TFETA=C.7flS M68GOOO 

3 TFETA=TJiETA+JJj^31/il8il9 

STFETA^SQPTlTFETAl 00^90000 

IF (HH.GT .36089.) GC TC ^ nnv^Poro 

DELTA = (l.C-.CCCCC6675*Fh)*»S.2561 

0O72C0CO 

A CELTA = 0.Z2336=4EXF{(36C89.-HKJ/20786.) nnTArnnn 

^ ^ — !ii 

ii§§ 

SSIGHA=SQPT{SIGPA> 

CELRTH=DELTAX«STFETA °0790000 

^ ^ ^ sS§5 

00830000 

b^L 


ATMOS / 



NAME 

TAG 

TYPE 

ACC. 

NAME 

■ TAG 

TYPE 

ADO. 


H 

C 

R#A 

N.R. 

C 

C 

R*4 

N.R. 


V 

C 

R»4‘ 

N.R. 

K 

C 

R*4 

N.R. 


8R 

C 


N.R. 

ES 

t 

'kX'A 

N.R. 


CX 

c 

P«4 

N.R. 

DH 

C 

R=*4 

N.R. 


FM 

c 

P<A 

N.R. 

FF 

C 

R»4 

N.R . 


PI 

c 

R*A 

N.R. 

PA 

C 

R'5’4 

N.R. 


SK 

c 

R»4 

N.R. 

TR 

C 

R*4 

N.R. 


WE 

c 

R*4 

N.R. 

KF 

c 

R>i<4 

N.R. 


WW 

c 

R>»4 

N.R. 

XC 

C 

RK«4 

N.R. 


6LP 

c 

R»A 

N.R. 

BPR 

C 

R«4 

N.R. 


CCT 

c 

R«A . 

N.R. 

CCC 

c 

R#4 

N.R. 


CKVs 

c 

R*A 

N.R. 

CKl 

c 

K*4 

N.R. 


CTP 

c 

B*4 

N.R. 

CK2 

c 

R>l-4 

N.R. 



c 

R*4 

N.R. 

ELF 

c 

R*4 

N.R. 


ENP 

c 

P>»4 

N.R. 

eTr 

c 


N « R • 


FEW • 

c 

P’»4 

N.R. 

GLF 

c 

R>t<4 

N.R. 


OWE 

c 

PX4 

N.R. 

PHC 

SFA C 

Rx«4 

oooaec 


SA5 

c 

P=*4 

Kl.R. 

SA6 

C 

R*4 

N.R. 


SFC 

c 

R*4 

N.R. 

SHT 

c 

R*4 

N.R. 


SK2 

c 

P*4 

N.R. 

SK3 

c 

RX<4 

N.R. 


SK6 

c 

R*4 

N.R. 

SK? 

c 

R*4 

N.R. 


SLM 

c 

R#4 

N.R. 

STH 

c 

R*4 

N.R. 


TCR 

c. 

R*4 

N.R. 

TCT 

c 

RX^4 

N.R. 


TVW 

c 

B*4 

N.R. 

LLF 

c 

R*4 

N.R. 


VMO 

c 

R*4 

N.R. 

KAC 

c 

R*4 

N.R. 


WES 

c 

P*4 

N.R. 

WFC 

c 

R*4 

N.R. 

I 

WFS 

c 

B^4 

N.R. 

■■■KB9 

c 

R*A 

N.R. 

CO 

WLG 

c 

P*4 

N.R. 

KMC 

c 

RX-A 

N.R. 


WRC 

c 

B=»4 

N.R. 

>SC 

c 

R*4 

N.R- 


KVA 

c 

B>*4 

N.R. 

KVT 

c 

R*4 

N.R. 


XLW 

c 

R*4 

N.R. 

XMB 

c 

RX<4 

N.R. 


ARVT 

c 

p*4 

N.R. 

EHPA 

c 

RX<4 

N.R. 


COHT 

c 

B>t4 

N.R. 

CCVT 

c 

R*4 

N.R. 


CKVT 

c 

R^4 

N.R. 

CAM 

c 

Rt'A 

N.R. 


0AM4 

c 

R«4 

N.R. 

CAMS 

c 

R#4 

,N'.R. 


ELON 

c 

R>*4 

N.R. 

ELDT 

c 

RX>4 

N • R • 


ELVT 

c 

P>»4 

N.R. 

EMLF 

c 

R«4 

N.R. 


FtH I 

c 

P<4 

N.R. 

FEFL 

c 

R*4 

N.F(. 


FEWH 

c 

R«4 

N.R. 

f EKI 

c 

R*4 

N.R. 


GAP3 

c 

R»4 

N.R. 

CAP4 

c 

R#4 

N.R. 


GAP? 

c 

R*4 

N.R. 

FFIN. 

c 

R*4 

N.R. 


PLIN 

c 

BX4 

N.R. 

BELI 

c 

RX<4 

N.R. 


SHPR 

c 

RX4 

N.R. 

SFTE 

c 

RX>4 

N.R. 


SKAR 

c 

RX4 

N.R. 

SKCC 

c 

R*4 

N.R. 


SKHL 

c 

RX4 

N.R. 

SKhT 

c 

RX<4 

N.R. 


SKPA 

c 

R*4 

N.R. 

SKPH 

c 

R*4 

N.R. 


SKTM 

c 

RX4 

N.R. 

JKVT 

c 

R*4 

N.R. 


SKIO 

c 

B«4 

N.R. 

SKll 

c 

RX'4 

n;r. 


SKIA 

c 

RX4 

N.R. 

SKIS 

c 

RM 

N.R. 


SVTE 

c 

B*4 

N.R. 

SVTh 

c 

R'i‘4 

N.R. 


S 


Ue Cf^ PRCG^AM OOGTifi HEXADECIMAL BYTES PAGE '‘COS' 


NAME 


TAG 

TYPE 

ACD. 

NAME 



ADO- 

R 


C 

R*4 

N.R. 

T 

C 

R*A 

N.R. 

AF 


c 

R#4 

N.R. 

AF 

C 

R«A 

N.R. 

Cft 


C 

R’O'A 

N.R. 


c 


RTSTT"*^ 

EN 


C 

R*4 

N.R. 

FF 

c 

R>KA 

N.R. 

HC 


c 

R»4 

N.R. 

HH 

FA 

R*A 

OCQOC4 

SA 

T" 

c 

Rs'A 

ooceao 

ST 

c 

Rw4 

N.K. 

VC 


c 

R*4 

N.R. 

VT 

c 

R*A 

N.R. 

WO 


c 


N.R. 

ws 

c 

R*A 

N.R. 

aW 


c 

rwA 

N.R. 

SHT“ 

c 

■r#'a 

RTfT. 

BVT 


c 

R#4 

N.R. 

CCP 

c 

R*4 

N.R. 

cnv 


c 

R*4 

N.R. 

CKF 

c 

R*A 

N.P.. 

CTiT 


c 

R«4 

N'.R. 

CRT 

c 

Rw4 

n.(t; 

OK 4 


c 

■R’1‘4 

^ • R • 

■ OMR 

c 

R*A 

N.R. 

ELN 


c 

R*4 

N.R. 

ELT 

c 

R*A 

, N.R. 



c 

RvA 

icnr;^ 

FFT" 

c 

Rx4 

MTm 

HES 


c 

R’f'A 

N.R. 

HOO 

c 

R*A 

N.R. 

RMI 


c 

R*4 

N.R. 

RGO 

c 

R*A 

N.R. 

JaT" 


c 


^ » K « 

S.EE 

■■IIIIMI 



SKT 


c 

R«4 

N.R. 

SKI 


IQS 


SK4 


c 

R«4 

N.R. 

SK5 




SK8 


c 

R*4 

fTTR. 

SK5 

c 

R*A 

N7R^. 

SVT 


c 

R’t^A 

N.R. 

TAF 

c 

R*A 

N.R. 

THP 

S 

c 

RT-A 

00C8FA 

TOO 

c 

R#4 

N.R. 

VHL 


c 

Rs>4 

nTt;; 

VlTT" 

c 

ir*4 

N.R. 

wcc 


c 

R*A 

N.R. 

WEP 

c 

R*A 

N.R. 

WFE 


c 

RX‘4 

N.R. 

WFR 

c 

R*4 

N.R. 



c 


FTir; 

v5Tn~ 

c 

“K»4 

N .P . 

WPC 


c 

Ri‘4 

N.R. 

WPH 

c 

R*4 

N.R. 

WST 


c 

R>!‘A 

N.R. 

wTri 

c 

R*A 

N.R. 

XLB 


c 

RVA 

jeTir; 

_ XL'B 

c 

■jxxgH 


ALFR 


c 

R«A 

N.R. 

ARHT 

c 

R*A 


6HPP 


c 

R*A 

N.R. 

BHPR 

c 

R*4 


ckfF" 


c 


M • R • 

CKHt 

c 



CAM 2 


c 

R*^ 

N.R. 

CAM3 

c 

RX=A 

N.R. 

DELR 


c 

R*A 

N.R. 

DVCL 

c 

R*A 

N.R. 

ELHT 


t 

R^A 

N.li. 

■■Bssai 

c 

R>K4 

RTir; 

ETAP 


c 

R*A 

N.R. 

ETAT 

c 

R«A 

N.R. 

FEfIT 


c 

Rx<4 

N.R. 

FEVT 

c 

R^A 

N.R. 

GAPI' 


c 

R*4 

N.R. 


c 

““RTFA 

fTTlR". 

GAPS 


c 

R^A 

N.R. 

GAP6 

c 

R'i<4 

N.R. 

LTHL 


c 

I*A 

N.R. 

PEHF 

c 

R*4 

N.R. 

FfT5ir 


c 

RkA 

ktet: 

■HWfOaXn 

c 

KQJII 


SHTW 


c 

R>XA 

N.R. 

SK'AC 

c 

R*A 

NiR. 

SKFS 


c 

R>!‘A 

N.R. 

SKFW 

c 

R>»A 

N.R. 

5klg 


c 

R#A 

K.fi. 


c 

R*4 

N.R. 

SKRC 


c 

R«A 

N.R. 

SKSC 

c 

R>»A 

N.R. 

SKWP 


c 

R*A 

N.R. 

SKWW 

c 

RX>4 

N.R. 

~ SK12 


c 

ft'i'A 

KTin 

Ski3 

c 

R*4 

NTrin 

SLMH 


c 

R«A 

N.R. 

STPW 

c 

R*A 

N.R. 

SWTT 


c 

ft*4 

N.R. 

TBHl 

c 

R*4 

N.R. 
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T3H2 


f. 

R#A 

■ N.R. 

T8T0 

C 

R*4 

N.R. 

TCHT 

C 

R*4 

, N.R. 

TCLN 

C 

P*4 

N.R. 


TCVT 


C 

P*A 

N. P, 

T INY 

C 

R*4 

N.R. 

TIN2 

C 

R*4 

N.R. 

' TIN4 

C 

Oijcit 

N.il. 


TMAX 


C 

R«4 

N.R. 

TCVU 

C 

R*4 

N.R. 

TWTW 

C 

R*4 

N.R. 

V.3AL 

C 

R*4 

N.R. 


WENV 


C 

P44 

N.R. 

k>FUL 

C 

R*4 

N.R. 

WGSB 

C. 

R*4 

N.P. 

V.PDS 



N.R. 


WPEI 


c 

R=»4 

N.R. 

VPRB 

C 

R*4 


WPRG 

C 








WRCA 


c 


N.R. 

V>SCA 

C 

R*4 


XL8H 

C 



XLGD 





XLHL 


c 

R+4 

N.R. 

VLS2 

c 

R*4 


ALFOL 

C 



ATMIY 





ATMOS 



R’tA 

OOOGC8 

CEARF 

c 

R*4 

N.R. 

CBARN 

C 

R*4 

N.R. 

CLDES 

c 

R*4 

N.R. 


CLEYE 


c 

R*4 

N.R. 

CPIND 

c 

R*4 

N.R. 

CPNUD 

c 

R*4 

N.R. 

CPPAR 

c 

R*4 

N.R. 


CPPRO 


c 

R*A 

N.R. 

CFTGT 

c 

R*4 

N • R « 

DELTA SF 

c 

R*4 

OOC6CO 

DELTH 

c 

R*4 

N.R. 


CELWF 



WHBM 


DELV.P 

c 

R*4 

HBilH 

GSWET 

c 

R*4 

N.R. 

ELCCA 

c 

R*4 

N.R. 


ENPCR 





ETAP2 

c 

R*4 


ETAP4 

c 

R*4 

N.R. 

FETCT 

c 

R*4 

N.R. 


GMOOl 



■Si 



c 

R*4 

■sHi 

ICRUS 

c 

1*4 

N.R. 

NCCPP 

c 

1*4 

N.R.. 


NOXPJ 


c 

1*4 

N.R, 


c 

R*4 

N.R. 

REALJ 

c 

R*4 

N.R. 

RFPKR 

c 

R*4 

N.R. 


SIGMA 

SFA 

c 

R*4 

0008A8 

SIGMR 

c 

R*4 

N.R. 

SKAMD 

c 

R*4 

N.R. 

SK6AL 

c 

R*4 

N.R. 


SKGSl 


c 

R*4 

N.R. 

SKGB2 

c 

R*4 

N.R. 

SKPDS 

c 

R*4 

N.R. 

SKPEI 

c 

R*4 

N.R. 





■xg 


SKPRB 

c 

R*4 

N.R. 

SKRBF 

c 

R*4 

N.R. 

SKFCA 

c 

R*4 

N.R. 





WM 


SLMVT 

c 

R*4 

N.R. 

STflAX 

c 

R*4 

N.R. 

SWETH 

c 

R*4 

N.R. 





HSI 


SKUET 

c 

. R*4 

N.R. 

S2RH0 S 

c 

R*4 

00C8CC 

TBCLl 

c 

R*4 

N.R. 


T6CRP 

jim 

JB 

■QBEl 


TBEM5 

c 

R*4 

N.R. 

TfiPOW 

c 


Js • P • 

T6SFC 

c 

R*4 

N.R. 


TC3AR 


c 

R*4 

N.R. 

TFETA SFA 

c 

R#4 

0008EC 

TIN33 F 


R*4 

oococc 

TPRCP 

c 

R*4 

N.,R. 


TVCMR 


r. 

R*4 

N.R. 

VEARH 

c 

R*4 

N.R. 

VRARV 

c 

R*4 

N.R,. 

VCI VE 

c 

R*4 

N.R. 


VGASe 


c 

P*4 

N.R. 

YGASR 

c 

R*4 

N.R . 

NPAYl 

c 

R*4 

N.R. 

V.PSTR 

c 

R*4 

N.R. 


XLAL8 


c 

R#4 

N.R. 

XLEKC 

c 

R*4 

N.R. 

XLRLA 

c 

R*4 

N.R. 

EXP 

XF 

R*4 

OCOOOO 


FRXPRA 

XF 

R*4 

OOOQCC 

SCRT 

XF 

P*4 

OCOOOO 

ALFGES 

c 

R*4 

N.R. 

BHPSUP 

c 

P.*4 

N.R. 


CbARHT 


c 

R*4 

N.R. 

CEARVT 

c 

R*4 

N.R. 

CBYLOA 

c 

R*4 

N.R. 

CLALPH 

c 

R«4 

N.R. 


CRSIND 


c 

R*4 

N.R. 

CTSIGH 

c 

R*4 

N.R. 

CYCPRL 

c 

R*4 

N.R. 

OELFCP 

c 

R*4 

N.R. 


OELRTH 

S 

c 

R*4 

. 00068C 

EELKFC 

c 

R*4 

N.R. 

DELWPL 

c 

R*4 

N.R. 

DELWST 

c 

R*4 

N.R. 

1 

DLSWSH 


c 

P*4 

N.R. 

CLT AFE 

c 

R*4 

N.R. 

DLVLHL 

c 

R*4 

N.R. 

CRGINO 

c 

P*4 

N.R. 

U) 

OSPLHT 


c 

R*4 

N.R. 

CYLINC 

c 

R*4 

N.R. 

ELHLOA 

c 

R*4 

N'.P. 

ELVLCA 

c 

R*4 

N.R . 


ETAIND. 


c. 

R*4 

N.R. 

ETAF4N 

c 

R*4 

N.R. 

EXPGRG 

c 

R*4 

N.-R. 

FEDPAG 

c 

R*4 

N.R. 


FIXING 


c 

R*4 

N.R. 

CANCU 

c 

R*4 

N.R. 

HULIND 

c 

R*4 

N.R. 

INCCRU 

c 

1*4 

N.R. 


INDDRG 


c 

1*4 

N.R. 

INCCVL 

c 

1*4 

N.R.' 

INDETA 

c 

1*4 

N.R. 

INCFIX 

c 

1*4 

N.R. 


INOHUL 


r. 

1*4 

N.R. 

IN.CCPT 

c 

1*4 

N.R . 

INDOSW 

c 

1*4 

N.R. 

INCPOW 

c 

1*4 

N.R. 


INDPRP 


c 

1*4 

N.R. 

INCFDM 

c 

1*4 

N.R. 

IPP INT 

c 

1*4 

N.R. 

NATHCS 



OCOOOO 


OPTING 


c 

R*4 

N.R. 

CSV^INO 

c 

R*4 

N.R. 

PRPINO 

c 

R*4 

N.R. 

RCMINO 

c 

R*4 

N • R • 


RHORHO 


r, 

P*4 

N.R. 

SGT IND 

c 

R*4 

N.R. 

SKBLNT 

c 

R*4 

N.R. 

SKENVl 

c 

R*4 

N • R » 


SKENV2 


c 

R*4 

N.R. 

SKFCSZ 

c 

R*4 

N.R. 

SKVTAR 

c 

R*4 

N.R. 

SSIGMA 

S c 

R*4 

OC08AC 


STHETA 

SF 

c 

R*4 

0008B4 

TBCDKI 

c 

R*4 

N.R. 

TB8AP4 

c 

R*4 

N.R. 

THETM.R 

c 

R*4 

N • R • 


TOLIND 


r. 

R+4 

. N.R. 

VGECVH 

c 

R*4 

N.R. 

W8ALNT 

c 

R*4 

N.R. 

WPAYLG 

c 

R*4 

N.R. 


XTGTA2 


c 

R*4 

N.R. 

>TGIA4 

c 

R*4 

N.R. 















***** 

COMMON 

INFORMATION ***** 









NAME CF 

COMMCN 

BLOCK * 

* SIZE 

CF 

BLOCK 

OQOGDC 

FEXAOECIMAL 

BYTES 








VAR. 

NAME 


TYPE 

REL. ACCR. 

VAR. NAME 

TYPE REL. ADDR, 

VAR. NAME 

TYRE 

REL 

. ADDR. 

VAR. NAME 

TYPE 

REL. AOOR. 


OPTUC 


R*4 

N.R. 

hlLINC 

R*4 

N. R. 

■ DYLIND 

P*4 


N.R. 

CKGIND 

R*4 

N.R 

• 


OSVlINO 


R*4 

N.R. 

FIXINC 

R*4 

N.R. 

RDMIND 

R*4 


N.R. 

PRPIND 

P*4 

N.R 

• 


ETAUC 


P*4 

N.R. 

UC 

R*4 

N.R. 

XL3W0 

R*4 


N.R. 

XLRLA 

P*4 

N.R 



VGBCVH 


R*4 

N.R. 

XLGC 

R*4 

N.R. 

HMAXD 

R*4 


N.R. 

RHORHO 

R*4 

N.R 

• 
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VfC 

P«A 

N.R. 

EPIF 

PCA 

N.R. 

CK 1 

RCA 

N.R. 

CELV.F 

R*A 

N.R. 


CKFF 


N.R. 



N.R. 

HOG 

RCA 


«co 

R«A 

N.«. 


TCC 

R*A 

N.P. 

GAP 1 


N.R, 

SGTFND 

fiCA 


ELHLGA . 

R*4 

N « R ♦ 


ELVLCA 

R* A 

N.R, 

GAPi 


N.R. 

AR 

RCA 

■SQ^I 

kS 

R«4 

N.R. 


TCP 

P«A 

N.R. 

TCT 

RCA 

N.R. 

SLK 

Rc^ 

RTITT 

JTFhT 

mm-xurn 



TCFT 

RCA 

N.R. 

VEARh 

RCA 

N.R. 

SLMH 

RCA 

N.R. 

ARVT 

RCA 

N.R. 


TCVT 

RCA 

N.R. 

VEARV 

RCA 

N.R. 

SLMVT 

PCA 

N.R. 

FLDN 

R*4 

N.R. 


ELCT 

RCA 

N.ft. 

ELCC4 

RcA 

N.R. 

DLSWSH 

Rca 

ivTir; 

iJ3i?FT 

rca 




OLVLhL 

PCA 

N.P. 

OVCL 

PCA 

N.R. 

CBYLOA 

RCA 

N.R. 

ENR 

R*A 

N.R. 


hVA 

RCA 

N.R. 

CAM 

PCA 

N.P. 

CAM 2 

RCA 

N.R. 

BMP 

R»A 

N.R. 


CA^3 

RCA 

N.R. 

clevE 

Hll 3MI 



IT??; 



P*A 

N.K. 


)(^R 

RCA 

N.R. 

TVCPR 


N.R. 

VT 

RCA 


CTSIGH 

r*a 

N.R. 


T\V> 

PCA 

N.R. 

FES 

BTxH 

N.R. 

TINY 

RCA 


ETAP2 

rca 

N.R. 


ETAP^N 

RCA 

N.R. 

T6ERE 

RCA 

N.R. 

T68APA 

rca 



— RW 

N.R. 


CA^4 

RCA 

N.R. 

EKF 

RCA 

N.R. 

ETAT 

RCA 

N.R. 

FC 

R*A 

N.R. 


VC 

RCA 

N.R. 

ATMV 

RCA 

N.R. 

CDVT 

-RCA 

N.R. 

COHT 

RCA 

N.R. 


~~~TaT5 


N.P. 

nrrAF'F 

l^A 

N.R. 

FECRAG 

RCA 






etc 

PC-i 

N.R. 

CLALFF 

RCA 

N.R. 

CKVT 

rca 

N.R. 

CKHT 




CKF 

RCA 

N.P. 

CKK 

RCA 

N.R. 

REL I 

PCA 

N.R. 

TCLN 




TECH 

RC<i 

N.R. 

leCDF 1 

R*A 

N.R. 

OTT5 


KTR'“ 

WFt 

■T.C351 

!T7?r: 


hFLL 

pc^ 

N.R. 

CELkFC 

RCA 

N.R. 

DELWP 

IIU 

N.R. 

DELkST 

RCA 

N.R. 


SKCC 

RCA 

N.R. 

SKRC 

RCA 

N.R. 


■SSI 

N.R. 

SKFW 

RCA 

N.R. 


SKIP 

PCA 

N.R. 

SKRCA 

RCA 

N.R. 

SKSCA 

RCA 

N.R. 

SKNC 


— fttt: 


SKAC 

pcA 

N.R. 

SKFL 

RCA 

N.P. 

SKENVl 

PCA 

N.R. 

SKENV2 

RCA 

N.R. 


SKGEl 

RCA 

N.R. 

SKGE2 

RCA 

. N.R. 

SKBLNT 

RCA 

N.R. 

SKBAL 

RCA 

N.R. 


SKLG 

RCA 

N.R. 

SKhV 

RCA 

N.R. 

ELF 

RCA 

N.R. 

— Rin 

— RTE-A” 

R7R. 


SKVP 

PCA 

N.R. 

SKHI 

RCA 

N.R. 

SKVT 

RCA 

N.R. 

SKPRB 


N.R. 

, -J 

SKPEF 

RCA 

N.R. 

SKPF 

RCA 

N.R. 

SKAMD 

PCA 

N.R. 

SKAR 

rca 

N.R. 

1 

SKPA 

RCA 

N.R. 

SKVTAR 

RTa 

nT¥; 

Skpos 


KZP-, 

STTPTTST 

wmifsam 

fITTT:: 

OJ 

SK7 

RCA 

N.R. 

SKFS 

RCA 

N.R. 

SKPEI 

PCA 

N.R. 

SKPES 

RCA 

N.R. 

cn 

SKI 

RCA 

N.R. 

SK2 

RCA 

N.R. 

OK 3 

R*A 

N.R. 

CKA 

RCA 

N.R. 


SK5 

RCA 

N.R. 

SK£ 

RcA 

iv7R. 

Sin 

RCA 

N.K. 

STTS — 


N.R. 


SK9 

RCA 

N.R. 

SKIC 

RCA 

N.R. 

SKll 

RCA 

N.R. 

SR12 

RCA 

N.R. 


SK13 

P!*A 

N.R. 

SKIA 

RCA 

N.R. 

SKIS 

RCA 

N.R. 

PLIN 

RCA 

N.P. 


GAPS 

RCA 

N.R. 

Tclinc 

F*A 

N.R. 

XT(5TA2 

RCA 

N.K. 

nTT2 

RCA 



TKTih 

pCA 

N.R. 

PFET2 

RCA 

n;r. 

DELTH 

RCA 

N.R. 

STH 

P*A 

N.R. 


CRSIAC 

pCA 

N.R. 

XTGTAA 

PCA 

N.R. 

TINA 

R*A 

. N.R. 

VIN 

R*A 

N.R. 


CELB 

PCA 

N.R. 






N.R. 

EHRCR 

K£Xai 

N.K. 


DELl>FL 


N.P. 






N.R. 

GAP6 

P*4 

N.R. 


CVCPFL 


N.R. 



mSSM 


HSI 

N.R. 

SKA 

RCA 

N.R. 


TEH 

P*A 

N.R. 

tbtc 

RCA 

N.R. 



fjTir: 

TTOTP 


f^TTC; 


T8SFC 

PCA 

N.P. 

TBFCK 

RCA 

N.R. 

GAP? 

RCA 

N.P. 

ALFOES 

RCA 

N.R. 


ALFCl 

RCA 

N.R. 

ALFF 

PCA 

N.R. 

AMU 

RCA. 

N.R. 

BhPA 

RCA 

N.R. 


8EFP 

RCA 


EhFSLf^ 

RT?i 

FfTi?;; 

bHT 

RCA 

rtft; 

TTP 

Rc'A 

FTTir: ^ : 


£B 

PC4 


GS 

RCA 

N.R. 

BVT 

RCA 

N.R. 

C8ARF 

rca 

N.R. 


CBABKT 

PCA 

■son 

CEARVT. 

RCA 

N.R. 

CBARW 

RCA 

N.R. 

CCP 

RwA 

N.R. 


CCT 

PCA 

N.R. 

cti; 

RC"A 

N.R. 

trni 

fr=fzr~ 

RTRl 



fTTin 


CPMC 

RCA 

N.R. 

CFPAP 

RCA 

N.R. 

CPPRO 

RCA 

N.R. 

CPTOT 

RCA 

N.R. 


CRT 

RCA 

N.P. 

CTF 

RCA 

N.R. 

CV 

RCA 

N.R. 

ex 

RCA 

N.R. 


CLCES 

RCA 

N.P. 

CE 

pcA 

N.R. ' 

— 1 HUM 

R>TA 


ETFUTS — 


■mwjup— 1 


Eh 

RCA 

N.R. 

eSPLPT 

RCA 

N.R. 

ELC 

RCA 

N.R. 

EUHT 

RCA 

N.R. 


ELN 

RCA 

N.R. 

ELCA 

RCA 

N.R. 

ELT 

R*A 

N.R. 

ELV.T 

RCA 

N.R. 






















E^ N.ft. E74F N.R. 


FEFL 

P*‘ii 

N.R. 

FEhi 

P*4 

N • R • 

FEU 

Ri“4 

N.R. 

f E> 

R«4 

N. R. 

FR 

R*'^ 

N.R. 

FF 

P44 

N.R. 

GLF 

p*/( 

N.R. 

GKCD I 

R=*4 

N.R. 

UOCFU 


N.R. 

INDCRC 


N.R. 

INCF IX 


N.R. 

INOFUL 

H4 

N.R. 

INDFCk 

I>!<4 

N.R. 

INDPPF 

I#4 

N.R. 

L7FL 


N.R. 

NCCPF 

1^4 

N.R. 

PEFF 

R«4 

N.R. 

PI 

R=*4 

N.P. 

RE/'LJ 

p*4 


RHFPP 

P«4 

N.R- 

SA 



SAS 

R’*4 

N.R. 

SFC 

R«'A 


SFFA 

P’*4 

N.R. 

ShlE 

R#^ 

N.R. 

SHTU 

R’*4 

N.R. 

ST 

R'l-.A 

N.R. 

STFETA 

R*4 

0008B4 

SVTE 


N.R. , . 

SVTP 

R*4 

N.R. 

SWEXP 

R*4 

N.R. 

SWT I 

R>#4 

N.R. 

T 

R*A 

N.R. 

TAP 

R*4 

N.R. 

TNAX 

R*4 

N.R. 

TPF 

P'»4 

0008F4 

UF 

P*4 

N.R. 

VGASE 

R44 

N.R, 

V 

R*<i 

N.R. 

V 

R*4 

N.R, 

hCC 

R*4 

N.R. 

WE 

fi>>4 

N.R. 

1«F 

R*^ 

N.R. 

WFC 

P#4 

N.R. 

VsFV> 

P'*'^ 

N.R. 

WGSE 

P>f4 

N. R. 

WLG 

B*A 

N.R. 

WPC 

R44 

N. R. 

UPCS 

P*4 

N.R. 

WPE I 

R«4 

N.R. 

t.PFG 

R’*^ 

N.R. 

hPRF 

R*4 

N.R- 

WRCA 

R*4 

N.R. 

WSC 

R“»4 

N.R. 


V>TK N.R. WVl • R*4 N.R. 

UAC R>f4 N.R. hENV B>>4 N.R. 



HftGE 006' 


FEH 

R=»4 

N.R. 

FEHl 

R*4 

N.R. 

FET 

R*4 

N.R. 

FETOT 

R*4 

N.R. 

FEWH 

R#4 

N.F. 

FEWI 

R*4 

N.P. 

ETAP4 

P>*4 

N.R. 

CAMOll 

R«'4 

N.P. 

H 

P=t4 

N.R. 

ICRUS 

1*4 

N.R. 

INDDYL 

1*4 

N.R. 

INOETA 

1*4 

N.R. 

INDOPT 

. 1*4 

N.R. 

INDGSW 

I “4 

N.R. 

INDROM 

1*4 


IPRINT 

1*4 

N.R. 

NQXPJ 

1*4 


CWE 

R*4 

N.R. 

0 

R*4 


PHO 

P*4 

00086C 

R 

R*4 

N.R. 

RN 

R*4 

N.R. 

SA6 

R*4 

N.R. 

SA7 

R*4 

N.R. 

SHPR 

P*4 

N.R. 

SHT 

R44 

N.R. 

SIGMA 

R*4 

00C8A3 

SSIGf'A 

R*4 

0008AC 

STMAX 

R*4 

N.R. 

SVT 

R*4 

N.R. 

sw 

R*4 

N.R. 

SWETH 

R*4 

N.R, 

SWWET 

R*4 

N.R, 

S2PH0 

P*4 

00080C 

TCdAR 

P*4 

N.R. 

THETA 

R*4 

00086C 

TPROP 

R*4 

N.P. 

TR 

R*4 

N.R. 

VGASR 

R*4 

N.R. 

VhL 

R*4 

N.R. 

Wi3AL 

R*4 

N.R. 

WBALNT 

R*4 

N.R. 

WEP 

R*4 

N.R, 

WES 

R*4 

N.R. 

■ WFR 

R*4 

N.R. 

WFS 



WHL 

R*4 

N.R. 

WHT 



WPAYL 

R*4 

N.R, 

WPG 



WPH 

R*4 

N.R. 




WPSTR 

R*4 

N.R. 



N.R. 

WSCA 

R*4 

N.R. 

[fl 

9SB9 

N.R. 

WW 

R*4 

N.R. 

WPAYLC 

R*4 

N.R. 

XtALB 

R*4 

N.R. 

XLB 

R*4 

N.R. 

XLR 

R*4 

N.R. . . 

XLW 

R*4 

N.R. 

OMR 

R*4 

N.R. 

SIGMR 

R*4 

N.R. 

SEE 

R*4 

N.R. 















*£T^TISTICS» SCLPCE STATE^EMS = 38 ,FRCGPAM SIZE = 79C 


«STATI STICS* NO CIAG^CST1CS GENERATEC 





LEVEL 21.7 ( j;SN 73 ) 


CS/360 FORTRAN H 


DATE 75.CE7/11.08.55 


CCf<PILER CFTICNS - iSAI^E= M !N . OP T =C 2 , L I NECNT = 54 , S I Z E = OCOOK , 


SCLRCEfEBCDIC. SCI 1ST t NODECK, LC AO, MAP, NCEO IT, ID,NCXPEF 
ISN 0002 FUNCTICK 6 I V ( X AFG , VARG ,X TAfl , VTAB , 2TAB,NXARG , NVARG , NXI ,NY J ) COOIOOCO 

member name BeiElV _■ 0C020G00 ‘ 



ISN 0003 
ISN 0004 

C 

VAUA,B,C»C) = (A=*tA-E-C) + B*C)/(D<‘(0-B-C) + B=!'C) 
DIMENSION ZTAEIMXI , NV J ) , XT A E 1 1 ) , YT ABC 1 ) 

XTAB AND TTAB ClMENSIChS ARE GUMMY BUT 2 IS CRITICAL 

OCCBOCCC 

00040CCC 

0005000C 




C 

IT MUST AGREE F ITF TIE CIMEASION IN THE CALLING PROGRAM 

C00600C0 




C 


0007C0C0 




C 


C0C8C0CC 




c 

LOCATE THE X VALUE 

CC05GCCO 




c 

IS XARG LESS TFAN FIRST VALLE IN TABLE 

OOlCCOCC 



ISN 0005 


1 IF tXARG-XTAen))2,3,3 

COl 10000 




c 

YES-USE FIRST 3 VALUES IF TABLE 

0O120CC0 



ISN 0006 


2 J = 1 

001300CO 



ISN 0007 


GC TO 9 

C014CCGC 




c 

NC-FIND WHICH 2 APGUKEMS XAPG IS BETWEEN 

C015000C 



ISN 0008 


3 DC 5 I=2,MXARG 

C016COCO 



ISN 0009 


K=I 

C017COCC 



ISN 0010 


4 IF(XARG-XTABtin6,e,5 

OO18C0CC 



ISN 0011 


5 CCNTINUE 

C01900CC 




c 

ARE WE AT END CF TABLE 

C02C00C0 



ISN 0012 


6 I = K 

0021C0CC 



ISN 0013 


IFU-NXAPGJ 8,7,8 

C022CC00 




c 

YES-USE LAST 3 TABLE VALLES 

C023C0C0 



ISN 0014 


7 J=NXARG-2 

00240000 



ISN 0015 


GC TO 9 

00250COC 


•jj 


c 

NC-USE 3 SLPRCLNCING VALLES 

0C26C000 


Ct) 

ISN 0016 


8 J=I-1 

00270000 


09„ 


c 

FIND WHERE YARG LIES IN lABLE 

C028CC00 



c 

IS YARG LESS THAN FIRST VALUE OF TABLE 

C0290Q00 



ISN 0017 


9 IF (YARG-VTA0< 1)110, 11,11 

003COOCO 




c 

YES-USE FIRST 3 VALUES IN TABLE 

003100CO 



ISN 0018 


1C L=1 

003200C0 



ISN 0019 


GC TO 17 

00330CCC 




c 

NC-FINC WHERE YARG LIES 

C0340000 



ISN 0020 


11 CC 13 I=2,NYARG 

003500C0 



ISN 0021 


K=I 

CO36CC0C 



ISN 0022 


12 IF IYARG-VTABm)14,14 ,13 

003700CO 



ISN 0023 


13 CCNTINUE 

003800C0 




c 

ARE WE AT END CF TABLE 

C039COCC 



ISN 0024 


14 I = K 

004CCC00 



ISN 0025 


IFU-NYARG) 16,15,16 

004 ICOCO 




c 

YES-USE LAST 3 VALLES IN TABLE 

C042CCG0 



ISN 0026 


15 L=NYARG-2 

00430000 



ISN 0027 


GC TO 17 

0C44C00C 




c 

NO-USE 3 SLRRCLNDING VALLES 

G045C00C 



ISN 0028 


1 

II 

rH 

00460000 




c 

SET UP FGF INTERFCLATICN 

0047000C 



ISN 0029 


n JJ=J+1 

CQ4800CO 



ISN 0030 


JJJ=J+2 

0049000G 



, ISN 0031 


LL=L+1 

C05C0OCC 



PAGE 00. 


ISN 0032 


ISN 0033 
ISiN 003A 
ISN 0035 
ISN 0036 


ISN 0037 
ISN 0038 


ISN 003S 


ISN 00^0 
ISN 00-41 


LLL=L+2 

C EVALUATE FYlUt) 

18 FVll = VAL(>ARGt>TAE(JJI,J<IA8(JJJ)*XTA[J(Jl) 

FV12 = VAL( >APG,>TAE (J) ,>TAE UJJ) »XTAB( JJ ) ) 

FV13 = VAU )<ARG tXTAE ( jTTVtI'BI J J J ,Xf AB( J JJ H 

FV 1=FV1 l-flTABI^iD+FYli^^ITAE ( JJ *L) +FY 13 =('ZTAB(JJJtL) 

C EVALUATE fV2(X» 

IS FY2=FY1 I^TTAFI J fLL )+'FY'l2^2TA'f(JJiLU+FY13»ZTAetJJJTLL) 

C EVALUATE FY3(X> 

2C FV3=FY11’>ZTA8(> »LL L ) ■^F V 1 2 ZT A E ( J J t LLL ) FY I3*ZTAB( J J J , LLL ) 
C EVALUATE f(V)-FINA\ ANJhEB 

21 BlV=(VAL(YAPG,Y7AE{LL)tYTA8(LLL)»YTAB(L}J*FYl)+ 

l(VAL(YARGtYTAE(L) ,YTAE ( L L L ) , YT AB ( LL )l *FV2 1-F , 

2<VAL<YAfiGfYTAB(L) ,YTAE ( U ) , YTABI LLLJ) *FY3 J " 

RETURN 

END : 


0051C0C0 

005200C0 

O052GOCO 

O05AOCCO 

■(ya^TroTlU' 

CO56COC0 

C057CCCC 

C0"5800CC 

005900CC 

006CCC0C 

006 iCW(T 

0C62C00C 

0C63C000 

OO6-4000C 

0065CC0C 

00660000 



BIV / 


NAME 

TAG 

TYPE 

AOO. 

NAME 

TAG 

type 

ADD. 

1 

SF 

I>>4 

000C80 

J 

SFA 

1*4 

000084 

JJ 

SFA 

1 »4 

000090 

LL 

SFA 

1*4 

000094 

FY2 

SF 

R»4 

OOOCAO 

FY3 

SF 

R*4 

OOOOA4 

Nxi 


1*4 

ooocec 

NVJ 


1*4 

0000B4 

FY12 

SF 

R*4 

ooocec 

FY13 

SF 

R*4 

OCOOCO 

YARG 

FA 

R*4 

OOOOC8 

VTAB 

FA XR 

R*4 

000000 

NYARG 

F 

1*4 

OOOCCO 







I 

4 ^ 


SIZE CF PRCGRAM OC058C HEXADECIMAL BYTES PAGE 003 


,,'IE 

TAG 

TYPE 

ACC. 

K 

SF 

1*4 

000088 

BIV 

S 

R*4 

00C098 

JJJ 

SFA 

1*4 

00CCA8 

VAL 

S ASF 

R*4 

000000 


NAME TAG TYPE AOO. 

L SFA 1*4 0C008C 

FYl SF R*4 OC009C 

LLL SFA 1*4 OOOOAC 

FYU SF R*4 OOOOB8 


XARG FA R*4 00CCC4 XTAB FA XR P*4 OCOOOO 

ZTAB F XR R*4 000000 NXARG F 1*4 OOOOCC 



LADEU 

1 

ACER 

0CC128 

LABEL 

2 

ACER 
CCC 13£ 

LABEL 

3 

A DDR 
CC01A4 

label 

A 

ADOK 

000162 

NR 

PAGE 004 

5 

OC C1T2 

6 

CCCI7C 

7 

C0C18E 

8 

COOL9E 



9 

0 C C 14 A 

IC 

CCCIEA 

LI 

CC01C6 

12 

OOOIEA 

NR 


13 

OCCIFA 

lA 

COCIFE 

15 

CC0210 

16 

000220 

' 

17 

21 

0CC22C 
CCC3E6 NR 

18 

CC025C ^R 

19 

CC0380 NR 

20 

000366 

Nft 



*CfTIO^S IN EFFECTS NAME= F'flIN,CFT=C2tl.INeCM = 54.SIZE = OOGOK, 

*CF7I0NS I N EFFECT* SOURC E , E BC C K , NCL IS I , NCOECK , LOAC, MAP , NCED IT > 10 , NDXRE F ' 

♦STATISTICS* SOURCE STATEMENTS = AO .PROGRAM SIZE = lAZC 

♦STATI STICS* NO CIAC-NCSTltS GENERATEC 

END CP CCRFILATICN 


115K BYTES 


CF CORE NOT USED 




LEVEL 21.7 ( JA^ 73 ) 


057360 FORTRAN H 


DATE 75.057/11,09.06 


CCFPILER CPTICNS - NAPE= N A lA , 0P1=C2 , L IAcCNT=54 . SI ZE-OCCCK , 


SCUPCEjtECC IC,ACLIST,NQDeCK,LGADfMAPfNC£OIT, ID.NGXREF 
ISN 0002 ELCCK DATA OOOIOOCC 

NEPBER NAPE 681ELKCT 00020000 


ISN 0003 


ISN 

ISN 


0004 

0005 


ISN 

ISN 


0006 

0007 


DIPENSICN AC(3,I5)»A1( 
1 RJ3(lO>,CPGW2{lC)f£TA 
2APACH(3),CLLL (15 >,CLGA 


3,15) ,A2( 3,15)* 8B0( 161, BB 1(16), B8 2 (16), 0G03CCCC 
13 (10,10) ,RJ4(10) ,CP0t»4( 10) ,£ TAI4 ( 10 , 10) , 00040000 
N(I6) ,CFan33(20),CTI3(2C),CTI4(2C) 00C5C00C 


CIPENSICN RCTCAT(14) 
CCNP0N/C0C/AC,Al,A2,l:BC , 
1 ETAI4,APACh,CLU ,CLCAP , 


Eei,ee2,RJ3,CPGV,3,ETAI3,RJ4,CP0^i4, 
CPCN33,CT13,CTI4 


OOC7COCO 

00C8CCC0 

CQ0900C0 


CCPMON /RTPCW/ CneLE(12 
1 CKNCTB(2C 

DATA AC/ 5C.,9C.,90.,7.C 


),T(-T8Le{5),DKHT0( 12,5) ,AMUTB(20), GOICCCCC 
),DPCEB(9) ,CKBLh(9),CTT(10) ,CKHCVT(10) OOllOOCC 
392 , 10.2140,1 1.3227, 4. e3S0, 0.3106, C01200C0 


ISN 0008 


1 11.3355,3.2218,5.4623 

2 3.9439,5.3862,2.4521, 

3 3.8725,4 .5901,8.153,5 


4 13.0822, 12.25, 12.2C42 

5 21.8332,22.784,25.645 
CATA Al/ C.0,C.C,C.C,1 


.3676,2.7551,4.0458,6.5856,2.481, 

6769,5.2054,2.8149,3.8766,6.1902, 

653,6.1044,10.1745,8.5799,8.9031, 


00130000 

00140000 

001500CO 


6.5344,17.0496,17.039 6,20.8089, OOUOCCO 
31.7062,28.7851, 33.5049/ 001700CC 
949,2.4433,40.9515,-4.1639,-22.6338, 00160000 


1 -14.062,-1.7030,-14.9997,-12.2425,-2.5322,-9.9837,-9.574, 

2 -4.5422,-13.0524 ,-6 .9 £C 6 ,-5 .4949,-1 1.7146, -9 .3153,-7.C92 , 


C0190000 

C02COOOO 




4 -30. 7342, -24. £11 5, -26. 09 58, -33. 22 11, -33. 6 185, -29.45 88, -3 4. 9378, 

5 -43.061,-37.3609,-40.63 14 ,- 47 . 882 1,-47. 379 1 ,-49. 145 , -49 .6246 , 

6 -57.8217 ,-77.6449/ 

C0220030 

00230000 

00240COC 




ISN 0009 

CATA A2/ C.O,C.C,C. 0,6). 2416, 86. 4731, 21. 9481,19.2195,56.0, 

1 62.0142,6.291,35.3636 ,36.0669,7.0366,23.0606,25.9573,7.3774, 

00250000 

00260000 




2 22.0028, 18.6439,7.4251,17.3803,16.4063,8.3401,16.0882,23.2672, 

00270000 

.cy.'ry 



3 11.4678, 17.2451,39.117,15.8093,21.8349,51.0509,22.6773,30.7056, 

00280000 


to 


4 58.1494,28.7271,34.1515,64.3529,33.0798,43.697,76.3927,33.6322, 

5 55.5455,94.4326,26.4923,68.2121,144.4176/ 

00290000' 

0U3CC0G0 



ISN 0010 
ISN 0011 

CATA BBC/ 90. ,2.66, 1.9141, 1.613, 1.5304, 1.9611, 2. 7089, 3. 8237, 
1 £.051,7.3796,9.12,12.397,17.169,22.392,28.85,38.2/ 

CATA BBl/ 0.0,-5.4836,-2.9393,-2.7523,-3.0646,-4.5374, 

003100CO 

003200CO 

O033C0CO 



ISN 0012 


ISN 

ISN 


0013 

0014 


ISN 0015 


1 -6.8293,-10.0965,-12. 

2 -5.948,0.0,0.0/ 

CATA BB2/ 0.0,13.5125, 


558 


1 9.3267,10.7333,15.800 
CATA RJ3/C.2, 1.0,1.2 ,1 
CATA CPCh3/C.C,C.C5.C. 


/ 

3.. 5 12 5 , 8.012.5.8118 ,4.0132,5.3846.6.8072, 


CATA ETAI2/1Q*1.C,C.74 

1 0.9912,0.9924,0.9962, 

2 0.9827,0.965,0.9906 , C 


2,15. 

.4,1.6 

1 , 0.2 

,0.937 

0.621, 

.467,0 


5.8118 ,4.0132,5.3846.6.8072 
,6-. 81 6, 7, 879, 5. 6 06,0.0,0.0/ 
,2. 2, 2. 6, 3. 0,3. 4, 4. 2/ 
0.3,0.4,0.5,0.6,0.75,0.9/ 

^ r QC/, co/t.rt OQi 


00340000 

C03500C0 

0036000(3 


C. 3,0. 4, 0.5, 0.6,0. 65, 0.9/ 

,0.954,0.9662,0.980,0.9862,0.9 
0.896,0.920,0.939,0.961,0.973, 
^83 0,0.866,0.892,0.928, 0.949,0 
772, 0.8 19, 0.851,0. 896, 0.9 26, 
a - r -77n .n.Qin.r.aAR.n.QniA- 


0O37COO0 

00380000 

00390000 


895, 

0.9793, 

.960, 


004C0C00 

00410000 

0042CCOC 


3 C.9664,C. 9715, 0.9794,0.342, 

4 0.9486,0.956,0.9683,0.262,0 
£ 0.935,0.944,0.9575,0.206,0. 


0.7/2,0.819,0. 85 1,0.89 6, 0.926, 
.718,0.770,0.810,0.868,0.9044, 
666,0.728,0.773,0.639,0.882,0. 
0.615,0.684,0.736,0.810,0.8615 
941.fi. 6 1 <5.(1.679.0. .779. 0*8 30.0- 


0.9415, 
C.9235, 
9064j 


0C4 30000 
00440000 
C045C00C 


£ 0.9204,0.9305,0. 9456,0.168, 
7 0.906,0.918,0.9345,0.126,0. 
6 0.8848,0.8-988,0.9175,0.096, 


0.615,0.684,0.736,0.810,0.8615 
541,0.615,0.679,0.779,0.830,0. 
0.471,0.547,0.620,0.743,0.803 , 


,0.8885 

8633, 

0.8385, 


,00460000 

C047C00C 

00480000 


ISN 

ISN 


0016 

0017 


9 0.863,0.680,0.900/ 
DATA RJ4/C.2,1.0,1.2 ,1 
CATA CPCH4/C.C,C.C5,C. 


.4, 1.8, 2. 2, 2. 6, 3. 0,3. 4, 4. 2/ 
1,0.2,0.3,0.4,0.5,0.6,0.75,0.9/ 


00490000 

0O50CO0O 

00510000 


I 

U) 


ISN 0018 


ISN 0019 
ISN 002C 


ISiN 0021 
ISN 0022 


ISN 0023 


ISN 0024 


ISN 0025 


ISN 0026 
ISN 0027 


ISN 0028 


CMA gTAI4/10*l 


1 0.992 5 f 0.9 S3 e, 

2 C. 9846, C. 967, C 
2 C.S705,C.9?5,C 


4 0.9575,0.9646, 

5 0.9445,0.9535, 

6 0.932,0.9436,0 


7 0.9195, 0”. 933 ,0 
6 0.9007,0.918,0 
9 0.883,0.904,0. 


CflTA Af'ACI-/C.7, 
DA7A CLU/ O.C, 
I 1.0, 1.1, 1.2/ 




PAG- C02 

.0,0.661 ,0.935,0.959,0.963,0.9622,0.9875,0.9906, 

CO52C0CO 


C. 99 56,0 . £4 2, 0.89 8, 0.9 29, 0.94 6,0.965 5 ,0.9 / 5 5, 0.931 
.9 905, 0.405,0. 63 4, 0.378, 0.904, 0.93 55, 0.9 54, 0.964, 
.982,0. : 1 1 ,0.784,0.834,0.869,0.9095,0.9345,0.9484, 

,05530000 

00S4CCCC 

C05500CC 


C . 9‘ 7 36 , CT2 £ 2 7C . 73 570779 3 ,0.33 £ , C. 886 , 0 . 9 16 , C . 9"3T7~ 
0.966,0.204,0.690,0.753,0.8025,0.062,0.8974,0.918, 
.9 5 65, 0.170,0. 646, 0.71 4, 0.772, 0.84 15, 0.6794, 0.902, 

OO5700C0 

00560CC0 


. 9 £ GTS . I f 5VT75 0 2ToT63‘T7TrT72 7 , c. 810,0.853,0.8796, 
.9 4 0,0. 1 10,0.520,0.601,0.683,0.781,0.6 28, C. 8 60, 
928/ 

“UTJ5'<r07)in3 
C06CCCOO 
006 ICOCC 



0.9/ 

0.05, 0.1, 0.15,0. 2,0.3, 0.4, 0.5,0. 6, 0.7, 0.8, 0.9, 


CATA CLGA^/C.0,0V15■;C.2 ,0". 3, 0.4, 0.5, 0.6, 0.7,0. 6, 0 VoTlT C', 
I 1.2, 1.4, 1.6,1. 

CATA CPCh33/ C. 

1 C.20,0T2’47cT7T8' 


00630000 

C064COGO 


6 , 2 . 0 / 

0,0. 005, 0.01,0.02, 0.03, 0.04, 0.06, 0.08, 0.12, 0.16, 
VC .'3 2 ,‘C : 3 6TC . 4'(:', 0 . 44 , 0 . 4'3T0 . r2,C.60/ 


DATA 0713/0.0,0 
10.2475,0.2945,0 


~2 C."?39,C.56r67C 
DATA CTI4/0.0,. 
1 0.3026,0.3462, 


.0223,0.0523,0.082, 0.1065, 0.127,0. 163,0.194, 
.238,0.2 77 2, 0.4 102,0. 43o8, 0.4 637, 0.49 12, 0.5 17, 
.595“8‘/ 

C245,.C54£,. 0638,0.1 073, 0.128,0.166,0.201,0.2556, 
C. 38 59, C.'^ 208, 0.4 544, 0.48 7 1, 0.5 14, 0. 539,0.5592, 


C065CCOC 

0066COOO 

C067CCOC 

"CMecTTOir 

0069COOC 

C0700CC0 


inm'CRroTr 

OC720C0C 

00730000 


2 0.5824,0.635 
CA7A CTTBLE / 

1 


4/ 

C.C,0.0C4,C.CC 

0.014,0.018,0. 


CA7A TH7BLE / 
DATA 0KH.T8 / 


CATA AMUe / 


-15. C, -9.0 ,-6.C 
-C. 219, -0.219, - 
-C._^52,-C_.144,- 
-CV159,-'C.14S';- 
-0.064,-0.060,- 
-C.C97,-C.C9C,- 

-oVof3,-(T;c7e,- 

-0.041,-0.025,- 

0.0,0.05,0.125, 


5.0. 006.0.007.0.006.0.010.0.012, 

022.0. 030/ 

,-3 .’0^0.0/" 


0.204,-0. 195,-0.166, 
0.132,-0.124,-0.120, 
■C7r3'47“0TT2'57=3TTn:7 

C. 079,-0. 135,-0.135, 
C. 070, -0.069,-0. 063, 

c .078 , - 0 . 066 , -oTTS'e , 

0.033,-0.029,-0.028, 

0.2,0.25,0.325,0.36, 


-0.179,-0.164, 
-0.179,-0.179, 
-C.lOO, -0.093, 
-C. 118, -0.106, 
-0.058,-0,054, 

^T0327^^7T7{r4"ST' 

-0.028,12*0.0/ 

0.37,0.386, 


007400 'CCr 

007S00CC 

0076CCCO 

UDYTOOUTT 

C07800CC 

00790000 


“cuFcrducr 

C0310000 

0082COCC 

~C'aH3'00CU' 

0084Q00C 

00850000 


£ 




ISN 

0029 

1 

2 

CATA 

CKNCTE 

0.4,0.425 ,0.45,0.475,0.525,0.55,0.6,0.7,0.8, 

C.«, l.C/ 

/ C. 0,0. 0,0.025,0.1 05, 0.2 05, 0.39 7, 0.475,0.48,0.475, 

00860000 

O037C0CC 

C08800C0 



1 






2 


0.444,0.474,0.5/ 

00900000 

ISN 

0030 

CATA 

oi'CBe 

/ C. 020,0.007 5,0. 0,-0. 005, -0.0085,-0.01 1,-0. 013, 

009100CO 



1 


-C.CI46 ,-C.7T16/ 

C7T9T7J07575 

ISN 

0031 

CATA 

CKBLE 

/ 1 .2 0, 1.06 , 1.00,0.955,0.9 2,0.891 ,0.867,0.8 46, 

C0930000 



1 


0.628/ 

CC94C00C 

ISN 

0032 

CaU 

"CTT "?■■ 

C.C,C . rcTTC .rCTrCTtTQ'J, C. 010,0. Oil ,C.Cli5,0.C12, 

OrTTsOTTOXi 



1 


0.0155,0.022/ 

C0960000 

ISN 

0033 

CATA 

CKH0.\T 

/ 1.018,1.065, 1.154, 1.233,1.279, 1. 3 14 , 1 . 327 , 1 .3 37 , 

C097COCC 



1 


1.364,1.397/ 


ISN 

0034 

E^C 



00990000 




MAIN f 


SIZE CF PRCGHAM COOOOC HEXADECIMAL bYTES PAGE 003 


NAME 

TAG 

TYPE 

ADD. 

NAME 

TAG 

TYPE 

ADO. 

NAME ' 

TAG 

TYPE 

ACC. 

NAME 

TAG 

TYPE 

ADD. 

AO 

C 

R*4 

N.R, 

A1 

C 

R#4 

N.R. 

A2 

C 

R*4 

N.R. 

BBC 

C 

R--X4 

N.R. 

BEll 

C 


N.P. 

eb2 

C 

R«4 

N.R. 

CTT 

C 

R*4 

N.R. 

DJ3 

C 

R*4 

N.R. 

RJA 

C 


M.fi. 

CLLL 

C 

R«4 

N.R. 

’ CTI3 

C 

R#4 

N.R. 

CT 14 

C 

RW4 


AMACH 

c 


N.R. 

AMUT6 

C 

R*4 

N.R. 

CKOLH 

C 

R*4 

N.R, 

CLGAM 

C 

P*4 


CPDw3 

c 

R>>A 

N.R. 

CPCV^4 

C 

R>K4 

N.R. 

DKHT5 

C 

R«4 

N.R. 

CMCBB 

c 

R*4 

HNM 

ETAI3 

c 

R*4 

N.R. 

E7AI4 

C 

R*4 

N « R * 

CKHOVT 

c 

R*4 

N.R. 

CKN0T8 

c 

R*4 

N.R. 

CP0W32 

c 

R#4 

N.R. 

CT7BLE 

C 

R-t‘4 

N.R. 

POTOAT 


R>!<4 

N.R. 

THTELE 

c 

R*4 

N.R. 






CCMMON INFORMATION 






NAME CF 

CCMMCN 

BLOCK >* 

CDC* SUE 

CF BLOCK C00614 

HEXADECIMAL 

BYTES 





VAR, NAME 

TYPE 

PEL. ACER. 

\(AR. NAME 

TYPE 

REL. ACOR. 


TYPE 

REL, AODR. 

VAR. NAME 

TYPE 

REL. ADOR. 

AC 

P*4 

N.R. 

A1 

p#4 

N.R. 


R*4 

N.R. 

BDO 

R>-4 

N.R. 

SEl 

R«4 

N.R. 

EE2 

R*4 

N.R. 


R*4 

N.R. 

CPCN3 

R*4 

N.R. 

ETA13 

P«4 

N.R. 

RJ4 

R^4 

N.R. 

CP0W4 

R#4 

N.R. 

ETAI4 

R*4 

N.R. 

AMACH 

R«4 

N.R. 

CLLL 

p«4 

N.R. 

CLGAM 

R«4 

N.R. 

CP0K33 

R*4 

N.R. 

CT 13 

P*4 

N.R. 

CTI4 

P*4 

N.R. 









NAME CF CCMMCN 

BLOCK ♦ PTFCV* SI2E CF BLOCK 00026C 

HEXADECIMAL 

BYTES 





VAR. NAME TYPE 

PEL. ADCR. VAR. NAME TYPE REL. AOOR. 

VAR. NAME 

TYPE REL. AOCR 

. VAR. NAME 

TYPE 

REL. AODR. 

1 

CTTELE • R*4 

N.R. THTBLE P*4 N.R. 

OKHTB 

P*4 N.R. 

AMUTB 

R*4 

N.R. 

•1^ 

CKNCTB P»4 

N.R. CMCBE P*4 N.R. 

CKBLH 

R*4 N.R. 

CTT 

R*4 

N.R. 

4^ 

CKHC\T R’iA 

N.R. 







*CPTIONS IN EFFECT* 

NAHE= MAIN,CPT=C2,LIMECNT=34,S1ZE=OOOOK, 







*CFTIONS IN EFFECT* 

SOUR CE.EBCCIC, NOLI ST .NCOECK, LOAD .MAP , NOED IT , ID.NOXREF 






♦STATISTICS* SCLPCE 

STATEMENTS = 33 .PROGRAM SIZE * 

a 






♦STATISTICS* NC CIAGNCSTICS GENERATED 







eND CF CCMFUATICN ****** . 

03K BYTES CF CORE NOT 

USED 








LEVEL 21.7 ( JA^ 73 ) 


CS/260 FQPT-^AN H 


DaTE Y5.CS7/IL.09.10 



CCHFILER 

CFTICNS - 

' NAPE= PAIN,CFT=C2 ,L INECNT = 54,SIZE= 

■CCCCK , 





ISN 

0002 

SLUKtb,cECCIC,HCUST,NOf)ECK,LCAD,MAP,NCEDIT, ID,NOXREF 
SLfcPOUTINE CHCFL (ICHCFLJ 
f/.EH8ER NAPE B61CHGPL 

000 ICC CO ■ 
00020000 



ISN 

0003 

L 

PAGE 1 
CCHNON 
IFIXIND 

INPUT ICC CCCl THFU 

CPTINO ,FULINC 

,RCPINC ,FFFINC 

0050 

,DYLIND 

.ETAINO 

, CPGIND 
,^^C 

,aSMND 

,XLBUC 

00030000 

,00040000 

,00050000 






2XLFLA 

3EPLF 

4PCC 

,VCBCVH ,XLCC 

,CK1 ,C£LkF 

,TOC ,CAF1(5) 

,HNAXO 

,CKFF 

,SGTIND(12) 

, FHCRHC 

, vcive 

,ELHLOA 

,HOC 

,ELVLOA 

,C0060COO 

,00070000 

,00080000 



ISN 

0004 

C 

SGAF2(61 
PAGE 2 
CCPMON 

INPUT LCC CC51 TFPU 

AR ,y.S 

0100 

,TCR 

,TCT 

, SLR 

CTIIf^oOoc 
COICCOOO 
,0011 00 CO 


; 




lABFT 

2VBARV 

SDSHET 

,7ChT ,VEARH 

,SLP\7 ,£LCN 

.CLVLHL ,CVCL 

,SLMH 

,FLOT 

.cayucA 

,ARVT 
, ELCOA 
, ENR 

, TCVT 

,CLSHSH 

,hVA 

,00120000 
,00130000 
, C01400CO 






4CAM 

,CAP2 tEHR 

,DAN3 

,aSYE 

TThetmr 

fCoiscTreT 






5XC 

£FES 

,XYB ,TVCPR 

,TINV ,£TAF2 

,VT 

, ETAP4N 

,CTS1GH 

,Te£P5(5) 

,TVN 

, TH8AP4I5J 

,00160000 

,00170000 



ISN 

0005 

C 

7G A F3 
PAGE 3 
CCPNON 

INPUT LCC CIC 1 THRU 
CAP4 ,ENF 

140 

,ETAT 

,HC 

,VC 

ffSTaQUOD 

0C19O00C 

,0O2C0CCC 






lATMY 

2EXFCRG 

,CDVT ,CDHT ‘ 

,CCC ,CL/LPH 

,DAM5 

,CKVT 

,CLTAFE 

,CKhT 

»F£CBAG 

,CKF 

,00210000 

,C022CCC0 

■■ ■ — 


— 


r 

3CKh 

,PELI ,TCLN 

iTBCLUBJ 

,TfcCDWI(8) 

,GAP4(41 

00230000 




00240C00 


\ ISN 0006 

— 

CCPHON 

ISKCC 

V.FE 

tSKRC 

tUFLL 

,£K«C 

,DELWFC 

rSKFW 

,CELV,P 

,SKTP. 

, DELUST 
,SKRCA 

,00250000 

,00260000 

S ZT 


2SKSCA 

,SKHC 

,£KAC 

,SKHL 

fSRENVl 

, SKENV2 

,00270000 




3SKGB1 

,SKG82 

, 'RELNT 

,SKBAL 

, SKLC 

, SKVU 

,00280000 



_ 4ELF 

,RVI . 

, SKLP 

,SKHT 

, SKVT 

,SI<PPO 

,00290000 



5SKR8F 

, SKPH 

tSKAPO • 

,SKAR 

, SKPA 

TSkvTST! 

, otrrcTTO'cra 




6SKPDS 

,SKFCS2 

,SKT 

,SKFS 

, SKPEI 

iSKPES 

,00310000 



7SK 1 

,SK2 

,CK3 

,0K4 

, SK5 

,SK£ 

,00320000 



ISN 0007 


9SK13 ,«K1A ,SK15 

PA CE LCC_ 2Cl TFRU 3C0 

CCFmON TC L fN'n 5T' ,T'TG T a 2l 5T 

1DELTH(5) ,STM5) ,CRSINC(5) 

2CELR(5) ,R«AX(5) ,C£LFCP(5) 


,PLIN 


,GAP5(3J 


ISiM 0008 


2FFIN(5) rGiFCaCI 
PAGE 6 I^PLT LCC 301 THRU -^00 
CCHMON CYCFPL ,FP ,SK3 


,TlNf(3T 

,XTGTAA(5> 

>ENPCR(5> 


TTirnrm — 

, TIN4(5) 
,CELWPL(5) 


TVfrrrcw 

, VU<5> 
iSTPMS) 


OC3ACOOO 
_C03500CO 
, OT3'5'3^0'0'(r 
,OO37C00C 
,00380000 


ISN 0009 


1TBT0(5) ,TBH2(5y 
hCPKING CCPPCN 

CCPMON ALFCES,ALFDL,ALFF,Ar'L, 


, TBCRPfT} TtksfcTST 


,SKA 

Trepch(8) 




“CTT'Tircinr 

004CCCC0 

fOOAlOOCC 


■,caP 7(60) — 0 DTS'oinnr 

CO',30000 
COAAOOCC 


BHPA,BHFR,EHFSLF,eHT , E!LP r 6K , B S , BVT , 


cOasoooo 


ISN 0010 


1 

2 CEARFTCEAftHT,CEARVT,CeAFVi,CCP,CCT,CDV,CLW,CPI\D,CPNUD,CPPAR,CPPR00OA60000 
J,CFTOT,CRT,CTP,CV,CX,CLCES,CE, OOA7COCC 

k DELRTH, DELTA, DH, ESPtHI , ELC , E LHT , ELN , E LCA , Eut , E LvT , EN , ETaP , OWffkJMT)" 

5 F£H,FEHI ,FEHL,FEHT ,FET ,FETCT ,FEVT ,FEW,FEWH,FEt>I,FM,FP,ETAF4 00490000 

CCPMDN GAPClI(3,lSl,CLF,GHCCl(l61,h, 005CC0C0 


ISN OOU 
ISN 0012 


ISN 0013 
ISN 001^ 


ISN 0015 


ISN 00 It 
ISN 0017 

iSNooia 


ISN 0019 
ISN 0020 
ISN 0021 


ISN 0022 
ISN 0023 
ISN 0025 


ISN 0026 


ISN 0027 
ISN 0028 


-2. J Q? U S » I N C C R y _t. ! ^ c 0 « G_i j N C C Y L ,_I K DSTA. INPFIXi INChULf iNOnPT, IN c 0 SW» 005 IOC c c 


6 INDPOWtINOPRF, INCS“p>',1pfT)\T' 00620000* 

CCPHON LTK ,NCCFF ,NCXP. ,CWE, FEhFjP 1,0, KHC. REAL J,PHPMR,R,RN 0C5 3C0CC 

— Ctf^pN_SA_,S^^, $ ^6 , SA7 iSFCfSFFA,SHPP,SHT, ShTE , ShTW,SI GMA , SSIGMA, ST ,CO5A0OCC 

ISTFETA, STMX,SY1,SVTE, SYTFrSl- tSFlE Th , SW£ XP , SU T T , S^R£tTS2 RFC OO5'50OCO 

CCPMON T .IAF,TCEAF,TFE1A,7MAX,TPP,TPRCP,TR,ULF,VGAS6, VGASR,VHL,V C056C0C0 
-CCjN^ O N FtF BAL ,isEALNT ,kCC t>sE,FFPtWEStWF,><FC,hFR,FiFS»HFW, 005 70000 


1 FGSB ,V\FL »KFT ,FLG ,WFC . Y F A YL , F PC , WPCS , WP E I , WPF , UPR B , WPRG , WPR P , WPSTR005 800 CO 
2»VRCfWPCA»V»SC?V\SC^TViSTT^TK»I^WiWWtWPAYLCtV\AC t ^\EKV CC590C00 

>jL<ie.XlE,>LBH,XLFL,XLR,XLM,YLS2,T0VYi C06C0C00 


CCFMON CPR,SIGFR,AF,8Ff P,SEE 
V.CLD = y> 

TCLD = ST 


PLCLD = WFAYLC 
h =F + CEIUFL(ICFGFL) 
ST = ST + STPVi ( ICHGf L ) 


C06CCC0r 

0061COOO 

0O62CQ00 


1>PAYL0 = PLCLC + CELV'PL I ICFGPL) 
IFdPRINT.NE.lJGC TC 3CC 
WRITE (6, icon PLCLD,FPAYLC,STPW(ICF<GPL ) 


0G63C0CC 

006AC0CC 

0O65C0OC 


ICCl FCFMATt 7X,'CFANGE FAYLCAC FPCM *,F10. 0,4X1 » F CCNOS < / 25X , 'TC 
IFIC.O »4X, 'PCUNCS ' ,4X * ' TAX ING ' ,2X, F6,2,2X » ‘HOCRS' /I 
WPITE(6.IC021 


C06&CC00 

C067COOC 

00680000 


007CCCC0 

00710000 

0072COCC 


ISN 0029 
ISN 0030 
ISN 0031 
ISN 0032 
ISN 0033 


1CC2 FCRMAT(7X,'TIPE*, EX, ’RANGE', 6X,' FUEL USED' , 6X, 'WEIGHT* , 7X, ‘ALT'/ 0073CCC0 
17X,' (HCLRS) • ,£X,' (N.M ) • ,6X POUNDS) * t5X, ' (FCUNDS) * t6X, 'f EET'/) O074C0C0 

h-P_I TE(6,lC03)TCLC,R,WF,WCl.DtF 00 7 5 00 CC 

KR ITE ( 6 , 1 C03 ) ST > R , W F , W TF ~ ~ 0076CCC0 


1003 FCRMAT(7X,F7.2,4X,F6.1 i4X,F9.C,4X,F10.0,4XfF8.0) 
3C0 RETURN 


00770000 

00780000 


4A. 

OY 


00790000 



ChGPL / 


SIZE 


TAG 
F C 
C 


C 

C 


TYPE AOC. 
R*4 000018 

R’1'4 N.R. 


P 


^A^'E TAG 
0 C 

Vs JF C 


TYPE ACU. 

C R*4 ^.R. 

C Rv4 000<) 14 




NAME 

R 

AF 


CB 

EN 

HC 



PRCGRAM 00C2C4 HEXADECIMAL BYTES I’TGE^CO 


TAC 

TYPE. 

Acr. 

NAME 

TAG 

TYPE'" 

ADO. 

F C 

fi«4 

OO'COTa 

T 

c 

RX«4 

N.R. 

C 

R>K4 

K.P. 

AR 

c 

R*4 

N.o . 

c 

R>'‘4 

A.R. 

CV 

(T 

— 

~;v7R. 

c 

R*4 

N.R. 

FF 

C 

R“4 

N.R . 

c 

R’i'A 

N.R. 

PI 

C 

R»4 

N.P . 

S F C 

(Ts'^ 

OOC80O 

Sh 

c 


iS; • K • 

c 

R'1‘4 

N.P. 

NE 

c 

R«4 

N.R. 

c 

R04 

N.R. 

Uv* 

c 

R*4 

N.R. 

c 

R>;<4 

K.R . 


c 


“N7P . 

c 

R-1‘4 

N.R. 

CCT 

c 

R>1=4 

N.o. 

c 

fi«4 

N.«. 

CKU 

c 

R*4 

N.P . 

c 


N ♦ • 

TTP 

c 


n.rV ■ “ 

c 

R'l'A 

K.R. 

ELC 

c 

R*4 

N.R. 

c 

R*4 

N.R. 

ENP 

c 

Rt'A 

N.R . 

c 


^ • K « 

Hh'» 

c 

U*4 

FJTR . 

c 

R*4 

M# K • 

fjWB 

c 

Rw4 

N.P . 

c 

R*4 

N,R. 

SA5 

c 

R«4 

N.P. 

c 


N.R . 

SEC 

c 

Rw4 

N.R. 

c 

RV4 

N.R. 

SK2 

c 

RA4 

N.R. 

c 

R>!<4 

N.R. 

SK6 

c 

R«4 

N.R. 

c 

ft *4 

N.R* 

S lN ■■■ 

c 

RT? 

N.fT. 

c 

R*4 

N.R. 

TCR 

c 

R*4 

N.R, 

c 

Rw4 

N.R. 

TVW 

c 

P.*4 

N.R. 

c 


N.R. 

VMC 





N.R . 

c 

R*4 

N.R. 

NES 

c 

R*4 

N.R. 

c 

R*4 

N.R. 

k.FS 

c 

R*4 

N.P. 

c 



NLG 

c 



~TT7R. 

c 

R*4 

N.R. 

i.RC 

c 

P«4 

N.R . 

c 

R44 

N.R. 

WVA 

c 

P*4 

N.R. 

t 


K.R. 

Xtw 

c 


”n:r. 

c 

R«4 

N.R. 

ARVT 

c 

R*4 

N.R. 

c 

R#4 

N.R. 

CCHT 

c 

R#4 

N.R. 

c 

RW4’ 

ntf: 

CKVT 

C“ 

K’i'4 

N.P . 

c 

R>!‘4 

N.R. 

CAM^ 

c 

R*4 

N.R. 

c 

R«4 

N.R. 

SLCN 

c 

ftw4 

N.R . 

c 

R*4 

N.R . 

EL VT 

c 

R’i'A 

N.P . 

c 

R*4 

N.R. 

FFHI 

c 

R*4 

N.R. 

c 

R’t‘4 

N.R. 

FErtH 

c 

R*4 

N.R. 


(T 

— 

N.R . 

GAPS 

^ 


— firif"." 

C 

R«4 

N.R. 

GAP? 

C 

k*4 

N.R. 

C 

Rr-4 

N.R. 

PUN 

C 

R=»4 

N »K • 


c 

R*4 

N.R. 

SFPTT 

G 

“inr4 — 

' N.R. 

c 

R*4 

N.R. 

SKAR 

C 

R*4 

N.R. 

c 

Rv4 

N.R. 

SKHL 

C 

R*4 

N.R. 

“ET 

RA4 

(mn 

SKPTS 

L 

— — 

iN • K * 

C 

R*4 

N.R. 

SKTM 

C 

R*4 

N.R. 

C 

R*4 

N.R. 

SKIO 

c 

R*4 

N.R. 

G 


^ • K • 


c 

H’»4 

NTin 

F C 

R*4 

000460 

SVTE 

c 

'R*4 

N.R . 

C 

R*4 

N.R. 

TBH2 

c 

R*4 

N.R. 


» 



























T5TC 



N.P. 

TCP7 

C 

R>i<4 





■W|| 9 a|a 

TIN2 

C 

R*4 






ICVW 

C 

R*4 




ESI 


kPLL 

C 

R*4 





SiiiS 

V«PEI ' 

C 

"R*4 




ESI 

■KM 

V<RC A 

C 

R*4 


XLGD 

C 

R*4 

N.R. 

XLHL 

0 

R*4 


ATMIY 

c 

P»4 

N.P. 

CEARF 

C 

" R#'a 


CLOES 

c 

R*4 

N.R. 

CLEYE 

c 

R*4 


CPPAP 

c 

P*4 

N.R. 

CFPRO 

0 

R*4 


DELTH 

c 

R*4 

N.R. 

CELWF 

c 

R*4 


ELOOA 

c 

R*4 

N.R. 

EAPCR 

c 

R*4 


FETOT 

c 

R*4 

N.R. 

GRCOl 

0 

P*4 


NOCPP 

c 

1*4 

N.R. 

KCXPJ 

c 

1*4 


REALJ 

c 

R*4 

N.R. 

PI-FMR 

c 

R*4 


SK.AMC 

c 

R*4 

N.R. 

SHBAL 

0 

R*4 


SKPOS 

c 

P*4 

N.R. 

SRPEI 

c 

R*4 


SKRiIF 

c 

R*4 

N.P. 

SKRCA 

0 

R*4 


STM AX 

c 

R*4 

N.R. 

SWETI- 

c 

R*4 


S2RHQ 

c 

R*4 

N.P. 

TECLl 

0 

R*4 


TBPOW 

c 

P*4 

N.R. 

lESFC 

0 

R*4 


TPROP 

c 

R*4 

N.R. 

TVCMfi 

c 

R*4 


VDIVE 

c 

fi*4 

N.R. 

VGASB 

c 

R*4 


NPSTR 

c 

P*4 

N.R. 

XL4LE 

0 

R*4 


ALFOdS 

c 

R*4 

N.R. 

EHFSOP 

r, 

R*4 


CEYLOA 

c 

R*4 

N.R. 

CLALPH 

0 

R*4 


CYCPRL 

c 

R*4 

N.R. 

CELFCR 

c 

R*4 

— ^ 

D6LWPL F 

c 

R*4 

00 0440 

CELWST 

c 

R*4 


DLVLHL 

c 

R*4 

N.R. 

CRGINC 

0 

R*4 

00 

ELHLOA 

c 

R*4 

N.R. 

ELVLOA 

c 

R*4 


exporg 

c 

R*4 

N.R. 

FECRAG 

r 

R*4 


HOUND 

c 

R»4 

N.R. 

lECCM* F 

XF 

1*4 


INDORG 

c 

1*4 

N.R. 

INCCYL 

c 

1*4 


INDHUL 

c 

1*4 

N.R. 

INCCPT ' 

0 . 

1*4 


INOPRP 

c 

1*4 

N.R. 

INCfiCR 

0 

•1*4 


0 SWING 

c 

R*4 

N.R. 

FRFIND 

c 

R*4 


SCTIND 

c 

R*4 

N.R. 

SKBLNT 

0 

P*4 


SKPOSZ 

c 

R*4 

N.R. 

SKVTAR 

c 

R*4 


T8CDWI 

c 

R*4 

N.R. 

788AP4 

0 

R*4 


VGBOVH 

c ■ 

R*4 

N.R. 

PEALNT 

c 

R*4 


XTGTA4 

c 

R*4 

N.R. 





CCf'MQN 


NAME CF CCNNCN BLOCK * SUE CR ELOCK 

VAR. NAME TVPE REL . ACER. VAR. NANE 1VFE RE 

QPTIAC N.R. HUL I NC., R’l'A 

fIXINC R+A 

WC RAA 

XLGC . R»4 


OS^sI^C 

ETAINC 

VGBCVP 


R*A 

R*A 

R*4 


N.P 

N.R 

N.P 



WPR 

1>S0 

YLS 

8 

A 

2 ■ 

0 

- 0 
0 

R*4 

R*4 

R*4 

CbARW 

c 

R*4 

CPIND 

c 

R*4 

CPTQT 

c 

R*4 



!. 

DSV.ET 1 

! . 

ETAi’4 ( 

1. 

lORUS ( 


IPRINT 
PDMIND 
SKENVl 


SSIGMA 
THETMR 
hPAYLO SF 


1*4 000170 
1*4 N.R. 
1*4 N.R. 


1*4 000840 
R*4 N.R. 
R*4 N.R. 


R*4 00C99C 


PLCLD SF 

SIGNP 

SKGD2 


SKPPB 
SLKVT 
SM- ET 


!. 

TBEM5 ( 

t. 

ThETA ( 


VBARV ( 


INCCRU 

INCFIX 

INCPOU 


QPTINO 

PHCpHO 

SKEMV2 


STHETA 

TCLINO 

XTGTA2 


R*4 
C R*4 
C R“4 


N.R . 
N.R. 


00016C 

N.R. 

N.R. 





INFORMATION >;t**** 














out) 



v^c 

R*A 

N.R. 

EXIF 

R*A 

N.P. 

CK 1 

RAA 

N.R. 

CELWF 

R«A 

N.R. 



CKFF 

p«A 

N.P. 

VCIVc 

PAA 

N.P. 

1100 

RAA 

N.R. 

R£lj 

P*A 

RTP. 



TCC 

R’<'A 

N.R. 

CAP 1 

PAA 

N.R. 

SGTIND 

RAA 

N.R. 

ELKLCA 

RAA 

N^R. 



cLVLC/S 

P*A 

N.R. 

GAPE 

PAA 

N.P. 

AR 

RAA 

N.P. . 

hS 

R*A 

N.P. 



TCR 

R’KA 

N.R, 

TCT 

P AA 

N.R. 



RTRT“ 

sTTFrr 

^ 

RTir: 



TChT 

P* A 

N.P. 

VEARF 

p«A 

N.R. 

SLMH 

RAA 

N.R. 

ARVT 

R*A 

N.R. 



TC\T 

p<<A 

N.P. 

VEAFV 

RAA 

N.R. 

SLMVT 

raa 

N.R. 

ELCN 

R*A 

N.R. 



ELCT 

px-A 

N.R. 

ELCCA 



— MOiWKPkiSM 

RT? 

K7^ 

D^Vi b 1 

fTwi, 

R. K. 



OLVIFL 

P* A 

N.R. 

CVCL 

RAA 

N.P. 

CBYLDA 

RAA 

N.R. 


R«A 

N.R. 




P#A 

N.P. 

CAM 

raa 

N.R. 

DAM2 

RAA 

N.P. 

OPP 

P*A 

N.R. 



C/i^^ 

R*A 

N.P. 

CLEYE 

Rl^A 

N.P. 

TTilTwR 

RT? 

N • P • 

>cC 

RaA 

N'.'R. 



XFR 

P*A 

N.P, 

TVCNP 

RAA 

N.R. 

VT 

RAA 

N.R. 

' CTSIGH 

p*A 

N.R. 



T\Vv 

P*A 

N.R. 

FES 

RAA 

N.R. 

TINY 

RAA 

N.R. 

ETAP2 

R”A 

N.R. 



ETAf 

PX'A 

N.P. 

TBEPS 

raa 

N.R. 

TMapa 

pTA 


GAF3 

iTT^A 

FJTSi: — 



CAFA 

R*A 

N.R. 

ENF 

RAA 

N. R. 

ETAT 

RA4 


HC 

B*A 

N.R, 



VC 

R>> A 

N.R. 

ATPIY 

RA/j 

N.R. 

COVT 

RAA 


CCHT 

RAA 

N.R. 



CANS 

B#A 

N.R. 

t LT A F E 

RaA 


^^bUf<AG 

R?'A 

N.R. 

EXP'CRG — 

R'AA' 




CCC 

RfA 

N.R. 

CLALFF 

RAA 

N.R. 

CKVT 

RAA 

N.R. 

CKHT 

RAA 

N.P. 



CKF 

R«A 

N.R. 

CKF 

RAA 

N • R • 

REL I 

RAA 

N.R. 

TCLN 

RAA 

N.R. 



TaCLl 

R#A 

N.P. 

T¥CCw 1 

RAA 

N. R. 

ttat-a — 

— RW — 

N.R. 

kFF 

P*<A 




WFLL 

R*A 

N.R. 

CELWFC 

P AA 

N.R. 

D tL WP 

RAXi 

N.R. 

DELV.ST 

RAA 

N.R. 



SKCC 

R^-A 

N.R. 

SKRC 

PAA 

N.R. 

SKSC 

RAA 

N.R. 

SKFV 

RAA 

N.R. 



SK7N 

p*A 

N.R. 

sRr'ca 

RA^ 

N.R. 

SkTITA — 

— RT5 

N.R. 


tTF? 

FjTR. 



SKAC 

p«A 

N.P. 

SKF L 

RAA 

N.R. 

SKENVl 

RAA 

N.R. 

SKENV2 

RAA 

N.P. 



SKCEl 

R*A 

N.R. 

SKGBE 

RAA 

N.R. 

SKBLNT 

RAA 

N.R. 

SKBAL 

Rt-4 

N.R- 



SKLG 

P*A 

N.R. 

SKKK 

Raa 

N.R. 

"ETF 

RaA 

N.TTT” 

FTT — 



fTTR. 



SKkP 

R«A 

N.P. 

SKF7 

RAA 

N.R- ■ 

SKVT 

RAA 

N.R. 

SKPBB 

RAA 

N.R. 


f 

SKREF 

RiiA 

N.P. 

SKFF 

RAA 

N.P. 

SKAMD 

raa 

N.R. 

SKAR 

R*A 

N.R. 



SKFA 

P*A 

N.fil 

SWf AP 


nttt: 



IvTR, 


— — 

FT.Tr: 



SKT 

B#A 

N.R. 

SKF S 

PA4 

N.R. 

SKPE I 


N.R. 

SKPES 

RAA 

N.R. 



SKI 

P*A 

N.R. 

SK2 

RAA 

N.R. 

OK 3 

■in 

N.P. 

DKA 

RAA 

N.R. 



SK5 

R*A 

N.P. 

SK6 

WBmM 

N.R. 


■Sini 

wgMjjgM 

51CB 



FTTRI 



SKS 

p«A 

N.P. 



N.R. 

SKll 

RAA 

N.R. 

SK12 

RAA 

N.R. 



SK13 

P*A 

N.P. 



N.R. 


RAA 

N.R. 

PUN 

RA4 

N.R. 



GAF5 

R’»A 

N.R. 

TCLINC 

RAA 

N.R. 

XTGTA2 


ntit; 

— 

H ^4 

FTTir; 



TVTVv 

R*A 

N.R. 

PFET2 

RAA 

N.R. 

OELTH 

RAA 

N.R. 

STH 

R*A 

N.R. 



CBSIFC 

R»A 

N.P. 

XTGTAA 

RAA 

N.R. 

TINA 

PAA 

N.R. 

VIN 

RAA 

N.R. 



CELR 

p«A 

N.R. 

RPAX 

RAA 

nTR. 


P 

N.R. 

EWCP — 

^■i£2!^H 

N.R. 



DELV.FL 

P«A 

OOOAAC 

S7FV 

RAXi 

0C0A60 

FiFIN 

PAA 

N.R. 

GAP6 

RA4 

N.R. 



CYCPFL 

P«A 

N.R. 

FF 

RAA 

N.R. 

SK3 

RAA 

N.R. 

SKA 

RAA 

N.R. 



TBH 

P«A 

N.R. 

T¥fE 

RAA 


mrz — 

RT2; 

RTin 

TFCTTP 


M.R. 



TESfC 

B«A 

N.R. 

TBPOU 

RAA 

N.R. 

GAP 7 

RAA 

N.R. 

ALFDES 

R«A 

N.R. 



ALFCL 

P#A 

N.R. 

ALFP 

raa 

N.R. 

AHU 

RAA 

N.R, 

8HPa 

raa 

N.R. 



BPFR 

P=*A 

N.R. 

gTTPSUF 

P 

N.R. 

3TfT 

RTA 

N.K. 

PLP 


FTTir: 



6R 

R#A 

N.R. 

es 

raa 

N.R. 

BVT 

RAA 

N.R. 

CBARF 

R*A 

N.R. 



CEARI-T 

P*A 

N.R. 

CEARVl 

RAA 

N.R. 

CBARW 

RAA 

N.R. 

CCP 

RA4 

N.R. 



CCT 

P*A 

nttt: 

ccv 

R>SA 

N.P. 

CLw 

RAA 

RTin 



N.P. 



CPMC 

P + A 

N.R. 

CPPAF 

RAA 

N.R. 

CPPRO 

RAA 

N • R • 

CPTOT 

■ RA4 

N.R. 



CFT 

R*A 

N.P. 

CTF 

RAA 

N.R. 

CV 

RAA 

N.R. 

CX 

RA4 

N.R. 



CLCES 

RX'A 

N.R. 

CE 

R'aA 

N.R. 

— HI M ■ 

Rax* 

iv.K. 

QcUTS 


FfTir: 



CH 

p#A 

N.R. 

CSFLPT 

RAA 

N.R. 

EEC 

RA4 

N.R. 

ELHT 

R*A 

N.R. 



E1.K 

,P*A 

N.R. 

ELC^ 

RAA 

N.R. 

ELT 

RAA 

N.R. 

ELVT 

RA4 

N.R. 



































PAGE CC6 


EN 


N' . R . 

ETAF 

R*^ 

N.R. 

FEH 

R=>4 

N * P • 


FEHI 


N.P. 

FEEL 



nuMm^nM 

R 

N.R. 

F£T 



mmm 


«iHi 

mgign 

FEVT 




P*i, 

N . P . 

F'WH 












N.R. 

ETAP4 







GLF 

B*A 

N.P. 

GPCC 1 

R»A 

N.R, 

H 

■Qjm 

0CC818 


ICRGS 

I'-A- 

N.R. 

I^CCFt 


M.R. 

I NCCR G 


N.R. 

INDDYL 

■m 

N.R. 


INDETA 

jj=4 

N.R. 

IN’CF [X 


N.R. 

INObOL 

I 

N.R. 

IND3PT 


N.R. 


IMOGSf 

I>^4 

N.P. 

INDPCW 


fJ.R. 

INCPRF 


N.R. 

INDROM 

I>»4 

N.R. 


IPRINT 

I=r<4. 

000S4C 

LTK 

1=1. 41 

N.R. 

NCCFF 

1*A 

N.R. 

NOXPJ 


N.R. 


CV=E 

Ra^ 

N.R. 

PEFF 


N.R. 

P 1 

R=*A 

N.R. 

Q 

R*4 

N.R. 


PHD 

R“4 

N • R « 

REALJ 

K IM 


RFFPR 

wt^Em 


R 

R«4 

0CC878 


RN 

HSH 


SA 

K SI 

H9QH 

Sif 



SA6 

R»4 

N.R. 


SA7 

■^9 

Hn 

SFC 

K 

■DnSi 

ShPA 

HxzS 


SHPR 

R«4 

N.R. 


ShT 



SME 

R*A 

f>t * R- * 


KE11H 

■■QIIQ 



N.R. 


SSIGNA 


■nfjgN 

ST 

P*A 

oooeec 






N.R. 


SVT 



SVTE 

R«A 

N.R. 






N.R. 


SnETH ■ 

■^9 


suexp 

R*A 

N.R. 

SRTl 

R«A 

N.R. 

SV.hST 

K|M 




MSM 

N.R. 

T 

R=»A 

N.R. 

TAF 

P»^ 

N.R. 

TC6AP 






N.R. 

TPAX 

P=CA 

N.R. 

TNF 

fi=>^ 

N.R. 

TFROP 






N.R. 

LLF 

h«4 

N.R. 

■ VGASE 

P*A 

N.R. 

VGASR 

R*4 

N.R. 


VhL 

p«4 

N.R. 

V 

R*A 

N.R. 


RfA 

0G0914 

WBAL 

R*4 

N.R. 


NBALNT 

R>!-4 

N.R. 

WCC 

R«A 

N.R. 

Vi E 

R»A 

N.R. 

wep 

R#4 

N.R. 


WES 

R*4 

N.R. 
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tABEL ACER LABEL ACER LABEL ACER LABEL ADDR PAGc 


300 CCC294 

*CF^I0^S EFFECT* 
*CFTIONS IN EFFECT* 
*STATISTICS* SCLPCE 


NAME= PAI^,CP^=C2 ,LIN£CAT=54,SI2E=OOCOK, 
SOURCefEECCIC,NCLIST,ACDf£K,LOAC,MAP,NG£D!T,ID,NOXREf 


STATEMENTS = 


32 .FPCCfiAM SIZE = 




t F\jFI 

21.7 

I JAN 72 

) 


CS/360 

FORTRAN H 



DATE 75. lCO/15.23.49' 


CCF FILER 

CFTICNS - 

NAFE= FA IN.0PT = C2,UNECNT = 54,SIZe= 

CCCCK, 







SCUPCS .EECCIC 

,NCLIST,NODECN,'LCAD,MAP,NCEDIT, ID,NOXREF 


ISN 

0002 


SUBROUTINE CRLSl (ICRLSI 




OOOIOOCO 



MEFBER NAFE 68KRLS1 





CC02CC00 



C 

PAGE I 

INPUT LCC 

OCCl THRU 0050 



OOO3COO0 

ISN 

0003 


CCFMON 

CPTINO 

f'FULINC 

,DYLINO 

rCRGIND 

,GSWINC 

,00040000 




IFIXINO 

, R0MINC> 

;PRFINC 

tETAIND 

.NC 

,XLEUG 

,00050000 . 




2XLRLA 

,\.G£CVH 

,>LCC 

fHFAXD 

jRFCRHO 

, VFIC 

,00060000 




2EFLF 

tCKl 

, CELV^F 

fCKFF 

, VCIVE 

,HOC 

,00070000 




4RCC 

.TCC 

,GAF1(5) 

f SGTINDU2) 

.ELHLOA 

tELYLOA 

,00080000 




5GAP2I6) 






C009C000 



c 

PAGE 2 

INPUT LCC 

CC51 THRU 0100 



ooiooooo 

ISN 

0004 


CCFHQN 

AR 

J>S 

iTCR 

, TCT 

,SLF 

,001 10000 




lAFFT 

,TCHT 

,\iEARH 

f SLMH 

, ARVT 

.TCVT 

,00120000 




2VEARV 

, SLFU 

,ELCN 

,£LOT 

, ELDOA 

tOLSNSH 

,00130000 




2CShET 

.CLVLFL- 

,CVCL 

.CBYLOA 

rENR 

.FVA 

,00140000 




4CAFI 

♦ CAF2 

,EFF 

,0AM3 

,CLEYE 

fTFETFR 

,00150000 




5XC 

, XMR 

,1VCFR 

.VT 

fCTSIGH 

,TVW 

,00160000 




6FES 

iTINV 

.ETAF2 

,ETAP4N 

,TEEM5(5) 

,TB8AP4tSj 

,00170000 




7GAP3 






00180000 



c 

PACE 3 

INPUT LCC ClCl THRU 140 



CC19COOO 

J.&N. 

POPS 


CCFFION 

CAF4 

, ENf 

• ETAT 

, FC 

tVC 

,00200000 




lATFIY 

f CDU 

tCCFT 

fDAMS 

, CLTAFE 

,FECRAG 

,00210000 




2EXF0RG 

. iCCC 

fCLALPF 

,CKVT 

tCKHT 

tCKF 

,00220000 




3CKU 

.RELI 

rKLN 

,TECLl(8) 

,TECDWI(8) 

,GAP4(4J 

• C0230CCC 



c 

PAGE 4 INPUT LCC 141 

ThPL 2CC 

WEIGHT DATA 



C0240000 

<1 JSN 

0006 


CCFMON 

NFE 

tV>FLL 

tOELWFC 

, CELWP 

tOELNST 

,00250000 

1 



ISKCC 

.SKPC 

,SKJC 

.SKFW 

.SKTM 

,SKRCA 

,00260000 

cn 



2SKSCA 

,SKFC 

,SKAC 

,SKHL 

,SKENV1 

,SKENV2 

,00270000 

to 



2SKCB1 

,SKGE2 

,£KELNT 

iSKBAL 

tSKLG 

, SKNN 

,00280000 




46LF 

.RFI 

, SKEF 

.SKHT 

. SKVT 

_,SKFRB . 

,00290000 




£SKR8F 

, SKPH 

fSKAFO 

tSKAR 

f SKPA 

, SKYTAR 

,00300000 




6SKFDS 

,SKPCS2 

fSKT 

,SKFS 

tSKPEI 

rSKPES 

,00310000 




_7.S1<.L. 

.SK2 

.CK2 

,0K4 

jlSKS 

.SK6 

.00320000 




ESK7 

,SK8 

,$K9 

fSKlO 

,SXll 

,SK12 

,00330000 




9SK13 

»SK14 

tSK15 

,PLIN 

,GAP5t3) 


003400CO 



c 

PAGE 5 

.INPUT LCC 201 TFRU 2C0 




00350000 

ISN 

0007 


CCFMON 

TCL INC (5) 

, >TCTA2(5) 

tTIN2I5J 

♦TWTWI 5) 

,PFET2I5) 

,CC36CC00 




1CELTH(5) 

,STH(5) 

rCRSINC (5) 

,XTGTA4(5) 

,T IN4(5i 

,VIN(5> 

,0037CCC0 




2DEUR(5) 

,RFA>(5» 

jCELFCP 15> 

iJNPCRJSJ 

,C£LWPL(5) 

,STPN(5) 

,00380000 




2EFINI 5) 

,CAP6(IC» 





CC39C0C0 



c 

PACE 6 

INPUT LCC 301 THRU 4C0 




004C0000 

ISN 

0008 


CCFMON 

CYCFPL 

.FF 

,SK3 

,SK4 

,T8H<S) 

,00410000 




1T670( 51 

,TBH2(5) 

,TECPP(5) 

,T6SFC(8) 

,TBP0WI8) 

f GAP7(60) 

00420000 



c 

IxCRKING' 

CCF.FCN 





004300C0 

J.S.N 

0009 


CCFMON 

ALFCES.ALFCL, 

ALFR.AFL, 




C044CCC0 




1 

BFPA,EhFR,EhPSLP,EhT,ELP 

»8R,BS,BVT, 



C0450000 


2 CBARF,CE;Pt-T,CEiR\;T,C£«Fk,CCPjCCT,CDV,CLHtCFIND,CFNUD,CPP/!R,CPPR00046CC00 

3j.CFT0Lt.CJlT.,j:j_ef,CVjCX,CtCES,C6j ^00470000 

4 CELRTh.OELTAfCF.CSkMf £LC» ELHT , ELN* ELCA , ELT, Ellvf , EN^'ETAP , 0048000C 

£ FEH,FEHI ,FEHf, F EKT, FE1 , f ETCT ,FE VT ,FEU, FEWH , FEKI f FM» FP, ETAF4 00490000 

ISN 0010 CCPMONI GAFDlI(3,15),CLF,CPDC'l(16'),H, ' PC S CO 0^ 


''"AGE ‘C02 


7ICL:M3, UCCRU, INCERG, INCC7L, INCETA, INDFIX, INDI-UL, INDOPT, INCCSVi, CCS ICC cc 

£ 'I^DP0^.^i^CFPF7ITc■pc■^,■lPf INT ’ 00520000 

ISN OOU CCPHON LTFL,^CCFF,^CXP^,,C^^E,FEHF,PI,Q,RHC,REALJ,RHPMR,R,R^ OC53COCQ 

ISN 0012 CCPMGN SA,SAS tSA6 ,S A 7 , S F C , S h F A , SHPP t SHT t SHT £ > SHTW t S I GP A , S S IGHA > ST i COS AC C CC 

= iTTFTTA.lfpAX.sTl , 'rTE7'niK‘rS%;sWEtK,'SWEXP';SWTTVSW'WET ,S2RHC ' '0O5 50OC0 

ISN 0013 CCPMON ItlAF.TCEAP.TFEIAjTMAXtTKP.TPROPpTR.ULF.VGASBjVGASPfVHLjV 0C56CCC0 

ISN 0014 CCFMON W,l-EAL ,i>£ALNT,KCCAEfVEPtWES*WF,WFC»Wf8,ViFS,WFWj^ _ _ 005700CC 

rTCSBTKFL,VF"f,hLG,v;yC,tPAYL,8PC,WPCSVl«P£I,WPH,kPRB,WPRG,WPPPilrtPS'tR005 80000 

2,8PCtWPCA ,hSCt^£CA»8ST , VVT , WW ,hPAYLC, U AC ,UENV 005900 CO 


ISN 

0015 


CCPMON XLALe,XLe,>LeF,XU-L ,XLP,XLW,YLS2,T0VW 

. 006,00000 

ISN 

0016 


CCPMON DPPfSiGP'P ,AF,EHFP,SEE 

C06CCC01' ' 

ISN 

0017 


XAPELIST 7NCRLS1/ LCl , LC3 , Y LS2 , V ,T , Q, CX , BHPR , EHPA, BL P , 

1 BHPSUP,FP,ENiINCETA,ETAP4,DHP,Bl,B2,0ELV,V,R,W,WF,ST 

C061C0C0 

0C62C000 

ISN 

obia 


PTCD=57."295n95 

0062C1CC “ 

ISN 

0019 


hF=H 

C062C200 

ISN 

0020 


NETAP4 = ETAP4N + C.l 

CC63CC0C 

ISN 

0021 


IF(IPRINT,N£,1 Kb TC 3C1 

'CC64C00C 

ISN 

0023 

3C4 

WPITE16,3C7> 

CC72Q0CC 

ISN 

0024 

3C7 

FCRMAT(7X,»CRLI JE AT CFUSE FCWER*/) 

CO73COC0 

iSN 

062T 

3C1 

ccKtinue 

” C074CQC0 

ISN 

0026 


IFUPRIM.EC.U WPITEI6,1C05> 

0075C0CC 

ISN 

0028 


IF(lPRIM.EC.l) WBITEUflCCei 

C075CICC 


I SN~00 30 1CC5 FC PM aTTTx", '"t I P E « , 7 x‘ , 'P / N C £ 5 X , • F U E L US EC *'t 5~X V* WE ! GH T • TOX , • AUT ^ , 6 0 0 7 6 0 C CO 


IX, 'TEMP* ,£X,' TAJ* ,5X,'E.F.'.,4X, 'PEHF* ,5X, • BHFB* ,4X, » ETAP* ,5X, *NMPP007700CC • 

2*,£X, *R.N.*,4X,*CL*/ ' _ ^ __ OCTOCOCO _ 

22X,*ThCL'B J)’ (K»M) “ {FCCNCS) (PCUNDS) (FEET) ( CEG . F007900CO 





4) IKT)'//> 

00800000 

1 

ISN 

0031 

1CC8 FCFMAT{37X,*HUL L I FT* , UX , • MNG LIFT * , 7X, • RCTCR L IFT* , 8X , 'ALPHA 

FC08CC1C0 

Ul 



1* , 16X, • ALPHA C/L»/38X, • ( FCUNCSl *,12X, •( PCUNDS )• ,7X , • (POUNDS') • ,10X 

,00800200 

CO 



2*(Ce6)*,17X,'(CEG>*//> 

008C03CQ 


ISN 

0032 

LCI = C 

CC81CCC0 

, - 

ISN 

0033 

LC3 = 0 ' 

0O82CCC0 


ISN 

0034 

YIS2 = ( ENP - ENFCPIICRLS) )/ENP 

C083CCC0 


ISN 

0035 

TIN = TU4(ICRLS) 

008400CO 


... ....... 

0036 

CALL ATPbS(F,TIN) 

OCb tiOOCC 


ISN 

0037 

15 V=VMO/SS!GMA 

0086C0CO 


ISN 

0038 

1 C = 1.42636 * RFC ’t V V 

C087CO0C 


ISN 

0039 

LC2 = LC3 + i 

OC8SCOGO 


ISN 

004C 

CALL LIFT 

CC890000 


ISN 

0041 

CALL ORAGIALFR) 

CC9CCCC0 


ISN 

0042 

eP=XLB/W 

C09C0100 


ISN 

004 3 

IF(IN0CYL.GT.2) GC TC 2 

C091CCC0 - 


ISN 

0045 

T ■ = T + C * CELFCP< ICFLS) 

0C92C0CC 


■ Tsn' 

0046 

If (INOETA.EC.C) -GC TC 4 

CC93CGCC 


ISN 

0048 

TFPQP = T 

CC94COCO 


ISN 

0049 

CALL PCWEF 

0095000C 


ISN 

0050 

Bi-pR a SHFR * 8FFF * CSLFTH * Y1S2 

C096CC00 


ISN 

0051 

GC TO 5 

C097COCO 


ISN 

0052 

2 CX = CX + 2. ><■ AFU *'AFU * EELFCR( ICRUS)/( PI * OMR * DMR « ENR) 

0098000C 


ISN 

0053 

CALL RCTPCW 

CC9900C0 


ISN 

0054 

BHFR = RFPFR/ETAT 

QIOCOOCO 


ISN 

0055 

GC TO 5 

OlOIOOCO 




PAGE C03 



_ISfJ 0056 

9 

-.EJ.^..PiL..5 J L I.M HEE t.5 , T £ f a F9 , V ,N E TAP9 , M ) 


01C2COCC 





IS,N 0059 
ISN 0060 

ICl 

11- m.Nt.t) WRllfc (6t 1C 1) I 
£TAP=ETAP9 

FCRMAT{22>35HTMS ERRCP IS I^ THE 

V-ETAP9 

TABLE/ 

0103C0C0 

01C3CIC0 

C109C0CC 





ISN 0061 
J.S'J 0062 

Q 

1 22>, 7HSCT INC( ,ii , • ) *7) 

01-FR = T =» \ / (225.1 =♦ ETAF9 xf 

„PL.P =..XLINT ( TEH2,TBCFP ,H, S 

ETAT) 


01O5C00C 

C1060CCC 

01O7C000 


** 



ISN 0065 

1C2 

IF (M.n'e’.O WR'iTE(6,lC2) 1 
FCFMAT(22K35hThIS ERRCF IS. IN THE 
1 22>, 7HSGT INC( , IF . ' ) •/) 

h-PCWER 

TABLE/ 

C1C800CC 

010900CC 

CllCOOCO 





ISN 0066 
ISN 0067 
_ISN 0068 


BLF=FACTP (ELP ,FF ,TFETA ,FF ) 
eLK=BLP 

BHPSUP=: BLP + CELRTh * EFFP 



ClllCOCO 

ClllClCC 

C1120000 





ISN 0070 
.. ISN 0071 


BHFA = 6FPSUF * YLS2 
CFP = AESd. - EHPR/BFFA) 

IF (DHP .LE .0 .01 ICC TQ 6 



0113COCC 

01190OC0 

0H5CCCC 





iSi'i 0073 
ISN 0075 
_1SN_C0.77 


IF(LC3".GE.21 GC TC 7 

IF (8HPA.GT.BHFP I GC TC 6 
B1 = BHFR - 8HFA 



*01160000 

0117C000 

C11800CC 


' 



ISN 0078 
ISN 0079 
— I.Sfi_008 0 

9 

CELV = IC, 

V = V - CELV 
JF <V..GT..5 .C )GC TC 1 



011900CC 

C12COOOO 

01210COO 





ISN 0082 
ISN 0083 


NEKT = 1 
WP ITE(6,1CCH 



C122C0G0 

C123COOO 

01290000 





-is:Loci8i 

— 

Ji^MAin5-)(j_9_7hII'StFFIClENT FCliER AVAILABIE 

FCR CRUISE(CRI,S1 ) A» 




— J _ 

ISN 0085 
ISN 0086 
_.1SN 008 7 

7 

GC TO 3CC 
B2 = BHFR - EFFA 
_i-FJABSJ_ei/62 - I.I.LE.C.CIJ GO TO 

10 


0125QCCC 

0126C0CO 

01270000 




1 

-54 

1 

ISN 0089 
ISN 0090 
_ISN. 009 2. 

,1_2_ 

CELV = CELV * E2 / (El - 82) 
IF(DELV.LE.O.O) GC T’O 11 
_B1. =..B2 



01280000 
. C129C0CC 
013COOCG 





ISN 0093 
ISN 009A 
_ISN 0096 

11 

GC TO 9 

IF(B2.GT.C.C)GC TC 10 
GC TO 12 



C131COOO 

013200CO 

013300C0 





ISN 0097 
ISN 0098 
...ISN 0099 

10 

1CC2 

V.P ITE(6,1CC2) 

PCFMAT(15X,9lF*t« INSUFFICIENT POWER FOR CRU ISE ( CRUSl )B ) 

0139C0CC 

013500CC 

C13600C0 





» o 1 1 U fuu 

ISN 0101 
_ISN .0102 

8 

CL TO 3CC 
BHFA = EHPR 
_8 H LS.U P.= .... E)iPA/YlS2 



C137C0CC 

C138COOO 

01390CC0 





ISN 0109 
. ISN 0105 

6 

BLi- = BFFSLF/IEhPP •) CELPTM 

SFC = >L INT (lEFCW.TESFC ,BLP,8,)^) 

._IF (M.NE.C) WRnE(6,lC2) I 


C14CC0C0 

0191CCCC 

C192C0CC 





15N 0107 
^.ISN 01C8 

103 

FCRMAT12273CFTFIS ERRCF IS IN THE 
1 22>,7HSGnND(,I2i')»/) 

.FP = SFC A EhFA^CHfF 

SFC TABLE/ 

0193C0C0 

0199CQCC 

0195C00C 





1 O r N 0 1 Li ^ 

IS') 0110 
. ISN 0112 


EN = V / FF 

IF (INOCYL .LT.3 ) ALFCL = -9C. 
Ji.L FO.= A_L F R_« R TOC_. 



C196CCCC 

0196C1C0 

0196C2C0 





ISN 0119 
_LSN.„0.1.l_6. 


PEFF=BHPSLP/ ieLK»£HFP*CELRTF) 
IF(LCl.EC.l) GC TC 299 
RPAXI = RFAX( ICFLS > 



014603C0 

01970000 

C198C000 






PAGE CO^" 


_ISN OH^ 
isl'T'cii? 
ISM 0120 

^SfL_OiiL 

fSN 012 2 
ISN 0123 

Tsfr"di25~ 

ISN 0127 

lSN~dT26“ 

ISN 0129 


IF! R .LE.IRMAX.I -OELR (I CRU-S ) ) IGQ ’ TO 13 


DELTAR = 
LCl = 

GC TO 14_ 

13 CELTA'R = 


RWAXI - R 
1 


13 CELTAR = CELRUCRUS) 
lA IFdPRIM.EC.l) WPIT£lt,lC03 JST,R,KF,W,H 

1E^,RN,CLW_ 

'I F"( I P R 1 A‘7 .E C . 1 i t F i f £ '( £ ', 1 GO 9 TX L H L-V'X L W ; X L 
1CC3 FCRMAT(2X,F7.2,2X,F8. 1 ,2>,F9.C, AXtFlO.O, 
1,F£.3,2X,F6.3,2),F8.0,2X,F5.2,2X,F9.6,2X 

1 C C 9 Ft R M A T 1 3 A X , F 1 C", C , lTx“, F 1 d 7C”,‘ 7X , F 1 0 . C , 1 1 X * 
R = R + CELTAR 


ISN 0130 


W = h - 

CELTAF/EN 


ISN 0131 
ISN 0132 
ISN 0133 


WF = hF + 

ST = ST + 

LC3=tf 

CELTAP/EA 

CELTAR/V 


ISN 0134 
ISN 0135 
ISN 0136 

3CC 

295 

GC TO 15 

WRITE(6,NCRLS1» 

RETURN 



ISN 0137 


ENC 




_ , C149000C 

.. . ..... C15C00CC' 

C151CQCC 

_ _ _ C152C0C0 

015300CC 

,TMP .VteRtPEHFfBHPRreTAP, 01 5 400 CO 

C155C0CC 

R/ALf C.'AL'FOL ” " " O155Q01C 

2X,Fe.Cf2X,F7.2,3X»F£.l,2X0156C0CO 

,F6^3r2X_f_F5._2_) 01570CCC 

F'JTl ,19X,F'5. 1/T 015701CC' 

Q15800CQ 

C15S00C0 

C16CC000 

01610G00 

C16101C0 

01620000' 

0163COOO 

01640000 

■C16'5CQOO‘ 



CRLSl / 


SIZE CF FFCGPAM OOOB08 FEXADECIF'AL BYTES PAGE C05 



NAME 

H 

R 

TAG 

SFA 

SF 

C 

C 

TYPE 
fi*4 
R1« A 

AOC. 

000818 

000878 

RAPE 

I 

T 

TAG 

F 

SF C 

TYPE 

I<=A 

R’i'A 

ACC. 

0003FA 

0CC8EC 

NAME TAG 

M FA 
V SFA C 

TYPE 

I*A 

R’I'A 

ACC. 

OOC3F8 

00C910 

NAME TAG 

0 SF C 

W SF C 

TYPE 

R^A 

R’i'A 

ADD. 

CC0S63 

CC091A 


4F 


c 

R>04 

N.R. 

AR 


C 

R*A 

N.R. 

BR SF 

• c 

R’I'A 

00C66A 

BS 

c'~ 

‘R’i'A 

N.R. 


81 

SFA 


P’JA 

0003FC 

62 

SFA 


R*A 

OOOAOO 

..CB 

c 

R*A 

N.R. 

CV 

C 

R*A 

N.R. 


CX 

SF 

c 

R^4 

0006EC 

OH 


C 

R«A 

N.R. 

EN SE 

c 

R’SA 

OOC6EA 

FF FA 

C 

R*A 

OQOABA 


FM 


c 

P»4 

N.R. 

FP 

SF 

C 

R«A 

000718 

HC 

c 

R*=A 

N.R. ■ 

HH SFA 


B’»A 

OCCAOA 


PI 

F 

c 

P»4 

0008EA 

RN 

F 

C 

R*A 

OOC37C 

SA. 

c 

■R’I'A 

N.R,, 

ST SF 

C 

R’»A 

CC08BO 


SW 


c 

P#4 

N.R. 

•TR 


c 

R*A 

N.R. 

VC 

c 

R#A 

N.R. 

VT 

r, 

R’i'A 

N.R. • , 


WE 


c 

MA 

N.R. 

WF 

SF 

c 

R*A 

0CC930 

XC 

c 

R’I'A 

N.R. 

. ws 

C 

R’^A 

N.R. 


hW 


c 

R^A 

N.P. 

XC 


c 

R^J'A 

N.R. 

AMU F 

' c 

R*A 

00C6AC ' 

BHT 

c 

R’I'A 

N.R. 


8LK 

SF 


R*A 

OOOAC8 

BLF 

SFA 

c 

R*A 

000660 

BHR 

C' 

R’I'A 

N.R'. 

SVT 

r 

R’i'A 

N.R'. 


CCP 


c 

R^A 

N.R. 

CCT 


c 

R*A 

N.R. 

CDC 

C 

■R’I'A 

N.R. 

CDV 

c 

R*A 

N.R. 


CKF 


c 

P=*A 

N.R. 

CKW 


c 

R«A 

N.R. 

CKl 

c 

R*A 

N.R. 

• CLW F 

c 

R’*A 

000'68C 


ORT 


c 

,R^ A 

N.R. 

ctf 


c 

R*A 

N.R. 

□ HP S 


R*'A 

OOCAOC 

0K3 

r. 

R’I'A 

N’.R', 


DKA 


c. 

R*A 

N.R. 

CMR 

F 

C 

R*A 

00C9C8 

ELC 

C 

R’I'A 

N.R. 

ELF 

c 

R’i'A 

N-.R. 


EL^ 

' 

c 

■ R*A 

N.R. 

ELT 


c 

R#A 

N.R. 

ENP F 

c 

RiPA 

00C19A 

ENR F 

c 

R’i'A 

OCOilC 


F EH 


c 

- R=»A 

N.R. 

FET 


c 

R*A 

N.R. 

■ FEW 

c 

ftl'A 

N.R. 

GLF 

c 

R=»A 

N.R. 


HES 


c 

P=*A 

■ N.R. 

KCO 


c 

R*A 

N.R. 

LCl S 


I*A 

00C41O 

LC3 SF 


I’i'A 

OOOAIA 


OWE 


c 

B»A 

N.R. 

RFC 

F 

c 

R*A 

00086C 

RMI 

C 

R’I'A' 

N.R. 

RGO 

c 

R’I'A 

N.R. 


-SA5 


c 

RAA 

N.R. 

SA6 


c 

R*A 

N.R. 

SA7. 

r 

R’I'A 

N.R. 

SEE 

r. 

R’I'A 

N';R. 


SFC 

SF 

c 

P#A 

0008SC 

SF.T 


c 

,R#A 

N.R. 

SKT- 

e 

R>PA 

N • R • . 

SKI 

c 

Ri'A 

NiRi-' 


sKz 


■c 

P>*A 

N.R. . 

SK3 


c 

R#A 

N.R. 

'SKA ' 

c 

Ri'A 

N.R. 

SK5 

c 

R’i'A 

N.fi. '■ 


SK6 


c 

PIA 

N.R. 

SK7 


c 

R*A 

N.Ri 

SK8 

c 

R*A 

N.R. 

SK9 

c 

R’i'A 

N.R. - 


SLM 


c 

pi»A 

N.R. 

• • STH 


c 

R*A 

N.R. 

SVT 

c 

' r*a' 

N.R. 

• ’fAF“~ 

c 

R’i'A 

N.R. 


TCR 


c 

R<A 

N • P • 

, tct 


c 

R#A 

N.R. 

TIN SFA 


R’I'A 

00CAL8 

' . TNP F 

c 

R’»A 

0CO8FA 

Vj_ 

ICC 


c 

P=*A 

N.R. ' 

-TVW 


c 

R*A 

N.R. 

ULF 

c 

R’i'A 

N.R. 

- -<VHL 

c 

R’I'A 

N.R. 

1 

VI N 


c 

R*A 

N.R. 

. VPC 

F 

c 

R*A 

OOOOAO 

WAC 

c 

R’i'A 

N.R. 

WCC 

c 

R’I'A 

N.R. ■ 

G\ 

WBP 


c 

R^A 

N.R. 

■ UES 


c 

R*A 

N • R 4 

WFC 

c 

RAA 

N.R. 

wf'e 

c 

R’i'A 

N.R, 


. WFR 


c 

R*A 

N.R. 

WFS 


c 

R*A 

N.R. 

*WFH 

c 

R*A 

N.R. 

WHL 

r. 

R«'A 

N.R, ■ 


WHT 


c 

R«A 

N.R. 

, ViLG 


c 

R*A 

N.R. 

WMC 

c 

R’i'A 

N.R. 

WPC 

c 

R’fcA 

N.R. 


WPH 


c 

R>IA 

N.R. 

WRC 


c 

R*A 

N.R. 

WSC 

c 

R^A 

N.R. 

• WST 

c 

R’I'A 

N.R. 


WTM 


JC_ 

R« A 

N.R, 

hVA 


c 

R«A 

N.R. 

WVT 

r, 

R*A 

N.R. 

XL6 F 

r. 

R’«A 

0009 AC ■ 


XLR 

. F 

c 

R*A 

0009E8 

XLW 

F 

c 

R#A 

0009BC 

XMR 

c 

R*A 

N.R.. 

ALFO SF 


R’«A 

ocoaTc 


ALFR 

SFA 

c 

R#A 

0006A8 

ARHT 


c 

R«A 

N.R. 

ARVT 

c 

R’I'A 

N.R. 

EHPA SFA 

c 

R’I'A 

0CQ650 


BHPP 

F 

c 

P*A 

OOOSCA 

8HPR' 

SFA 

c 

R*A 

00065A 

COHT 

c 

R’I'A 

N.R. 

CDVT 

c 

R’i'A 

N.R. 


CKFF 

F 

c 

R=«A 

000050 

CKHT 


C' 

R*A 

N.R. 

CKVT 

c 

RI'A 

N.R. 

CAMl 

c 

R’i'A ' 



0AH2 


c 

R*A 

N.R. 

CAR3 


c 

R*A 

N.R. 

OAMA 

c 

R’t'A 

N.R. 

CANS 

c 

R*A 

N.R. 


P.EU^. 

F 

JL. 

R>*A 

0003FC 

CELV 

SF 


RAA 

000A20 

CRAG SF 

XF 

R’i'A 

OOCOOO 

DVGL 

r, 

R’l'A 

N.R. 


ELDN 


c 

R*A 

N.R. 

ELCT 


c 

R«A 

N » R • 

. ELHT 

C 

■ 'R’i'A' ' 

N.R. 

ELOA 

c 

R’^A 

N.R. 


ELVT 


c 

P«A 

N.R. 

EFLF 


c 

RvA 

N.R. 

ETAP SF 

c 

R’I'A 

OOC6E8 

ET-AT F 

c 

R’I'A 

000198 


FEHI 


c 

R»A 

N.R. 

FEFL 


c 

R*A 

N.R. 

FEHT 

c 

R’I'A 

N.R.' 

FEVT 

c 

R>*A 

N.R. 


FEWH 


c 

p*A 

N.’R. 

FEWI 


c 

R#A 

N.R. 

GAPl 

c 

R’*A 

N.R. 

GAP2 

c 

Ri'A 

N.R. 


6AP3 


c 

P*A 

N.R. 

GAPA 


c 

R#A 

N.R. 

GAP5 

c 

R’i'A 

N.R. 

GAP6 

c 

R’i'A 

N.R. 


GAP? 


c 

P*A 

N.R. 

FFIN 


c 

R»1<A 

N.R. 

LIFT SF 

XF 

I«A 

OOCOOO 

LTHL 

r. 

I*A 

N.R. 


NEXT 

S 


I»A 

000A2A 

PEFF 

£F 

c 

R*A 

00086C 

PLIN 

c 

RI'A 

N.R. 

RELI 

c 

Ri'A 

N.R. 


RMAX 

F 

c 

P*A 

OOOAIC 

RTCC 

SF 


R’i'A 

OOOA28 

SHPA 

c 

R’I'A 

N* R * 

SHPP F 

c 

Ri'A 

0C0898 


^SHTE 


c 

R< A 

N.R. 

SKTh 


c 

ROA 

N.R. 

SKAC 

r, 

R’i'A 

N.R. 

SKAP 

C' 

R’I'A 

N.R. 


SKCC 


c 

R*A 

N.R. 

SKFS 


c 

R’I'A 

N.R. 

SKFW 

c 

R’I'A 

N.R. 

SKHL 

c 

Ri’A 

N.R. 


SKHT 


c 

R*A 

N.R. 

SKLG 


c 

R’S'A 

N.R. 

SKMC 

c 

R’I'A 

N.R. 

SKPA 

c 

R’I'A 

N • R • 


SKPH 


c 

R>tA 

N.R. 

SKRC 


c 

R*4 

N.R. 

SKSC 

c 

R’i'A 

N.R. 

SKTM 

c 

R’I'A 

N.R. 
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U1 


SKVT 


C 

R44 

N.R. 

SKWP 

SKll 


C 

R*4 

N.R. 

SK12 

SK15 


C 

R44 

N.R. 

SLMH 

SVTW 


C 

R44 

N.R. 

SaTT 

TBTG 


c 

R*4 

N.R. 

TCHT 

TINY 


c 

R44 

N.R. 

T IA2 

TOVh 


c 

R*4 

N.R. 

TWTW 

WFUL 


c 

R»4 

N.R. 

WGSB 

WPRB 


c 

R<4 

N.R. 

VPRG 

WSCA 


c 

R44 

N.R. 

XLBH 

YLS2 

sf 

c 

P44 

0009CC 

aLfcl 

CBARF 


c 

R44 

N.R. 

CEARW 

CPIND 


c 

P*4 

N-P. 

CFAUC 

CPTQT 


c 

R*4 

N • R • 

CRLSi 

CELWF 


c 

R44 

N.R. 

CELWP 

ENPCR 

F 

c 

R*4 

000438 

ETAP2 

FETOT 


c 

R44 

N.R. 

GMCDl 

IDUM3 


c 

144 

N.R. 

ACCPP 

POWER 

SF 

XF 

844 

COOCCO 

PEAL J 

SIGMA 


c 

R*4 

N.R. 

SIGMR 

SKGBl 


c 

R44 

N.R. 

SKGB2 

SKPES 


c 

R44 

N.R. 

SKPRB 

SKSC A 


c 

R44 

N.R. 

SLPVf 

£«£XP 


c 

R44 

N.R. 

SWWET 

T6CRP 

FA 

c 

R44 

0004 FC 

TEEMS 

TCBAR 


c 

R44 

N.R. 

TFETA 

VBARH 


c 

R44 

N.R. 

\EARV 

VGASR 


c 

R*4 

N.R. 

WPAYL 

XLBWC 


c 

R44 

N.P. 

XLIKT 

BhPSUP 

SF 

c 

R44 

000658 

CEARFT 

CLALPF 


c 

R44 

N.R. 

CRSINO 

"delfcr 

F 

c 

R*4 

000424 

CELBTH 

DELWPL 


c 

R»4 

N.R. 

CELWST 

DLVLHL 


c 

R44 

N.P. 

CRGINC 

ELHLOA 


c 

P<4 

N.P. 

ELVLCA 

EXPDRG 


c 

B44 

N.P. 

FECRAG 

G AMD 1 1 


c 

R44 

N.R. 

FULIAC 

INDORG 


c 

1*4 

N.R. 

^IN'ECYL 

INDHUL 


c 

1*4 

N.R. 

INCCPT 

INDPRP 


c 

1*4 

N.P. 

IKEROM 

NETAP4 

SFA 


1*4 

0Q042C 

CFTIND 

REMIND 


c 

BX4 

N.R. 

PFCRHO 

SK6LNT 


c 

P*4 

N.R. 

SKEAVl 

SKVTAR 


c 

R*4 

N.R. 

SSIGMA 

TB8AP4 

FA 

c 

R*4 

000178 

TFETMR 

WBALNT 


c 

B*4 

N.R. 

VFAYLC 




SKVJW 

C R*4 

N.R. . 

SKIO 

_ C 


'SK13"’ 

C" R*4' 

" N.R. 

”■ SK 14 

c 


STPW 

C R*4 

N.R. 

SVTE 

C 


TDHl 

C R*4 

N.R. 

TBF2 

FA C 


tc'ln" 

C R*4 

N.R. 

"TCVT 

C 


000A2C 


TIN4 

WBAL 

WPOS 

ivPRP 

XLGD 

"ATMlV 

CLDES 

CPPAR 

'delta' 


C 

C 

"c" 

c 

c 

"c" 

c 


R’4'4 

R#4 

”Rw4 

R*4 

R*4 

■■R=»4 

R*4 

R*4 

■r*4" 


00C304 

N.R. 

N.R. 

N.R. 

N.R. 

N,R.' 

N.R. 

_ N.R. 
N.R'. 



C 

R*4 

N.R. 

OSWET 

C 

R*4 

N.R. 


C 

R*4 

N.R. 

ETAP4 SF 

C 

R*4 

00C71C 


c 

R*4 

N.R. 

HMAXD 

C 

R*4 

N * R 4 


c 

1*4 

N.R. 

NOXP J 

C 

1*4 

N.P. 


c 

R*4 

N.R. 

RhPMR F 

c 

R*4 

000874 


c 

R*4 

N.R. 

SKAMO 

c 

R*4 

N* R • 


c 

R*4 

N.R. 

SKPDS 

c 

R*4 

N.R. 


c 

R*4 

N.R. 

SKRBF 

c 

R*4 _ 

N.R. 


c 

R*4 

N.R. 

STMAX 

c 

R*4 

N • R • 


c 

R*4 

N.R. 

S2RH0 

c 

R*4 

N.R. 

FA 

c 

R»4 

000164 

TBPOW FA 

c 

R*4 

000530 

FA 

'■ c 

R*4 

0008EC 

TPROP S 

L 

R*4 

00C8F8 


c 

R*4 

N.R. 

VDIVE 

c 

R*4 

N.R. 


c 

R*4 

N.R. 

WPSTR 

c 

R*4 

N.R. 

F 

XF" 

R*4 

OCOOOO 

xlrla 

c 

R*4 

N.R. 


c 

R*4 

N.R. 

CBARVT 

c 

R*4 

N.R- 


c 

R*4 

N.P. 

CTSIGH 

c 

R*4 

N • R • 

F 

c 

R*4 

0006BC' 

CELTAR SF 


R*4 

000438 


c 

R*4 

N.R. 

DLSWSH 

c 

R*4 

N.R. 


c 

R*4 

N.R. 

DSPLMT 

c 

R*4 

N.R . 


c 

R*4 

N.R. 

ETA I NO 

c' 

R*4 

N * R • 


. c 

R*4 

N.R. 

FIXING 

c 

R*4 

N.R. 


c 

R*4 

N.R. 

IBCOMIf F 

XF 

1*4 

_ OOCOOO 


c 

1*4 

0 ' 60 U 2 8 

INDETA 

c 

1*4 

OOC82C 


c 

1*4 

N.R. 

INOQSW 

c 

1*4 

N.R. 


c 

1*4 

N.R. 

IPRIMT 

c 

1*4 

0CC84C 

1 

c 

R*4 

N.R. 

OSWIND 

c 

R*4 

N 4 A • 

1 

c 

R*4 

N.R. 

ROTPOVJ SF 

XF 

R*4 

OOCOOO 


c 

R*4 

N.R. 

SKENV2 

C 

R*4 

N.R. 

t f~ 

c 

R*4 

OdOBAC 

STHETS 

C 

■R*4 

"N-R, 


c 

R*4 

N.R. 

TOLINO 

c 

R*4 

N.R. 


c 

R*4 

N.R, 

XTGTA2 

c 

R*4 

N.R. 


TPAX 
l^ENV 
KPEl 
V.RCA 
XLHL 
"ATMOS' 
CLEYE 
CPPRO 
' DELTH 
ELDOA 
_ FACTR 
ICRUS 
PFET2 
RKAXI 
" SKBAL 
SKPEl 
SKPCA 
■S1>ETH 
TBCLl 
T8SFC 
■ TVCMR 
VGASB 
XLALB 
ALFDES 
C8YLCA 
CYCPRL 
DELV.FC 
OLTAFE 
OYLINO 
ETAP4N 
FNRNL# 
INCCRU 
INCFIX 
INCPCW 
NCRUSl 
PRPIND 
SGTIND 
SKPOSZ 
■"TBCDWI 
VGBOVH 
XTGTA4 



CCKMGN INFORMATION 


NAME CF CCPMCN SLOCK “t * SIZE OF SLOCK CCC9DC HEXADECIMAL BYTES 
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VAR. NAPE 
OPT I.NC 
CSWIND 

TYPE 

RfA 

R*4 

PEL. 'ADCR. 

N.R. 

N.R. 

VAR. PAPE 
KJLiNC 
FIXINC 

TYPE 

RXA 

Rxa 

PEL. AOOR. 

N. R. 
N.R. 

VAR. NAHE 
DYLINO 
ROMtND 

TYPE 

RX4 

RX'4 

REL. AODR.. 

N.R, 

N.R. 

VAR. NAME 
ORGINC 
PRPIND 

TYPE 

RXA 

RXA 

REL. AODR, 

N.R. 

N.R. 


ETAINC 

p#A 

N.R. 

kC 

RXA 

N.R. 

XLBWO 

RX4 

N.R. 

XLRLA ■ 

""■rxa" 

N.R. 


VGBC\h 

R’f'A 

N.R. 

• XLGC 

RXA 

N.R. 

HHAXD 

RX4 

■ N.R. 

RHCRhO 

RXA 

N.R. 


VNC 

PX-A 

OOOOAO 

EPLF 

rxa 

N.R. 

CKl 

RX4 

N.R. 

DELNF 

RXA 

N.R. 


CKf F 

R*A 

OOOOSO 

VDI VE 

RXA 

N.R. 

HDO 

RX4 

N.R. 

RGO 

rxa 

N.R. 


TCC 

R=>A 

N.R. 

GAF 1 

rxa 

N.R. 

SGTIND 

RX4 

N.R. 

ELHLGA 

R*A 

N.R. 


ELVLCA 

R’^A 

N.R. 

GAP2 

RXA 

N.R. 

AR 

RX4 

N.R. 

NS 

RXA 

N.R. • 


TCP 

R#A 

N.R. 

TCI . 

R*A 

N.R. 

SLM 

rxa 

N.R. 

ARFtT 

RXA 

N.R. 


TCFT 

R«A 

N.R. 

VSARF 

RXA 

N.R. 

SLMH 

rxa 

N.R.. 

APVT 

RXA 

N'.R. 


TC\T 

RX<A 

N.R. 

VBARV 

RXii 

N.R. 

SLMVT 

RXA 

N.R. . 

ELDN 

RXA 

N.R. 


6LC7 

R*A 

N.R. 

. ELCCA 

RXA 

N.R. 

CLSWSH 

RXA 

N.R. 

iiSNET 

R*A 

N.R. 


DLVLFL 

R-KA 

N.R. 

DVCL 

RXA 

N.R. 

CBYLOA 

■R*A 

N.R. 

ENR 

R*A 

OOOllC 


■ k\/A 

Rx<A 

N.R. 

CAMl 

px^ 

N. R. 

CAM2 

RXA 

N.R. 

6PR 

rxa ■ 

N.R. 


CAP3 

P*A 

N.R. 

ClEYE 

RXA 

N.R. 

THETMR 

RX4 

N.R. 

XC 

R*A 

N.R. 


XPR 

R#A 

N.R. 

TVCP.R 

RXA 

N.R. 

VT 

RX4 

N.R. 

CTSIGH 

R*A 

N.R. 

- 

T\W 

R*A 

N.R. 

FES 

RXA 

N.R. 

TINY 

RXA 

N.R. 

ETAP2 

RXA 

N.R. 


ETAFAN 

R«A 

000160 

TEEPS 

RXA 

00016A 

TB8APA 

RXA' 

00C178 

GAF3 

RXA 

N.R. 


CAPA 

RX<A 

N.R. 

ENF 

RXA 

000194 

ETAT 

RX4 

00C198 

HC 

R*A 

N.R. 


VC 

RXi^ 

N.R. 

” A7HIV 

RX^ 

N.R. 

CDVT 

RXA 

N.R. 

CDHT 

R*A 

N.R. 


CAPS 

R=»A 

N.R. ' 

CLTAFE 

RXA 

N.R. 

FEDRAG 

rxa 

N.R. 

EXPDRG 

R*A 

N.R. 


ccc 

RX-A 

N.R. 

CLALFF 

RXA 

N.R, 

CKVT 

RXA 

N.R. 

CKHT 

RXA 

N.R. 


CKF 

R^A 

N.R. 

CKF 

RXA 

N.R. 

RELI 

RXA 

N.R. 

TCLN' 

rxa 

N.R. 


TBCLl 

PX-A 

N.R. 

TECDF J 

RXA 

N.R. 

GAPA 

RXA 

N.R. 

WFE 

R*A 

N.R. 


WFUL 

R#A 

N.R; 

CELUFC 

RXA 

N.R. 

DELWP 

rxa 

N.R. 

DELNST 

RXA 

N.R. 

^ 

SKCC 

RX'A 

N.R. 

SKRC 

RXA 

N.R. 

SKSC 

rxa 

N.R. 

SKFW 

RXA 

N.R. 

I 

SKIP 

PX<A 

'N.R. 

SKPCA 

RXA 

N.R. 

SKSCA 

rxa 

N.R. 

SKPC 

RXA 

N.R. 

m 

SKAC 

R*A 

N.R. 

SKFL 

RXA 

N.R. 

SKENVl 

rxa 

N.R. 

SKENV2 

RXA 

N.R. 


SKCEl 

R*A 

N.R. 

SKGB2 

RXA 

N.R. 

SKBLNT • 

R«4 

N.R. 

SKBAL 

. rxa 

N.R. 


SKLG 

RYA 

N.R. 

SKFk 

RXA 

N.R. 

ELF 

RXA 

N.R. 

RPI 

RXA 

N.R. 


SKKP 

RXA 

N.R. 

SKHl 

RXA 

N.R. 

SKVT 

R*4 

N.R. 

SKPRB 

R*A 

N.R. 


PKREF 

RX'A 

N.R. 

SKPF 

RXA 

N.R. • 

SKAMO 

rxa 

N.R. • 

SKAR 

R*A 

N.R. 


SKFA 

R*A 

N.R; 

, SKVTAF 

RXA 

N.R. 

SKPDS 

■"rxa 

N.R. 

SKPDSZ 

R*A 

N.R. 


SKT 

R*A 

N.R. 

SKFS 

RXA 

N.R. 

SKPEI 

RXA 

N.R. 

SKPES 

RXA 

N.R. 


SKI 

RXA 

N.R. 

SK2 

RXA 

N.R. 

0K3 

RXA 

N.R. 

DKA 

RXA 

N.R. 


SK5 

RX'A 

N.R. 

SKA 

RXA 

N.R. 

SKT 

RXA 

N.R. 

SK6 

RXA 

N.R. 


SK9 

P»A 

N.R. 

SKIC 

RXA 

N.R, 

SKll 

RXA 

N.R. 

SK12 

RXA 

N.R. 


SK13 

R*A . 

- N.R. 

SKIA . 

RXA . 

N.R. 

• SK15 

RXA 

N.R. 

PL IN 

rxa 

■N.R. 


GAPS 

R*A 

N.R. 

TCLIKC 

RXA 

N.R. 

XTGTA2 

RXA 

N.R. 

TIN2 

RXA 

N.R. 


TKTh 

' RX'A 

N.R. 

PFET2 ■ 

RXA 

N.R. 

DFLTH 

RXA 

N.R. 

STH 

RXA 

N.R. 


CRSINC 

R'^.A > 

N.R. 

XTGTAA' • 

RXij 

N.R. 

TINA 

RX4 

0003DA 

VIN 

RXA 

NiR. 


■ OELR 

P*A 

0003FC 

RMAX 

RXA 

OOOAIO 

DELFCR 

RX4 

00CA2A 

ENPCR 

R*A 

0C0A38 


OELkFL 

RX'A 

N.R. 

STFF 

RXA 

N.Ri 

HFIN 

RX4 

N.R. 

GAP6 

RXA 

N.R. 


CYCPPL 

RX'A 

N.R. 

FF 

'RXA 

0004BA 

SK3 

RXA 

N.R. 

SKA 

RXA 

N.R. 


■ TEhl 

RX'A 

' N.R. 

■ TBTC ' 

RXA 

N.R. 

TBH2 

RX4 

OOOAE8 

TBCRP 

RXA 

OCOAFC 


T8SFC 

P*A 

000510 

TBFCk 

rxa 

000530 

GAP? 

RX4 

N.R. 

ALFOES 

R*A 

N.R. 


ALFCL • 

RX'A 

0006AA 

ALFF 

RXA 

0006A8 • 

AMU' 

RXA 

0006AC 

BHPA 

RXA 

000650 


BhFF 

RXA 

0006 54 

BHPSUP 

RXA 

0C0658 

BHT 

RXA 

N.R. 

BLP 

rxa'" 

OC0660 


BR 

fiXA 

000664 

ES 

RXA 

N.R. 

BVT 

RXA 

N.R. 

CBARF 

RXA 

N.R. 


CBARFT 

RXA 

N.R. 

CEARVT 

rxa . 

N.R. 

C8ARW 

RXA 

. N.R. 

CCP 

rxa 

N.R. 



CCT 


N.R. 

ccv 

RAF 

N. R. 


CFMO 

R*A 

N.R. 

CFPAP 

RAF 

N.R;. 


CFT 

R«A 

N.R. 

CTF 

RAF 

N.R. 


CLCES 

R>t<A 

N.R. 

CE 

RAF 

N.R. 


Ct- 

R*A 

N.R. 

CSFLM 

RAF 

N.R. 


eL^ 


N.R. 

ELOA 

RAF 

N.R. 


EN 

RKF 

0006EF 

ETAF 

RAF 

0C06E8 


FEEL 

R*F 

N.R. 

FEET 

RAF 

N.R. 


f£\iT 

RF'A 

N.R. 

FEE 

RAF 

N.R. 


Ff' 

P*F 

N.R. 

FF 

RAF 

0C07L8 


GLF 

P*F 

N.R. 

GNCCl 

RAF 

N.R. 


INOCFU 


N.R. 

UCCRG 

lAF 

N.R. 


INOF IX 


N.R. 

INDhUL 

lAF 

N.R. 


INCFCk 


N.R. 

INCFRF 

lAF 

N.R. 


LTFL 

I-XF 

N.R. 

NOCPF 

lAF 

N.R. 


FEFF 

R*F 

000860 

P I 

RAF 

000864 


REALJ 

R*F 

N.R. 

RHFE F 

p*F 

00087F 


SA 

RAF 

N.R . 

SAS 

RAF 

N.R. 


SFC 

RAF 

0008SO 

SEFA 

RAF 

N.R. 


ShTE 

RAF 

N.R. 

SHTE 

RAF 

N.R. 


ST 

RAF 

oooaec 

STHETA 

RAF 

N.R. 


SVTE 

RAF 

N.R. 

SVTE 

RAF 

N. P. 


SWEXP 

RAF 

N.R. 

SWTT ■ 

RAF 

N.R. 


T 

RAF 

0008EO 

TAF 

RAF 

N.R. 


TPAX 

RAF 

N.R. 

TEF 

RAF 

0C08F4 


ULF 

RAF 

N.R. 

VGASE 

RAF 

N.R. 


V 

RAF 

000910 ' 

E 

RAF 

0009 IF 

1 

ECC 

RAF 

N.R. 

E E 

RAF 

N.R. 



EF 

RAF 

000930 

EFC 

RAF 

N.R. 


VsFU 

RAF 

N.R. 

EGSE 

RAF 

N.R. 


hLG 

RAF 

N.R. 

hNC 

RAF 

N.R. 


hPCS 

RAF 

N.R. 

EPE I 

RAF 

N.R. 


WPFG 

RAF 

N.R. 

EPRP 

RAF 

N.R. 


vgPCA 

RAF 

N.R. 

EISC 

RAF 

N.R. 


FTP 

RAF 

N.R. 

EVT 

RAF 

N.R. 


FAC 

RAF 

N.R. 

EENV 

RAF 

N.R. 


XLEF 

RAF 

N.R. 

XLEL 

RAF 

0C0964 


VLS2 

RAF 

0009CO 

tCVE 

RAF 

Ei. R. 


AF 

RAF 

N.R. 

BHPF 

RAF 

000904 


PAGE' "008 


CLW 

RA4 

00G68C 

CP.INO 

RAF 

N.R. 

"CPPRO 

■ RA4 

N.R. 

CPTCT 

RAF 

N.R. 

cv 

RA4 

N.R. 

CX 

RM 

CC06S0 

DELRTH 

RA4 

00068C 

DELTA 

RAF 

N.R. 

■■ ELC' 

RA4 

N.R. 

ELHT 

'RAF" 

N.R. 

ELT 

PA4 

N.R. 

ELVT 

RAF 

N.R. 

FEH 

RA4 

N.R. 

FEFI 

RAF 

N.R. 

“ PET" 

RA'4 

N.R. 

■PETCT " 

raf" 

N.R. 

FEWH 

RA4 

N.R. 

FEET 

B*F 

N.R. 

ETAP4 

RA4 

OOC71C 

GAMOll 

RAF 

N.R. 

H 

RA4 

000818 

IDUP3 

I AF"' 

N.R. 

INDDYL 

IA4 

000828 

INOETA 

1*4 

0C082C 

INDOPT 

IA4 

N.R. 

INDOSE 

I*F 

N.R. 

'I ndrdm" 

1*4 

■■ N.R.' 

1 PR I NT' 

I*F' 

"CCC8FC 

NOXPJ 

IA4 

N.R. 

CEE 

RAF 

N.R. • 

Q 

RA4 

OOC868 

RHO 

RAF 

0C086C 

r' 

RA4 

■'"OOOSTS' 

RN 

■RAF" 

00087C 

SA6 

RA4 

N.R. 

SA7 

RAF 

N.R. 

SHPR 

RAF 

000898 

SHT 

RAF 

N.R. 

“ sigma" 

RAF 

N.R. 

SSIGNA' 

■RAF'" 

O'CCBAC 

STM AX 

RAF 

N.R. 

SVT 

RAF 

N.R. 

SW 

RAF 

N.R. 

SWETH 

RAF 

N.R. 

SEfVJET 

Raf 

N.R. 

S2PhO 

■raf ' 

N.R. 

TC8AR 

RAF 

N.R. 

THETA 

RAF 

0008EC 

TPROP 

RAF 

00C8F8 

Tk 

RAF 

N.R. 

""VGASR ' 

RAF ■ 

' N.R. 

" “ VHL " "■ 

RAF ■ 

N.R. 

W8AL 

RAF 

N.R. 

EBALNT 

RAF 

N.R. 

WEP 

RAF 

N.R. 

WES 

RAF 

N.R. 

WFR 

r'aF 

N.R. 

EFS 

"R'AF" 

N.R. 

WHL 

RA4 

N.R. 

EHT 

RAF 

N.R. 

WPAYL 

RA4 

N.R. 

EPC 

RAF 

N.R- 

■"WPH 

'R*4 

N.R. 

EIPRB 

■ RAF ■■ 

N.R. 

WPSTR 

RAF 

N.R. 

WRC 

RAF 

N.R. 

ESCA 

RAF 

N.R. 

WST 

RAF 

N.R. 

WN 

R*F 

N.R. 

epAylo 

"RAF 

N.R. 

XLALB 

RAF 

N.R. 

XLB 

RAF 

0009AC 

XLR 

RAF 

0C09B8 

XLW 

RAF 

OC09BC 

OMR 

RAF 

■ ooosca 

SI'GMR 

■r'a'f 

N.R. 

SEE 

RAF 

N.R. 






label 

30* 

AECR 

0CC666 

LABEL 

3C1 

ADCP 

CCC67C 

LABEL 

15 

ADDR 

0C06FA 

LABEL 

1 

ADDR 

0C070A 

PAGE 009 


2 

CCC79A 

* 

'C'C'CTCA 

5 

0CO83A 

9 

0008F* 



7 

0CCS2* 

12 

CCCStA 

n 

CC0970 

10 

000986 



8 

OCCSAC 

6 

CCC9CZ 

13 

CC0A84 

1* 

OOOAflC 



300 

CCCB9A 

299 

CCOEAf 







*CFTIONS IN EFFECT* 

NAME= MAIN,CF7=C2,LINECNT=54,SIZE 

=OOOOK. 

r 






*CFTIOKS IN EFFECT# SOURCE , EBCDIC tNCLISl .NCDECK, LOAD, MAP ,NOED IT, ID, NOXREF 


^STATISTICS# SCLfiCE STATEMENTS = 136 .FBOGRAM SfZE = 3C32 

^STATISTICS* NO CIAGNCSTICS GENERATED 


ENQ CF CCMFILATICN ****** 


95K BYTES OF CORE NOT USED 


) 


FORTKAN h 


75.C«7/ll.09.26 



CCFPIlER* 

CFTICNS - 

NA.v£= P A IN, OF I = C2 a IN ECNT = 54, S 1 2E= 

OCCCK, ii 









SCtRCE fEFCCIC 

tNCLIST,NOOECK,LCAC,MAP,NCEDI.X'f IC 

i.NCXREF 

! 



ISN 0002 



SLEFOUTIKE CPL ' 2 .( i C SL £ I 




COOIOOCC 





MEF9ER 

NAFF. ti8KRLS2 



T 


CCC2CCC0 





C 

PAGt I 

INPIT LCCT 

CCCl TFRU 

MTc 



00030000 



ISN 0003 

* 


CCPMON 

CPTINC 

,FLL INC 

rDYLINO 

.CRGJND 

.OSNINC 

,00040000 






IFIXINO 

jKDMNC 

, FF F INC 

.cTAIN'O 

,NC 

.XLB’rtO 

.00050000 






2XLFLA 

,VGECVH 

.>LGC 

tHNAXU 

TTFCT7TD 

TWC 

,00060000 






3EPLF 

,CK1 

,CELNF 

,CKFF 

.VCIVE 

,FCC 

.0007COOC 






4BCC 

,TOC 

,CAF 1 ( 5) 

,SCTINU(12) 

. ELFLOA 

, ELVLOA 

,00080000 






5GAF2( 6) 






C0C90OOO 





c 

PACE 2 

INPLT LCC 

CC51 TFRU 

OlOC 



COICCCCC 



ISN 0004 



CCH40N 

AR 


,TCR 

,TCT 

,SLF 

,00110000 






lARFT 

,ICFT 


,SLMH 

. AFVT 

I TCYT 

, 00120uCO 






2VEARV 

,SLFW 

»ELCN 

,£LOT 

, ELOGA 

.DLSV.SH 

,00130000 






'DShET 

,CL'<LFL 

,CVCL 

tCBYLOA 

, 6NP 

,1(VA 

,00140000 



■** 



4CAM 

• 1 CAF2 

-ENR 

"70 A m3 

TTTETE 

TJvrm — 

,00150000 ^ 






£XC 


,T VCNR 

■,VT 

, CTSIGH 

.TVVi 

,00160000 




.. 


6FES 

,TINY 

,ETAP2 

,ETAP4N 

, TBEK5(5) 

,TB8AP4(51 

,00170000 






7GAF3 






“OOTST5TTOC 





c 

PACE 3 

INPUT LCC ClCl ThRL 140 



C019000C 



ISN 0005 



CCFMON 

CAF4 

, ENF 

, ETAT 

.FC 

.VC 

,00200000 






1A7MY 

,CCU 

TTcft 

,DAM5 

, CLTAFE 

TFecttz:? 

“,"0‘0'2T0'0'OT 






2EXPDRG 

tCCC 

(CLALPH 

tCKVT 

,CKFT 

,CKF 

,00220000 






3CKB 

,BELI 

f TCLN 

jTCCLlCa) 

,TfiCDWI(8) 

,GAP4(4J 

O.023CO0C 





c 

PACE 4 

INPUT LCC 141 

TF"FL 2CC 

NEIGHT DATA 



■ 00240CCO 



ISN 0006 



CCPHON 

NFE 

,vfll 

,OELWFC 

.CELWP 

.CELUST 

,00250000 


__'4 _ 




ISKCC 

tSKRC 

,EK<C 

,SKFW 

, SKTK 

. SKRCA 

,00260000 


1 




2SKECA 

, SKFC 

t'KAC 

,SKHL 

, SKEN’Vl 

. SKEnV2 

,002 7CC00 

1 JL 

cr\ 




3SKCB1 

,SKCE2 

, EKELNT 

rSKBAL 

. EKLC 

, SKU\ 

,00280000 


I—* 




4ELF 

,PMI 

t'KVP 

,SKHT 

,£KVT 

. SKPPS 

,00290000 






5SKR8F 

fSKPh 





MilWtWwwPMMBMi 






6SKPDS 

tSKPCSZ 





,00310000 






7SK1 

*SK2 



lESHHI 

K 

,00320000 







,SK8 

f £KS 

,SK10 

, £KU 

7WU 







9SK13 

,SK14 

f 'K15 

.PUN 

.GAP513) 


0034CGCO 





c 

PACE 5 

INFLT LCC 201 THRU 3C0 




0035000C 



ISN 0007 



CCl'MON 

TCL INC (5) 

,XTCTA2(5) 

.tinTTD 

, IC.Tw( bj 

.PF'ET2'<5) ■■ 

,00360000 






1CELTH(51 ,STH£) 

,CR£1NC(5) 

.XTGTA4C5) 

, TIN4C5) 

. VINC5! 

,00370000 






20ELRI5) 

,PyAX(5) 

,CEIFCRC5) 

.ENPCRCSi 

. CELV-PLC 5) 

, STPC.C5) 

,00380000 






2FF INC 5) 

,CAF£(1C) 





C03500CC 





c 

PACE 6 

INFLT LCC 301 TFRU 4C0 




C04CC0C0 



ISN 0008 



XCFKON 

CYCFFL 

,FF 

.SK3 

,SN4 

.TBFK5) 

,00410000 






• itetTuTT 

,Tbi-2r51 ■ 

, 1B(TPpT5T 

.TeSTtTfFJ 

, TBPCWCIT] 

. GAP 7 160) 

0J4 20001) 





c 

hCRKING 

CCPFCN 





C043C00C 



ISN 0009 



CCFMON 

ALFCES.ALFCL , 

AIFF ,APL, 




00440000 






1 

6FFA, 8FFR , OFPSLF .GET ,ELP,KR,eS, Evt, 



004 5000C~ 



2 CBARF.CEAPFT ,CE/1PVT,C£A Fk,CCP,CCT,COV,CUv,CP INDt CPNUC, CPPAP tCPPRCCOAtCOOO 
3,CFTOT,CRT,CTP,CV,CX,ClCEStCC-t . 0047000C 

4 CELRTHrOcLTA,Ct-,CSPLMl, E LC , £ LhT , cL A , E LC A , £ LT , c LVT , E A , fcT AP , JJCTTSlIXrS'C 

5 f EH,FE(-1 ,FcHL,FEf-T,F£1 ,FETCT,F£VT,FEV.,FEWH, FEWI.FM, FP, ETAP4 C04900CO 

ISN 0010 CCKMON C-AFDi 1 ( 3 , 15 ) , CL F * GP DC 1 ( 16 ) , H, OO5OOOC0 



PAGH C02 


ISN 0011 
ISN 0012 


ISN 0013 
IS.'^ 0014 


ISN 0015 


ISN 0016 
ISN 0017 

ISN ooia 
ISN 001<3 
ISN 0020 


ISN 0021 
ISN 0023 
ISN 0024 
ISN 0025 
ISN 0026 
ISN 0028 
ISN 0030 


ISN 0031 


ISN 0032 
ISN 0033 
ISN 0034 
ISN 0035 


ISN 0043 
ISN 0044 
ISN 0046 


ISN 0047 
ISN 0048 
ISN 0049 


ISN 0050 
ISN 0051 
ISN 0052 


ISN 0053 
ISN 0055 
ISN 0056 


7 ICU N4. IN C CPU> UCC4G,IMCYL , IMJg T A , IND F I X , I NCI-UL , I NDOPT , I NCOSh , 005 1CC CC 

£ INDPtl'n , I NCPHF'J ^^C8 D^' ,'Vf? INT C05200C0 

CCPHON LTK.MCfF.NOF. , C V £ f F EhF , P 1 , Q , kh C t P E F U , SHP VB , P , P ^ C05 3 00CO 

CCPyON SA ,SA5,S46,£i7, SFC tSPFA, SHPk,SHT,ShTE tSHTW, SIGMA,SS1GPA,ST,005400CC 


1STPETA,ST>AX,SU tSVIE,£\U,SV»,SWEThrSKeXP,SV.IT,Skk5T,S2Ri-C 0O5 5OOCO 

CCPNON T,IAP,TCtiP .TPEIA,T«AX,TPP,TPRCP,TR,ULF,VGAS8tVGASB,VHLtV 00560CCO 
CCkPON Vi, V»8AL .kEALNT ,kCC,VE , kEP , WES , WF , UFC , V, PR , WFS , WFW , OC5 7COCO 

1 kCS'B,kFL7khT ,kLG',kPC", k FAVL", kPC,WpT:S , kPE I ,WPF , kPRb , W PRG , V.PRP , UPST R005 8CCCQ 
2fkRC,k'RCA,VsSC.k'CAtkSI . k I P , k T , Mwl , kP AYL C , WAG , k ENV CC5900C0 

CCPMON XLALe,XL£,XL8F,>LK ,XLR,XLW,YLS2,TCVW C06CCC0C 


CCPMON CPPfSICFP.fF.EFfPtSEE CC6CGCC1 

NAFELIST /NCR0S2/ LCl , >LS2 t V ,T r C ,CX, BHPR , BHPA , ELP , CG61COOO 

1 E FPSLF.FF. EN, 1NCE7A,ETAP4 ,R,kfkF,ST CCb2CCQ0 

RTC0=57.2S57755 00620100 

HF=H C062C2CC 

NETAP4 = E7AP4K ♦ C.I 0063C000 

IFdPRIM.KE.U CC TC 3CI C064C0C0 

kFITE(6,3C2)VIMlCRLS) CC65CCCC 

3C2 F C FMAT(7X,«CRU£E AT « , F6 . 1 , 2X , » KKCTS TAS‘/I CO66C000 

3C1 CCMINCE CO67C00C 

IFdPRIM.eC.l ) WFITEIE ,1C05) 0O68C00C 

IF dPRIM.E C.l) kFITEIE ,1CCE) 0068C1CC 

1CC5 FCFKAT(2X,*TIFE*,7X, ' RA^C E • t 5X, • FUEL USEC t 5X , • WE I GHT • , 6 X , • ALT . • ,600690000 

IXf'TEMP* , SX,*TA£* ,5X,» E.F.* ,4X, 'PENF* ,5X,’BHFR» ,4X, * ETAP' ,5X, •NMPP0O7COO0O 

2 • ,6X. 'R.k . ' ,4> , «CL V 007100CO 

32>,'(HCURS) (N.Pl) (PCLNDS) (PCUNDSJ (FEET) I CEG . F0072CC CO 

4) (KT)‘//> 00130000 

1CC8 FCFHAT(37X, ’HULL L 1 F T 1 IX , < MNG L IFT » , 7X, « PCTCR L I FT ■ , 8X , « ALPHA F00730100 
1* ,16X, • ALPHA C/L'/36X, • (FCUNCSl ' ,12X, !( POUNDS )' ,7X, ' t POUNDS 1 * ,1 OX, 007 302 00 


ISN 

0036 

' 1 

ISN 

0037 


ISN 

0039 


ISN 

004C 

1 

ISN 

0041 


ISN 

0042 



2MCEG) * ,17X,MCEG) •//) 

LCl ° 0 

YLS2 ■= 1. - ENFCR d CRLS) /ENP 

V = kIMICKS) 

TEFP = nN4dCRLS) 


ALL ATPCSl F , TESP 1 
F( V. LT . (VFC/SSiGFA ) ) GO TC 1 
= VMO/SSIGFA 


= 1.4 2636 * PHC A \ >» V 

ALL LIFT 

CRAG(ALFR) 


8R=XLe/k 

IF (INOCVL .GT.2 ) GC TC 2 

= T k G CELFCR I ICRUS) 


IF( INDETA ) 3,3,4 
4 TPROP = T 
CALL PCwER 


eFPR = SFFKA3FPF>>C£LRTH*'tL'2 
GC TO 5 

3 ETAP4 = XLINTnEEF5,TE£Af4,V,NETAP4,M) 


IF(M.NE.O) WRITEtC.lCi) INOSGT 
6TAP=ETAP4 

ICl FCFMATdSX, dFIS ERPCR IS IN THE V-ETAP4 TABLE 


C07303C0 

CO74CQC0 

CO750CCG 

0O76CCC0 

00770000 


C078COCG 

007900CC 

0C3CCCC0 


C081CCC0 
00820000 
G083CCCC 


0083C1C0 

00040000 

Gcascccc 


00860000 

0C87CCCC 

000800CC 


00890000 

CC9C0000 

CC91CCCC 


C092C0C0 

CO92O1C0 

SGTINCt • ,12,* ) » >00930000 
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ISN 0057 
ISN 0058 
ISN 0059 
ISN 006C 
ISN 0061 
ISN 0062 
ISN 0063 
ISN 0065 

ISN 0066 
ISN 0067 
ISN 0068 
IS.N 0069 
ISN 0070 
ISN 0071 
ISN 0072 


ISN 0073 
ISN 0074 
ISN 0075 
N 00 

ISN 0078 


ISN 0079 
ISN 0080 
ISN 0082 
ISN 0083 
ISN 0084 


ISN 0086 
ISN 0088 
ISN 0090 
ISN 0091 
ISN 0092 


ISN 0093 


ISN 0094 
ISN 0096 


ISN 0098 
ISN 0100 
ISN 0101 


ISN 0102 
ISN 0103 
ISN 0104 


ISN 0105 
ISN 0106 
ISN 0107 


ISN 0108 
ISN 0109 
ISN 0110 


ISN 0111 
ISN 0112 


ePFR = T » V /< 325.8 * ETAF^i 
6C TO 5 

2 CX = CX ♦ 2. APU * AML =!' 

call RCTFCK 

BhPR = FHFMR/ETAT 

5 ELP = XLINT(TeH2,TECRF .hf5,M) 
IF(M.NE.C)WRIT£(6,102) 1 

1C2 FC PMAT ( 2 2 X , 3 5 h TF I'S" ETR' C R" TS'"I K 
1 22X, 7FSGTINDI, 12,') '/) 

BLF = FAClR{BLPtFF».7F£TA ,FF) 
ELK=BLP 

BHFSUP = ELP * CELRTF * EKPP 

BhPA = EHPSLP * VLS2 

IFIBHPR - 6FPA) t»6,7 

6 8HFA = 8FPR 

0HPSUP = 8HPA/US2 


BLF = BHPSLF/IBHFF ><■ 

SFC = XLIMITEPGW, lESFC t 

IF(M.NE.O) hRI7E(6,103H 


DELFCR(ICRUS)/(PI 


C094C0C0 

009'5COCC 

* DMR « CPR *ENR 100960000 
C097C00C 


^ CC98C0 

0099C00C 

OlOCCOOO 

7 ' 3Tcrrrc(5c“ 

01020000 
C103COOO 
0103010(5“ 
01040000 
01050000 
01060000 
C107COOO 
C10800CC 


itmcnniiiii 


1 22Xt 7FSCTINC(,12,*>»/) 

F=SFC*BHPA*CKFF 


EN= V/F 

IF(INDCVL.LT.3) ALFDL=-9C. 

ALFD=ALFR«R1CC 

PEFF=BHPSLP/T£LHfrEHFF>i‘C£LRTh) 

IFUPRIM.EC.l IVPITE 16 , ICC 1 )ST » R f WF»W,Hf TPP , V » BP t PEHF f BHPP tETAP 
1E\,RN,CIV^ • 

IF(IPRIM^.EC.1HFITEI6.1CC9JXLHL,XLW,XLRfALFC»ALFUL 

IF (LCl.eC.l) CC TC 3CC 

PMAXI = RFAX(ICPLS) 

CELTAR= RFAXI - B 

ICCl FCPMAT(2X,F7.2,2X,F£.l ,2XtF9,0f4Xf F10.0(2 XfF8.0»2XiF 7,2,3X»F6.1 
l.F6.3t2XtF6.3 t2 5itF8«OF 2X tF5.2 t2XtF9.6F2XtF6.3»2XtF5.2) 


1CC9 FCPMAT(34XtFlC.CTllXtFie.Cf7Xf F10.0,llXtF5.Ji»lVXFt-3.l/ 

IFIOELTAfi.GT.CELFdCFLSn GC TO 13 

IFIDELTAR.lE.CElPdCRLS n LCl°l 


IFaCl.EG.lI 

13 DELTAR=CELBdCFlS) 

14 R = R * CELTAR 


V. = h - CELTff/ EN 
V.F = kF+ CELTAP/EN 

ST = ST+ OELTAF/. V . ■ 


GC TO 1 
3C0 RETURN 

• 7 NEXT=l 


V.PITE<6,lC0e> 

10C6 FCRMAT(l5X,47hINSLFFIClEM FCkER AVAILABLE FCR CRUI S E I CRL S2 ) A ) 
CALL CRLSl dCFLS) ! 


RETURN 

ENC 


UllCOOCO 

01110000 


C11300CO 
01140000 


0115010C 

01150200 

0TT55I7JIT 

, C115C4CC 
01150500 

ciisoCTir 

0116CGCC 

O117C0OC 

— ciTS'corr 

,2XO123C0OO 
01240COO 


lFlK£T«»4lll 


012500CC 

012501 00 


012S0300 

C125C40C 


niMaintwi 


0127CC00 

0128COOO 


013C00C0 

0132C000 


01340000 

C1350C00 

■ vs F 


^ mi ^ 

0137CCCC 



®r sov<j TV 



CRUS2 / 


SIZE CF FRCGRAK CC0A66 HEXADECIMAL BYTES PAGE C04 



RAME 

TAG 

TYPE 

AOO. 

^A^E 

TAG 

TYPE 

ACO. 

NA.ME 

TAG 

TYPE 

ACC. 

NAME 

TAG 

TYPE 

ACO. 


F 

SF 


R=C4 

0O03C0 

H 

SFA 

C 

R*4 

000818 

I 

F 


1*4 

0003C4 

M 

FA 


1*4 

0C03C8 


C 

SF 

C 


000068 

R 

SF 

C 

R>»4 

OOC876 

T 

SF 

C 

R #4 

OOCBEO 

V 

SFA 

C 

Rx-4 

0C0910 


u 

SF 

C 

R>»4 

000<314 

AF 


C 

R*4 

N.R. 

AR 


C 

R*4 

N.R . 

6P 

SF 

C 

R«4 

000664 


as 


c. 

R*4 

N.R, 

CB 


c 

R>*4 

N.R. 

CV 


C 

R*4 

N.R. 

CX 

SF 

C 

R*4 

0C36B0 


DH 


c 

R#4 

N.R. 

EN 

SF 

c 

R*4 

0C0t)E4 

FF 

FA 

C 

Rv4 

0CC4B4 

FM 


c 

R*4 

N.P. 


rP 


c 

P«4 

000718 

HC 


c 

R*4 

N.R . 

HH 

SFA 


R>)=4 

00C3CC 

PI 

F 

c 

R*4 

000364 


RK 

F 

c 

R*4 

00087C 

SA 


c 

R*4 

N.R. 

ST 

SF 

c 

RK4 

0CC8B0' 

SW 


c 

R*4 

N.R. 


TR 


c 

R»4 

N.R. 

VC 


c 

R*4 

N.R. 

VT 


c 

R*4 

N.R. 

WE 


c 

R*4 

N.R . 


WF 

SF 

c 

R*4 

000930 

hO 


c 

RW4 

N. R . 

WS 


c 

R*4 

N.R. 

ww 


c 

R^4 

N.R. 


XC 


c 

R*4 

N.R. 

AML 

F 

c 

R*4 

00064C 

BHT 


c 

R>'‘4 

N.R, 

BLK 

SF 


P*4 

OC0300 


BLP 

SFA 

c 

R*4 

000660 

8MR 


c 

R<‘4 

N.R- 

BVT 


c 

R*4 

N.R. 

CCP 


c 

R*4 

N.R.. 


CCT 


c 

■jXjljV 

N.R. 

CCC 


c 

H’(^4 

N.R. 

CDV 


c 

R<'4 

N.R. 

CKF 


c 

R*4 

N.R. 


CKW 


c 


N.R. 

CH 1 


c 

R*4 

N.R. 

CLW 

F 

c 

R’t'4 

OOC68C 

CRT 


c 

R*4 

N.R . 


CTP 


c 


N.R. 

CK3 


c 

R>i<4 

N.R. 

0K4 


c 

R1=4 

N.R. 

OMR 

F 

c 

R*4 

Q009Ca 


ELC 


c 

R^4 

N.R. 






mnnK 1 n 


c 

R*4 

N.R. 

ELT 


c 

lifi il 



EMP 

F 

c 

R*4 

000194 





RSnVIS^^I 



c 


N.R. 

FET 


c 

Q fl 



FEW 


c 

R44 

N.R. 

■HE 


Bl 

B39I 


I a 


c 

R*4 

N.R. 

HCG 


c 

■SE m 



LCl 

S 


M4 

0003C4 

CWE 


c 

RX«4 

N.R. 

RHO 

F 

c 

R*4 

0CC86C 

RMI 


c 

R*4 



RGO 


c 

R»4 

N.R. 

SA5 


c 

R’MA 

N.R. 

SA6 


c 

R't'4 

N.R. 

SA7 


c 

R*4 

N.R. 


SEE 


c 

R«4 

N.R. 

SFC 

SF 

c 

R«4 

OOOB9C 

SHT 


c 

R-H4 

N.R. 

SKT 


c 

R*4 

N.R. 


SKI 


c 

R>»4 

N.R. 

SK2 


c 

R*4 

N.R. 

SK3 


c 

R*4 




c 

R*4 

N.P. 


SK5 


c 

R*4 

N.R. 

SK6 


c 

R#4 

N.R. 

SK7 


c 

R*4 

H9Q^H 



c 

R*4 

N.P . 


SKS 


c 

R *4 

N.R. 

SLM 


c 

R^<4 

N.R. 

STH 


c 

R’i'4 




c 

P.*4 

N.R. 


TAP 


c 

R=»4 

N.R. 

TCP 


c 

R*4 

N.R. 

TCT 


c 




F 

c 

R*4 ■■ 

Q008F4 


TOG 


c 

R#4 

N.R. 

TVW 


c 

R’t'A 

N.R. 

ULF 


c 

R«4 

N.R. 



c 

R*4 

N.R. 

J 

VIN 

F 

c 

R#4 

0003E8 

VMC 

F 

c 

R*4 

000040 

WAC 


c 

R«4 

N.R. 



c 

R*4 

N.R. 

t 

WEP 


c 

R*4 

N.R. 

WES 


c 

R*4 

N.R. 

HMBIQ 




^msBiin 






a^ 

WFR 


c 

R»4 

N.R. 

1>FS 


c 

R«4 

N.R. 











4^ 

WHT 


c 

R+4 

N.R. 

VsLG 


c 

RV4 

N.R. 






WPG 



■SI 



WPH 


c 

R)»4 

N.R. 




|3zn 




a 

bsem 

N.R. 

WST 


a 

R*4 



WTM 


c 

R*4 

N.R. 








c 

R*4 

N.R. 

XLB 

F 

c 

R*4 

0009AC. 


XLR 

F 

c 

R*4 


In 




RtnninH 



c 

R>!‘4 

N.R. 

ALFO 

SF 


R*4 

QC03D8 


ALFR 

SFA 

c 

R<4 

000648 

ARHT 



I3EI 




c 

R«4 

N.R. 

BHPA 

SF 

c 

R*4 

OC0650 


BHPP 

F 

c 

R#4 

0009C4 

PFFR 







c 

R»4 

N.R. 

CDVT 


c 

R*4 

N • R • 


CKFF 

F 

c 

R*4 

000050 

CKHT 







c 

R*4 

N.R. 

CAMl 


c 

R*4 

N.R . 


0AM2 


c 

R=*4 

N.R. 

CAMS 


c 

Rc^A 

N.R. 

CAM4 


c 

Rv4 

N.R. 

CAMS 


c 

R*4 

N.R. 


DELR 

F 

c 

R=«4 

0003FC 

CRAG 

SF 

XF 

R*4 

oooooc 

DVOL 


c 

R*4 

N.R. 

ELON 


c 

R*4 

N.R. 


ELOT 


c 

P*4 

N.R. 

, ELHT 


c 

R>i«4 

N.R. 

ELGA 


c 

R<<4 

N.R. 

ELVT 


c 

R*4 

N.R. 


EHLF 


c 

R->4 

N.R. 

ETAF 

SF 

c 

R*4 

0006E8 

ETAT 

F 

c 

R*4 

00C198 

FEHI 


c 

R*4- 

N.R. 


FEHL 


c 

R*4 

N.R. 

FEFT 


c 

R*4 

N.R. 

FEVT 


c 

RX-4 

N.R. 

FEWH 


c 

R*4 

N.R. 


FEWI 


c 

R*4 

N.R. 

GAPl 


c 

R^4 

N.R. 

GAP2 


c 

R*4 

N.R. 

GAP3 


c 

R«4 

N.P . 


GAP4 


c 

R*4 

N.R. 

GAPS 


c 

R#4 

N.R. 

GAP6 


c 

R*4 

N.R. 

GAP7 


c 

R*4 

N.R. 


HFIN 


c 

R«4 

N.R. 

LIFT 

SF 

XF 

I #4 

OCCOOO 

LTHL 


c 

1*4 

N.R. 

NEXT 

S 


1*4 

0003DC 


PEHF 

SF 

c 

R<4 

000860 

FLIN 


c 

R>!=4 

N.R. 

FELT 


c 

R*4 

N.R. 

PMAX 

F 

c 

R*4 

0C0410 


RTQD 

SF 


R#4 

0003EC 

SFPA 


c 

R>i=4 

N.R. 

SHPR 

F 

c 

R*4 

OOC893 







SHTW 


c 

R^4 

N.R. 

SKAC 


c 

R*4 

N.R. 

SKAR 


c 

R*4 

N.R. 

SKCC 






SKF$ 


c 


N.R. 

SKFW 


c 

R‘(‘4 

N.R- 

SKHL 


r. 

fi*4 

N.R. 

SKHT 






SKLG 


c 

R>»4 

N.R. 

SKMC 

■m 




SKPA 


c 

R*4 

N.R. 

SKPK 


c 

R*4 

N.R. 


SKRC 


c 

R44 

N.R. ■ 

SKSC 





SKTM 


c 

R*4 

N.R. 

SKVT 


c 

R*4 

N.R. 


SKWP 


c 

R*4 

N.R. 

SKWW. 


■M 



SKIO 


c 

R*4 

N.R. 

SKll 


c 

R*4 

N.R. 
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SK12 


C 

R*4 

N.R. 

SK12 


C 

R«4 

N.R . , 

SK14 


C 

R’OA 

N.R . 

SK15 

C 

R*4 

N-P , 


SLWH 


c 

R^A 

N.R, 

STPH 


C 

R’^A 

N.R. 

SVTE 


C 

K'i'A 

N.R. 

SVTW 

C 

R«4 

N.R. 


SWTT 


c 

P>»A 

N.R. 

THHl 


C 

R«A 

N.R. 

TBM2 

FA 

c 

R>!<4 

OOC4E8 

TNTC 

C 

P*4 

N.P. '' 


TCHT 


c 

R*4 

N.R. 

. TCLN 


c 

R»A 

N.R. 

TCVT 


c 

R^A 

N.R. 

,TEHP SFA 


R*4 

0C03E4 


TIMY 


c 

P*A 

N.R. 

T IN2 


T” 

~R«A 

N.R. 


~T~ 

c~ 

ft*4 

■ ri 1 III mm 

TFTSx 

C 

K£Za 

Hagm 


TOVW 


c 

R»A 

N.R. 



C 

R*A 

N.R. 

WilAL 


c 

RH4 

N.R. 

NENV 

C 

R»4 



WFOL 


c 

B’JA 

N.R. 

HCSB 


c 

RiOA 

N.R. 

NPDS 


c 

R*4 

N.P. 

WPFI 

C 

R*4 



WPRB 


c 

r5>a 

N.R. 

H P'RG 


c‘ 

R*A" 

N.R. 

WPR'P 


IT 

"R«4" 

N.R. 

kkCA 

~C~ 

k«4"' 

N • k . 


WSCA 


c 

RfA 

N.R. 

XL6H 


c 

R>^A 

N.R. 

XLGD 


c 

R«4 

N.R. 

XLHL F 

C 

k*4 

0009B4 


YLS2 

SF 

c 

R»4 

OOOSCO 

ALFDL 

SF 

c 

R«A 

0006AA 

AT.vjlY 


c 

R’i'4 

N.R. 

ATMCS SF 

XF 

R*4 

OCOOOO 


CB AR F 


c 

R#A 

N.R. 

CEARV 


C” 

R>»=A 

N.R. 

CraTT' 


~c~ 

R*4"' 

— KTrr: — 

CTFYl 

C 

maaim 



CPIiNO 


c 

8‘i'A 

N.R. 

CFNUD 


C 

R«A 

N.R . 

CPPAR 


. c 

R*4 

N.R. 

CPPRC 

C 

R*4 



CPTCT 


c 

R*4 

N.R. 

CRLSl 

SF 

XF 

RKA 

OCOCOO 

CRUS 2 



R^A 

OOC3S8 

DELTA 

C 

P*4 



CELTH 


c 

R*A 

N.P. 

CEThF 


C 

R*A 

N.R. 

CfEUwP 


c 

fti=A 

N.R. 

CTSvTFT 


■■RV4'“ 

N . RT " ' - ' 


ELOOA 


c 

R#4 

N.R . 

ENPCP 

F 

C 

R*A 

000436 

ETAP2 


c 

R*A 

N.P. 

ETAP4 SF 

c 

P*4 

00071C 


FACTS 

F 

XF 

P*A 

OOOCCO 

FETCT 


G 

R>^A 

N.R. 

GHDOl 


c 

R*A 

N.R. 

HMAXO 

c 

R*4 

N.R. 


ffRUS" 

S f A 


I »4 

0003EC 

rcuHA 


c~ 


FTTfr: 

FTOTP'P" 


~T~ 

I»4'" 

RTIT. 

NUXFU 

L 

1*4 

N.R . 


PFET2 


c 

B>f4 

N.R. 

FCUER 

SF 

XF 

R«A 

000000 

REALJ 


c 

R-»A 

N.R. 

RHPMR F 

c 

R«4 

000874 


RMAXI 

SF 


R=»4 

OOO3F0 

SIGMA 


C 

R*A 

N.R. 

SIGMR 


c 

R*A 

N.R. 

SKAT'D 

c 

R*4 

N.R. 


SKbAL 


c 

R*4 

N.R. 

SKC’iJl 


C 

R>NA 

N.R. 

SKGb2~ 


c~ 

ROA 

N.ft. 

SKPC5 

-TT" 

R*4 

N.R. 


SKPEI 


c 

R>f4 

N.R. 

SKPES 


C 

R>i‘A 

N.R. 

SKPRB 


c 

R#A 

N.R. 

SKP6F 

C 

R*4 

N.R. 


SKRCA 


c 

R*4 

N.R. 

SHSCA 


C 

i<*A 

N.R. 

SLMVT 


c 

R*A 

N.R. 

STMAX 

C 

R*4 

N.R . 


SMETH 


c 

R^A 

N.R. 

s~rt'exp 


c 

R’«<A 

N.R. 

Swy.EY 


~ir 

R#A 

N.R. 

s2R"riC 

ET" 

~R*4 

N.R. 


T8CL1 


c 

R«4 

N.R. 

TECRP 

FA 

c 

R*A 

OOOAFC 

TBEM5 

FA 

c 

R*A 

00C164 

TBPOU FA 

C 

R*4 

00053C 

- 

TDSFC 

FA 

c 

R*4 

000510 

TCEAR 


c 

R#A 

N.R. 

theta 

FA 

c 

R#A 

OOC8SC 

TPROP S 

C 

R*4 

0008F3 


TVCMR 


c 

RX4 

N.R. 

VEAkH 


c 

R*A 

N.R. 

VBARV 


iT~ 


N.R. 

yen Vt 

c~ 

' R*4 

;<.R. 


VGASB 


c 

R>^4 

N.R. 

VGASR 


c 

R*=A 

f'J • R • 

hPAYL 


c 

R*A 

N.R. 

NPSTR 

c 

R*4 

N.R. 

1 

XLALB 


c 

R>*4 

N.R. 

XLEUC 


c 

R*A 

N.R. 

XLINT 

F 

XF 

R*A 

OOCCOC 

XLRLA 

c 

R*4 

N.R. 

I 

A LFDES 


c 

R*4 

N.R. 

EH‘f STTP 

SF 


R*A 

“CraTJbTS 

CBARHT 


c~^ 

"Ri<A 

— rttt; — 

— CB'APTT 

~z~ 

-R-ETT- 

NTP"; ^ 

o> 

(Jt 

CGYLOA 


c 

R*4 

N.P. 

CLALFH 


c 

R*A 

N.R. 

CRSINO 


c 

R>f‘A 

N.P. 

CTSIGH 

C 

R*4 

N.R. 


C VCPKL 


c 

R«4 

N.R. 

CELFCR 

F 

c 

R#A 

000424 

CELRTH 

F 

c 

R*A 

00C6BC 

DELTAS SF 


R“4 

0003F4 


OELWHC 


c 

RwA 

N.R. 

CELUFL 


— CT 

R*A 

N.R . 

o’CLwrr" 


c~ 

■■■R'itiA" 

N.R. 

L7L Sk SH 

~T~ 


n';r. 


OLTAFE 


c 

R>(>A 

N.R. 

CLVLHL 


c 

R>>‘A 

N.R. 

CRGINO 


c 

R'i'A 

N.R. 

DSPLMT 

C 

R*4 

N.R. 


OYLIND 


c 

R»4 

N.R. 

ELHLCA 


c 

R*A 

N.R. 

ELVLQA 


c 

RAA 

N.R. 

ETAINO 

c 

R*4 

N.R. 


ETAPA'K 

F 

c 

R*4 

000160 

EXPDRG 


■ c 

Rl^A 

N.R. 

FEDRAG 


~c~ 

R*A 

— NTir: — 

Fixing 

~c~ 

ft'*4 '■ 

N.R. 


CtAMDU 


c 

R#4 

N.R. 

HULIND 


c 

R*A 

N.R. 

ISCOH« 

F 

XF 

1*4 

oocooo 

INCCRU 

c 

I«4 

N.R. 


INDDHG 


c 

I»4 

N.R. 

INCCYL 


c 

IKA 

000028 

INOETA 


c 

1*4 

OOC62C 

INCF IX 

c 

1*4 

N.R. 


INDhUL 


c 

I#4 

N.R. 

INCCPi 


-r 

I =*4 

N.R. 

INTOSW 


~ir 

f*T" 

N.R. 

rNTTPew 

c~ 

”1*T~ 

— NrRn 


IKOPPP 


c 

I#4 

N.R. 

IHCPDM 


c 

UA 

N.R. 

INDSGT 

F 


1*4 

0CC3F3 

IPRINT 

c 

1*4 

OC084C 


.MCRUS2 




OOOOCO 

HETAP4 

SFA 


I*A 

0003FC 

OPTIND 


c 

R*4 

N.R. 

OSklNO 

c 

R*4 

N.R. 


PRPIND 


c 

R#A 

N.R. 

FCH IND 


c 

RWA 

N.R. 

■■SCQIilQI 




!^7ir, 


TF" 


-UOTO'QU = 


SGTIMD 


c 

R«A 

N.P. 

SKELM 


c 

R*A 

N.R. 

SKENVl 


c 

R*4 

N.R. 

SKENV2 

c 

R*4 

N.R. 


SKPDSZ 


c 

R-SA 

N.R., 

SKVTAR 


c 

R’i'A 

N.R. 

SSIGMA 

F 

c 

R*4 

00C84C 

STHSTA 

C 

R*4 

N.R. 


TECDril 


c 

R*4 

N.R. 

^EEAPA 

FA 

c 



TFTETTTfr" 


IT” 

R*4 

pmr: 


~C~ 


N.R. " -■ 


VG80VH 


c 

P^4 

N.R. 

HBALNT 


c 

R*A 

N.R. 

kPAYLO 


c 

R*4 

N.R. 

XTGTA2 

C 

R*4 

N.R. 


XTGTAA 


c 

R>>4 

N.R. 
















CCf'MCN ^NFOf^MATIC^ **-**»■ 


NAME CF CCFNCN BLOCK =* 


4 


SUE CF BLOCK 


0009DC HEXADECIMAL BVTBS 
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VAR. NAf^E 

TYPE 

PEL. AOCR. 

VAR. AAF E 

TYPE 

REL. AOOR. 

VAR. "JAME 

TYPE 

REL. AOCR. 

VAR. NAME 

TYPE 

REL. ADOS. 


OPTING 

F#A 

N. P. 

FULINE 

RAA 

N. R. 

GYLI.NO 

iiigm 

N.R. 

ORGIND 

R«A 

N.R. 


QSVilNC 

P-S-A 

N.P. 

FIXING 

RXA 

N.R. 

RDHIND 


N.R. 

PR FIND 

R*4 

N.R. 


ETflIND 

R*A 

N.B. 

ViC 

RXA 

N.R. 

XLbWO 

HsRi 

N.P. 

XLPLA 

R*4 

N.R. 


VGBCVh 

R*a 

N.R. 

XLCC 

R*A 

N. R- 

HMAXO 


N.R. 

RHORHO 

RA4 

N.R. 


VNC 

P’i'A 

OOOCAC 

EPLF 

RXA 

N.R. 

CKl 

P*4 

N.R. 

DFLhF 

P.*4 

N.R. 


CKFF 

R*A 

00CO50 

VCIVE 

RX-A 

N.R. 

mo 

PA4 

N.R. 

RGO 

RA4 

N.R. 


TCC 

p«A • 

N.K. 


RXA 

N.R. 

SGTINO 

R A4 

N.R. 

ELHLCA 

R=*A 

N.R. 


ELVLCA 

P*A 

N.R. 

GAPE 

raa 

N.R. 

AR 

RA4 

N.R. 

WS 

RA4 

N.R. 


TCP 

R>i<A 

N.R. 


BAA 

N.R. 

SLM 

RA4 

N.R. 

ARHT 

R*A 

N.R. 


TCPT 

R«A 

N.P. 


KUfl 

N.R. 

SLMH 

RA4 

N.R. 

APVT 

RA4 

N.R. 


TCVT 


N.R. 

VEARV 

RAA 

N.R. 

SLMVT 

PA4 

N.R- 

ELON 

RA4 

N.R. 


ELCT 



ELCCA 

RAA 

N.R. 

CLSVxSH 

RA4 

N.R. 

DShET 

RAA 

N.R, 


DLVLI-L 



WKmSBEM 

RAA 

N.R. 

CBYLOA 

RA4 

N.R. 

ENP 

RX-A 

0001 LC 


NVA 

■SI 



RAA 

N.R. 

CAM2 

RA4 

N.R. 

EMR 

R*4 

N.R. 






RX A 

N.R. 

THETMR 

RA4 

N.R. 

XC 

RA4 

N.R- 


NPR 

R*A 

Ni.P. 

TVCMR 

RAA 

N.P. 

VT 


N.R. 

CTSIGH 

RAA 

N.R. 


TVN 

P*A 

N.P. 

FES 

pAA 

N.R. 

TINY 

RA4 

N.R. 

ETAP2 

RX!A 

N.R. 


ETAPAN 

p*A 

000160 

TBEF5 

RAA 

0C016A 

TB8AP4 

R*4 

00C178 

GAP3 

R*A 

N.R. 




■hvqb^b 

ENF 

raa 

0CQ19A 

ETAT 


00C198 

hC 

Ra4 

N.R. 





ATMIY 

RAA 

N.R. 

CDVT 

RA4 

N.R. 

CDHT 

RAA 

N.R. 





CLTAF £ 

RAA 

N.R. 

FEGRAG 

BA4 

N.R. 

EXPDRG 

RAA 

N.R. 


ccc 

R*4 

N.R. 

CLALFF 

RAA 

N.R. 

CKVT 

RA4 

N.R. 





CKF 

R*A 

N.R. 

CKV 

RAA 

N.R. 

PEL I 

RA4 

N.R. 



N.R. 

— 

TECL 1 

R-»A 

N.R. 

TECCF ! 

RAA 

N.R. 

GAP4 

RA4 

N.R. 


HU 

N.R. 


WFU 

P*A 

N.R. 

CELNFC 

raa 

N.R. 

DELWP 

RA4 

N.R. 

DELkST 

RA4 

N-S. 


SKCC 

R^A 

N.R. 

SKRC 

RAA 

N.R. 

SKSC 

RA4 

N.R. 

SKFVx 

RA4 

N.R. 

— — 

SNTP 

R*A 

N.P. 

SKRCA 

RAA 

N.R. 

SKSCA 

RA4 

N.R. 

SKMC 

RA4 

N.R. 

1 

SKAC 

R#A 

N.P. 

SKFL 

RAA 

N.R. 

SKENVl 

RA4 

N.R. 

SKENV2 

Raa 

N.R. 

a\ 

SKGEl 

P»A 

N.P. 

SKGBZ 

RAA 

N.R. 

SKBLNT 

PA4 

N.R. 

SKOAL 

RAA 

N.R. 

<T» 

SKLG 

P*A 

N.P. 

SKUF 

paa 

N.R. 

ELF 

RA4 

N.R. 

P.vi 

raa 

N.R. 


SKNP 

R*A 

N.P. 

SKFT 

RAA 

N.R. 

SKVT 

R*4 

N.R. 

SKPRB 

RAA 

N.R. 


SKBEF 

R*A 

N.R. 

SKPF 

pA/i 

N.R. 

SKAMD 

PA4 

N.R. 

SKAR 

RAA 

N.R, 


SKFA 

R>>A 

N.R. 

SKVTAF 

RAA 

N.R. 

SKPDS 

BA4 

N.P. 

SKPDSZ 

RAA 

N.R. 


SKT 

R>»A 

N.R. 

SKFS 

■ RAA 

N.P. 

SKPEI 

RA4 

N.R. 

SKPES 

R*4 



SKI 

R^ A 

N.R. 

SK2 

RAA 

N.R. 

0K3 

RAA 

N.R. 

CK4 

RAA 


■* 

SKS 

fiX-A 

N'i R . 

SK6 

RAA 

N.R. 

SK7 

PAA 

N.R. 

SK8 

R»A 



SKG 

R#A 

N.R. 

SKIC 

■ RAA 

N.R. 

SKll 

RAA 

N.R. 





SK13 

px-A 

N.R. 

SKIA 

RAA 

N.R. 

SK 15 

RAA 

N.R. 


IS 1 

N.R. 


GAF5 

RX'A 

N.R. 

TCLINC 

Raa 

N.R. 

XTGTA2 

RAA 

N.R. 

TIN2 


N.R. 


TVTU 

P*A 

N.R. 

FFET2 

RAA 

N.R. 

DELTH 

RAA 

N.R. 

STH 

RX4 

N.P. 


CPSINC 

R«A 

N.P. 

XTGTAA 

raa 

N. R. 

TIN4 

RAA 

00C3OA 

VIN 

RA4 

0003E3 


DELR 

R« A 

0003 FC 

PPA> 

raa 

OCOAIO 

DELrCR 

RAA 

OOCA2A 

ENPCR 

R«4 

000438 


DELNFL 

R#A 

N.R. 

STFN 

RAA 

N.R. 

HFIN 

RAA 

N.R. 

GAP6 

RA4 

N.R. 


CYCPPL 

R»a 

N.R. 

FF 

RAA 

OOOABA 

SK3 

PAA 

N.R. 

SKA 

RAA 

N.R. 


TBHl 

RXA 

N.R. 

TETC 

raa 

■■N.R. 

, T3H2 

RAA 

00CAE8 

TBCPP 

RA4 

0004FC 


' TBSFC 

R«A 

000510 

TbFCF 

raa 

0C0530 


RAA 

N.R. 

ALFCES 

RA4 

N.R. 


ALrCL 

P=»A 

Q006AA 

ALFF 

RAA 

000&A8 

AMU 

RAA 

OOC6tC 

BHPA 

raa 

000650 



8HFR 

RXA 

000654 

EHPSLF 

RAA 

000650 


RAA 

N.R. 

BLP 

R*4 

000660 


ER 

RX'A 

00066A 

ES 

RAA 

N.R. 

BVT 

RAA 

N.R. 

CBARF 

PA4 

N.R. 


CEAPhT 

R*A 

N.R. 

CEAFV7 

RA4 

N.R, 

CBARW 

RAA 

N.R, 

CCP 

RA4 

N.R. 


CCT 

R*A 

N.R. 

CCV 

RAA 

N.R. 

CLW 

RAA 

00068C 

CPIND 

RAA 

N.R. 














CPNLC 

R4A 

N.R. 

CPFAF 

R*4 

N.R. 


CFT 

R*A 

N • R • 

CTf 

R*4 

N.R. 


CLCES 

Pl'4 

N.R. 

CE 

R*4 

N.R. 


CP 

R*4 

N.R. 

CSFLM7 

R*4 

N.R. 


ELN 

P*A 

N.R. 

ELCA 

R*4 

N.R. 


EN 

R*-i 

0006 E4 

ETAP 

R*4 

0C06E8 


FEU 

R=*4 

N.R. 

FEF7 

R#4 

N • K • 


FEW 

P*A 

N.R. 

FEV 

R*4 

N.R. 


FP 

R*<( 

N.R. 

FF 

9*4 

0C0718 


CLF 

R*A 

N.R. 

C-RC: 1 

R*4 

N.R. 


INOCKL 


N.R. 

INCCRC 

I»4 

N.R. 


INDF IX 


N.R. 

INDFUL 

1*4 

N. R. 


INOPCF. 

1*4 

N.R. 

INCPRF 

1*4 

N.R. 


LTFL 

1*4 

N.R. 

NCCFF 

1*4 

N.R. 


PEFF 

R*4 

00086C 

F I 

R*4 

000864 


REALJ 

R*4 

N.R. 

R h F K R 

R*4 

000074 


5A 

P*4 

N.R. 

SA5 

P*4 

N • • 


SFC 

R*4 

000890 

SFPA 

R*4 

N.R. 


SFTE 

R*4 

K • P 4 

ShTV 

P*4 

N.R. 


si 

P*4 

0008EC 

TTfeta 

R*4 

N.R. 


SV7E 

R*4 

N.R. 

S\,TF 

P*4 

N.R. 


SWEXP 

R*4 

N.R. 

SVv77 

R*4 

N.R. 


T 

R*4 

0008EC 

TAF 

R*4 

N.R. 


TKAX 

fi*4 

N.R. 

TNF 

R*4 

0008 F4 


ULF 

R*4 

N.R. 

VGASE 

R*4 

N.R. 


V 

R*4 

000910 

Vs ■ 

B*4 

000914 


UCC 

R*4 

N.R. 

VsE 

R*4 

N.R. 


FF 

R*4 

000920 

VsFC 

B*4 

N.R. 


kFF. 

R*4 

N.R. 

pjrE 

R*4 

N. fT; 

-o 

Vs LG 

R*4 

N.R. 

VsMC 

R*4 

N.R. 


VsPCS 

R*4 

N.R. 

VsFEl 

R*4 

N.R. 


WFFG 

R*4 

N.R. 


P*4 

N.R. 


WRCA 

R*4 

N.R. 

VsSC 

R*4 

N.R. , 


WIF 

R*4 

N.R. 

VsVT 

R*4 

N.R. 


VsAC 

R*4 

N.R. 

VsENV 

R*4 

N.R. 


XLBH 

R*4 

N.R. 

XLK 

P*4 

OQ09D4 


YLS2 

P*4 


TCVl- 


N.R. 


AF 

R*4 

N.R. 

BHFF 


0009 04 


0009 D4 


PcWH 
6TAP4 
H 


NDOY 
INOOPT 
INDI^DM 


NOXPJ 

Q 

R 


M 

SW 

SWWET 


^.R. 

is:.R. 


N.R. 

00086B 

00C878 

— frrrr 

00G893 

N.R. 


INDOSW 

IPRIKT 


SHT 

SSIGf'A 


V I 

SWETH 

S2RHC 


1*4 N.R. 
1*4 00084C 
17*4 N. R. 
R»4 0C086C 
R*4 00087C 


N.K. 

R * N • R • 

R*4 0CC8AC 









LABEL ACER 


LABEL ACCR 


LABEL ACOR 


LABEL ABOR 


PAGE 008 


SOI 0CC5CC 


2 0C.C156 

14 0CC9C6 


CCC666 


CCC79E 
3CC CCCACC 


4 CC06C6 


6 C00812 

7 CC0AC8 


3 0006F2 

13 0009BE 


*CP7I□^S IN EFFECT* 


*CFTIONS IN EFFECT* 


^STATISTICS* 


E= NAIN,CFT=C2tL INECM = 54 ,S IZE=OCCCK . 
SOURCEtEBCCICtNCLIST.FCCECK.LOADiMAP.NCED IT , ID ,NOXRE'F 


SCLRCE STATEt'ENTS = 


Hi , PROGRAM SIZE = 


*STATISTICS* NO DIACNCSTICS GENERATED 





LEVEL 21.7 C JAN 73 
CCFPILER 

) 

CFTICNS “ 

□S/360 FORTRAN H 
NAPE= yAIN,0RT=C2,LlNECNT=54,SIZE= 

OCCCK, 



ISN 0002 

SCUPCE TEECCIC,NCLIST,NOOECK,LGAi;,MAP,NLtLJn , 
■ SLBROUTINE CRLS2 (ICPLSl 
Ct*** KEPBER MANE BE1CPLS3 

ID,NCXREF 



C 

PACE 1 

INPUT LCC 

CCOl TFFU 

0050 




ISN 0003 


CCPMON 

CPTINC 

,FU1NC 

,DYLIND 

.CRGIND 

,OSNINC 

,1 



IFIXIND 

,RDRINC 

,FPFINC 

.ETAINO 

,W0 

fXLBWQ 

_t 



2XLPLA 

,VGBC\H 

,>LCD 

,HPAXD 

, FhCRHO 

, VMC 




3EPLF 

,CK1 

♦CELWF 

,CKFF 

,VCIVE 

,hCC 

f ' 



4P0C 

, TOC 

,CAF1(5) 

,SGTIND(12) 

.ELhLOA 

,ELVLOA 

f 



5GAF2(6j 








c 

PAGE 2 

INPUT LCC 

CC51 THRU 

OIOC 




ISN 0004 


CCPMON 

AR 

,W$ 

,TCR 

,TCT 

,SLF 

f 



lARFT 

,TCFT 

,VEARH 

,SLKH 

, APVT 

,TCVT 

f ' 



2VBARV 

,SLFVT 

,ELCN 

,£LDT 

,ELCOA 

,OLSkSH 

f 



3DSWET 

,CLVLFL 

,CVCL 

,CBYLQA 

, ENR 

,WVA 

t_ 



4CAM 

,CAP2 

,EPF 

,DAM3 

iCLEYE 

, TF ETMR 

f 



5XC 

,XFR 

,TVCPR 

tVT- 

tCTSIGH 

,TYW 

f 



6FE£ 

,TINY 

,ETAF2 

,ETAP4N 

,TaEM5<5) 

,T88AP4(5) 

t 



7GAP3 








c 

PAGE 3 

INPUT LCC CICI THRU 

140 




ISN 0005 


CCPMON 

CAP4 

,ENf 

,ETAT 

^FC 

,VC 



DATe 75. lCC/15.24.00 


lATMV 

SeXFDRG 

JCK_X 

PACe 4 


fCDVT 

fCCC 

fPELI 

iNFLf "ICC 


,CCHT 

.CLALPh 

,^CL^ 

14X IhPL 2'CC 


tu»ri3 »ULi«rc trcut'Hu 

,CKVT ,CKhT ,CKF 

,TBCLH8) tiecownsj ,GAP4(4) 
WEIGHT DATA" 


OOOIOOCO 

C00200C0 

■ C003000C' 
,00040QCC 
,CC05CCC0 
,C0Q60CC0 
,00070000 
,00080000 
'OOCSCOCO 

COICOOCO 

,00110000 

,0012C0C0" 

,00130000 

,001A0000 

^00150000'' 

,00160000 

,00170000 

■ 00180000 
CC19OC00 

,00200000 
',00210000 
,00220000 
00230000 
" C024CCC0' 


*vl 

ISN 

0006 


CCFMON 

ISKCC 

WFE ,WFLL ,OELWFC 

,£KRC ,£KSC ,SKFW 

,C£LWP ,DELWST 

,SKTM ,SKRCA 

,00250000 

,00260000 

1 

CN 

kO 




2SKSCA 

3SKGB1 

4ELF 

,SKFC .IKAC ,SKHL 

,SKGB2 ,<KELNT ,SKBAL 

,RMI ,£KWP ,SKHT 

,SKENV1 ,SKENV2 

,SKLG ,SKWk 

,SKVT ,SKFPB 

,00270000 

,00280000 

,00290000 





5SKRBF 

6SKP0S 

7SK1 

♦SKPF ,JKAND ,SKAR 
,SKF0S2 ,£KT ,SKFS 
,SK2 ,t'K2 ,DK4 

,SKPA jSKVTA'R 

,SKPEI ,SKPES 

,SK5 ,SK6 

,00300000 

,00310000 

,00320000 




C 

ESK7 
9SK13 
PAGE 5 

♦SK8 ,JK9 ,SK10 

,SK14 ,JK15 ,PLIN 

INPUT LQC 201 THRU SCO 

,SK11 ,Skl2 

,GAP5t3) 

,00330000 
00340000 
003500C0 


ISN 

0007 


CCPMOfg 

IDELTH(5> 

2DELRI5) 

TCLIM15) ,>TGTA2(5) ,TIN2(5) 
,STH(5> ,CR£1NC15) ,XTGTA4(5) 

,RPAX15) ,CELFCRt5) ,ENPCR(5) 

,TWTHI5) ,PFET2I5) 

,TIN4(5) ,VIN<5) 

,CELWPL(6) ,STPW(5) 

,0C3'600G0 

,00370000 

,00380000 


ISN 

0008 

c 

3FF IN(5) 
PAGE 6 
CCNMON 

,GAF6U0> 

INPUT LCC 301 TFRU 400 

CYCPFL ,FF ,SK3 

,SK4 ,TBH1(5) 

OC39COCO 

00400000 

,00410000 


ISN 

0009 

c 

ITBTCiiS) 

WORKING 

CCPMON 

,TBH2r5) ,ieCRP(5) ,feSFC(8> 

CCPPCN 

AIFCES,ALFCL,ALFF,AHU, 

,TeP0fi"(8) ,GAP7(S0) 

00420000 

C0430000 

0044CCC0 





1 BFPA,BFfR,EKFSLP,EHT ,BLP,BR,BS,BVT, 

2 CEARF,CBAPFT,CEARVT ,C£ ARh, CCPtCCT ,CDV,CLW, 

00450000 

CPIKO,CPNUD,CPPAR,CPPRC0046COOO 


c o 

-i^npr 

S 3 



ISN 0010 


2,CFT0T,CBT,CTF,CV,CX,CICES,CE, _ . _ 

4 CELRfir,DELTA,cr,CSFlPl ,“ ” ELC,ELffT ,ELN , ELCA ,ELT, ELVT, EK , ETAP , 

5 FEH,FEH ,FEHL ,f EFT , FET ,f ETCT ,FEVT ,F£W, FEWH, FEWI , FM, FP, ET AP4 

CCPMO'n GAPCIU3.1S) , GL F . GPD01U6 ) , H, 


0047CCC0 
■'004 8 CO 00" 
00490000 
00500000. 


PAGE 002 


ISN 0011 
ISf-i 0012 

ISN 0013 
ISN OOIA 


I SN 0 015 
ISN 0016 
ISN 0017 

TsN'o'orF 

ISN OOlS 
JAMJ50 20_ 
ISN 00~21 
ISN 0023 
I SN 00 24 
ISN 0026 
ISN 0028 


ISN 0029 


7 I CUHStlMCRU, I^CCRG,I^CCVLf INOET'A, INDFIX, INChUL, INDOPT, I-KCOSW? 00510CCO 

6 INOPOW,INO'PRF,'II\CRbV, IPFINT - .. , ■bC520000‘ 

CCPMON LTK .NCCFF.NCXPv iCkE,FEPF,P 1 ,0 , RHC , RE /SLJ , RHPNR » R , R N 0C53CGCC 

Ci!lf.M9Ji_SA»SA_5_,SA6,SA7f IFC,ShPA,SHPP, SHT,SHTE,ShTW,SICMA,SSIGMA,ST,005AC00C 

ISTHETA, STPAXf S\I iSVTE, J \ 1 W r S h , SViE TH, ShE XP , SW 1 T i SWhST i S2RHC C05500CC 

CCFMON T,7AF,TC£AF,TFE1A » TMA X ,TPP , TPRCP , TR , U IF , VGASB , VG AS R t VHLf V CC5 6CCC0 
ThE_AL|\J_tUCC ,>E ik,EP ,WES,WF»>FCtWFP ,WFSf WFWj 005700C0 

1 kGSBthK thPT .HG»hp“C t FPAYLjFPCfWPCS, WP'EI rWPF’,hPRBrWPRG~iV>P'RP,V\PSYRC058CCC0 ' 

2tRRC,WRCATUSCtFSC7.ViST * WW t WPAYL C , W AC ,U£NV 005 900 CO 

CCPMON XLAL_fifXLei^XL^H,>LH ,Xl.P,XLW,YLS2,TCVW 006CC000 

CCFNON CPP,SIGFR,AF,E>FF,SEE' " “ ' ‘"COBCCCCI 

NAPELISl /NCRLS3/ LC 1 , 1 C 2 , LC4 1 LC5 , YLS2 , V ,T , 0 ,CX , BHPR , ‘OOBICCOC 

1 EHFA , ELF ,ehPSl P , F_P jt E N j_I N OETA ,E T.A.PA. r.lh At L? RiW.WFtS T 00620000 

RTC0=57.2S£7795 “ 00620100 

0062C2CC 

^t<nAP5.“..EIAP^N_+_C.l_ ■_ C063CC00 

lF(IPRUT.EC.i)V>RITE('6,3Cl) " "■ ■’00640000' 

201 FCRMAinX, 'CRUSE AT SFEEC FCR BEST SPECIFIC RANGE'/) 0065C00C 

hP IT£( 6 >_1005.} 0066COOO 

IF ( IPR IM ,£C. 1 ) hPITEU f JCC8 ) ’ ~ ' CO66CICO’ 

ICC5 format ( 2X f 'TIRES 7X, 'RANGES 5X, 'FUEL USEC *, 5X WEIGHT' , 6X r ' ALT. S 600670000 
IAT.'_IEMP.'„t.SXjlIAL5i.» S Xt'E. F_. ' i4X', ' PEH F' , 5X_, JJJAPIjJX t.'NMPP 006 8000 C. 

2 • »6Xt 'R .N . • »4X » 'CL ’/ - - - 0069CCOO 

22X,'(HCURS) (N.MU IPCINDS) (PCUNDSJ IFEET) I CEG. FG07C0000' 

f<J_. . I KT ) '//J. 00710000 

icca FCRMATI 37X, *hLLL L I FT , 1 IX , • WING L IFT ' ,7X RCTCR' L IFT ', axT' ALPHA FC071C100 
1 • 1 16X, ‘ ALPHA C/L'/28X, MFCUNCS) S 12Xt '{POUNDS) ’ »7X» ' {POUNDS) • »1 OX ,00710200 


—11 JL C EGl_'_il 7X,» {CEG)'//) 

LCl = C 
LC2 = 0 

L.C4.5_C 

LCS = C 

YLS2 = 1. - ENFCR CICRLS )/£NF 

LI N = II M (J.C R.IL.S J 

CALL ATRCSl H , TIN) 

V = VMC/SSIGMA 
VR_AX=V. 

1 Q LlA2~i3~6 ’» rVc a V =* \i 
LC2 = LC3 + 1 

CJ.L.L, kl FJ 

CALL DRAG(ALFP) 

GP=XL8/U 

lF.UNP.CYL-2i_2,2, 3_ 

2 T = t + C # CELF'CR'{ ICRLS)“ 

IF(INDETA) 4, 4, £ 

A ETA P4 5=_ XL INT { TB EJ^ S, T E8A P ±, V, NE TA P4, M L 

IF(M.NE.O) V.PITE{6,IC1) I 
ETAP=ETAP4 


C07103C0 
C072CCC0 
007300CO 
0074CCC0 
00750000 
C0760000 
00770000 
”00780000 ' 
CC7900C0 
007901CO 
CCOCCOCO 
Q0810C00 
00820000 
‘00830000 
C08301C0 
CG840000 

"ccascooc 

008600CO 

00870000 

ooaaoocb' 

008801CC 


U— F-CFM-AJ_.(22 X. 'THIS ERROR IS IK THE V -ETA P4 T ABLE SGT I ND T . 12 . ‘ ) ' ) C.08900CC 

6HPR = T » \; / { 325. £ # ETAP4 * ETAf) ” ” ' CO9C0000’ 

GC TO 6 • 00910000’ 

5 TFROP = T CC920000 



PAGE C03 


ISN 0055 


CALL PCLEF 

C093000C 

ISN 0056 


BHF'R = SFFP =» fHPF * CELRTF X* YLS2 

CC94CCCC 

ISN 0057 


GC TO 6 

C095C0CC 

ISN 0058 

3 

CX = CX ♦ 2.0 * AFU X AFL « DELFCR! ICRUS ) / 

(PI 4 OMR 4 CFR 4. ENR)00960000 

ISN 0059 


CALL RCTFCA 

C0970CCC 

ISN 0060 


BFPR = FHPFR / ETAT 

00980000 

ISN 0061 

6 

ELP = XLINTnEH2,TeCRF,H,5,M) 

CC99COOO 

ISN 0062 


IF<M.NE.01WRIT£(6,102> I , 

OlOCOOOO 

ISN 0064 

1C2 

FCFMATI22X, ‘THIS ERRCR IS IN THE H-POt'ER TABLE SGTINDI • , 12, • ) • ) OICIOOOO 

ISN 0065 


BLF=FACTR (BLP,FF,TF£TA,FF) 

C102CCCC 

ISN 0066 


ELi<=BLP 

0102Q1CC 

ISN 0067 


6FPSUP = BLP X DELRTH 4 EHPP 

C103C0C0 

ISN 0068 


BHFA = epPSUF 4 YLS2 

01040000 

ISN 0069 


IF(BHPA - BHPR) 8, 7, 7 

0105C0CC 

ISN 0070 

7 

BPFA = EFPR 

C1060000 

ISN 0071 


BPPSUP= EhPA / YLS2 

C107C0CC 

ISN 0072 


ELF = EHPSLF/<EPPP 4 CELPTH) 

C108Q0CC 

ISN 0073 


SFC = XUNTUEFCW , TESFC, BLP, 8, Ml 

0109C000 

IS.'J 00 74 


IF<M.NE.C)UFITE(6, 103)1 

OllCOOCC 

ISN 0076 

1C3 

FCRMAT(22X, 'THIS ERRCR IS IN THE SFC TABLE 
l.EFPR' 1 

SGTINOC ,12,') BHPA.GEOll lOOQO 

0112CCC0 

ISN 0077 


F=SFC4BHPA4CKFF 

01130000 

ISN 0073 


LC5 =1 

0114CCC0 

IS.N 0079 


IFILC3 - 2 ) IC, 9,9 

C115000C 

ISN 0Q8Q 

9 

ENE = V/F 

0116CCC0 


ISN 0081 
ISN 0082 
ISN! 0084_ 
'IS.N 0085 
IS.'J 008 7 
ISM 0039_ 

"isn'oooc 

ISN 0091 
ISN_0092_ 
ISN 0093 
ISN 0094 
ISN 0095_ 
■iSN"''609 6 
ISN 0098 

Ts7roo9r 

ISN 0100 
ISN 0102 
■lSN~0103"' 
ISN 0104 
JSj^_0105 
ISN oTo?" 
ISN 0108 
JSN 0109 

rsN'"o'iic' 

ISN 0111 
ISN 0113 


IFIEN2 


ENU 11,11, 12 


11 IP(LC4.EC.i) GC 7C 13 

16 V = V + 1. 

"iF'tvrGT.VFAX ) V = VFA")i 

IFIV.GE.VFAK) GC TC 13 

EM= EN2 

CC4=”i 

14 IF(V - 5.1 15 , 15, 1 

15 WRITE(6,IC4)I 

1C4 FORMAT (Y2ir; 'INSLFFIC I EAT FOkEfi FOR CRUISE SGTINOt ' , i2»" 
GC TO 302 

8 SFC = XLIATITBFCV-, TBSfC, BLF, 8, K) 

" IF‘(M.Ne.0')KR'n'£'<6,l05ri 

1C5 FCRMAT{22>, 'THIS ERROR IS IN THE SFC TABLE! BFFA.LT.BHPR ) 

12 , ' ) JJ. , 

F=SFC>«'eFPA*CKFF 
IF(LC5.EC.l) GC TO 13 
10 EM = V/F 

17 v”="v "-“'rc. 

GC TO 14 

12 IF(LC4.EC.l) GC TC 16 
ENF = "ET2' 

C-C TO 17 

13 E N. = EM ^ 

v=v-iT 

IFIINDDVL.LT.3 1 ALF0L=-9C. 

ALFD=ALFR4PTG0 


SGTINCI 


Oil 70000 
C11800CC 
01190000 
■ ■“01190100 ■ 
0119C20C 
C12C0000 
■ 0121COOC 
0122C000 
_ 012300CC 
01240000' 
0L25C000 
_ C12600CO 
’0127COCO 
',101280000 
_ 01290000 

■ 01300000' 
0131CC00 

__ C132C0C0 
'0133C0C0 ■ 
01340000 
C135CQ00 

■ '0136C0G0‘ 
01370000 

013800CC 

01380001' 

01380100 

01380200 
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ISN 0114 

PEHF = BHPSLP/( BLK*EEPP>»CEtPTM 

01380300 

ISN 0115 
ISN 0117 

IFdPRIM .EC.l »l-P ITE(6 ,lC03)STf P»WF,W,H,fPP» VtERf PEhP,8HPRrETAP.,’ 
1EN,RN,CLV« 

IF(IPRUT.EC.nVPlTE(6,KC9)XLHL.XLW,XLR.ALFC.ALFCL 

C13804C0 

C13805C0 

013806CC 

ISN 0119 
ISN 0121 
ISN 0122 

IFaCl.EQ.l) GC TC 3CC 01390000 

CELTAR = FPAXnCRLS) - B 014CC0CC 

1003 FCPMAT(2X,F7.2.2X.Fe.l.2>.F5.C.4X,Fi0.0.2X.FS.Q.2X.F7.2 .3X.F6.1 . 2X0146 00 00 

ISN 0123 
ISN 0124 

1,F6.3,2X,F6.3,2>,F8.C,IX,F5.2,2X,F9.6,2X,F6.3,2X,F5.2) 
1CC9 FCFMAT<34X,FlC.C,IlX,F10.C,7X,F10.C,llXtF5.1,19X,F5.1/) 
IFIDELTAB.GT.CELRIICRLJ n GC TO 20 

01460000 

01460100 

01470000 

ISN 0126 
ISN 0128 
ISN 0130 

IFIDELTAR.LE.CELRilCRUS) 1 LCl = i 
IF(LC1.EC.1J GC TC 21 
20 DeLTAR=OELR(ICRLS) 

0147C100 

C147C20C 

01470300 

ISN 0131 

21 R = R + CELTAR 

C147C400 

ISN 0132 

W = Vi - CELTAP/EN 

01480000 . 

ISN 0133 

WF =. V,f + DELT/R/EN 

01490000 

ISN 0134 

ST = ST •* DELTAP/V 

C15CCCCC 

ISN 0135 . 

LC3= 0 

015100C0 

ISN 0136 

LC4= 0 

01520000 

ISN 0137 

LC5= 0 

015300C0 

ISN 0138 

GC TO 1 

0154C0C0 

ISN 0139 

3CC RETURN 

C15500CC 


ISN 0140 3C2 KBITE(6,NCRIS3) • 01560000 • 

ISN 0141 RETURN 01560100 

ISiH- 01.4-2 C157C0C C 
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NAM~c 

TAG 

tvpe“ 

ADD. 

NAME TAG 

TYPE 

ACC. 

NAME TAG 

TYPE 

ACO. 

NAME 

■■ TAG 

TYPE 

ADD, 


F 

SF 


R*A 

OOOA 10 

H SFA 

C 

R*A 

000818 

• I F 


I*A 

OOCAIA 

M 

FA 

I»A 

0C0A18 


C 

SF 

C 

R>»A 

000866 

R SF 

■ C 

R*A 

000878 

T SF 

C 

R*A 

0CC8E0 

V 

SFA C 

RX-A 

000910 


h 

SF 

C 

P# A 

OOOS14 

AF 

C 

R#A 

N.R. 

AR 

C 

R*A 

N.R. ' 

BR 

SF C 

Rx<A‘ 

0C0664 


6S 


C 

R*A 

N.R. 

ce 

C 

R’MA 

N.R. 

CV 

C 

Rx^A 

N.P. 

CX 

SF C 

RX<A 

OC06BO 


DH 


C 

p»A 

N.P. 

EN SF 

c 

R#A 

0006EA 

FF FA 

C 

RX<A 

00CA6A 

FM 

C 

RX=A 

N.R. 


FP 


C 

R*A 

000718 

HC 

c 

R'(=A 

N.R. 

HH SFA 


R«A 

OOCAIC 

PI 

F C 

R*A 

0C086A 


RN 

F 

C 

R»A 

00087C 

SA 

c 

r^'a 

N.R. 

ST SF 

C 

RX<A 

00C850 

Sw 

C 

RXcA 

N.R. 


TR 


C 

R>tA 

N.R. 

VC 

c 

R*A 

N.R- 

VT 

C 

Rx-A 

N.P. 

WE 

C 

R*A 

N.R. 


WF 

SF 

C 

RXA 

000930 

hO 

c 

R*A 

N.R. 

WS 

C 

RX«A 

N.R. 

ww 

' C 

Rx<A 

N.R . 


XC 


C 

P*A 

N.R. 

AMU F 

c 

R’i'A 

0006AC 

DHT 

C 

R*A 

N.R. 

BLK 

SF 

R*4 

O00A2O 


6LP 

SFA 

c 

B>»A 

000660 

BMP 

c 

R*A 

N.R. 

GVT 

c 

RXc4 

N.P. 

CCP 

C 

R*A 

N.R. 


CCT 


c 

R>»A 

N.R. 

CCC 

c 

R"fA 

N.R. 

CDV 

c 

rx<4 

N.R . 

CKF 

-c 

R*A 

N.R . 


CKh 


c 

P#A 

N.R. 

CKl 

c 

R*A 

N.R. 

CLW F 

c 

RXC4 

00C68C 

CRT 

c 

RX=A 

N.R. 


CTP 


c 

R*A 

N.P. 

CK3 

c 

P*A 

N.R. 

DKA 

c 

Rx<A 

N.R. 

OMR 

F C 

RX<A 

CC09C8 


Etc 


c 

R#A 

N.R. 

ELF 

c 

R’i'A 

N.P. 

ELN 

c 

R*A 

N.R. 

ELT 

C 

RX<4 

N.R. 


ENP 

F 

c 

R»A 

00019A 

ENR F 

c 

R#A 

OOOUC 

ENl SF 


RX-A 

OOOA2A 

EN'2 

SF 

RX“A 

0C0A28 


PEH 


c 

R=« A 

N.R. 

FET 

c 

R>1‘A 

N.R. 

FEW 

c 

Rw4 

N.R. 

CLP 

C 

RXA 

N.R. 


HES 


c 

RXA 

N.R. 

FCO 

c 

R#A 

N-R. 

LCl S 


I*A 

00CA2C 

LC3 

SF 

IXA 

OOOA30 


LC4 

S 


I#A 

OOOA3A 

LC5 £ 


I^A 

000A38 

□ WE 

c 

RX>A 

N.P. 

RHO 

F C 

RX>A 

CC066C 


RMI 


c 

R’^A 

N.R. 

BOO 

c 

R*A 

N.R- 

SA5 

c 

RX<A 

N.R. 

SA6 

C 

Rx>4 

N.R. 


SA7 


c 

B«A 

N.R. 

see 

c 

R«A 

N.R. 

SFC SF 

c 

RxcA 

0CC890 

SHT 

C 

Rx^A 

N.R. 


SKT 


c 

P#A 

. N.R. 

SKI 

c 

R«A 

N.R. 

SK2 

c 

RX<A 

N.R. 

SK3 

c 

RX<A 

N-R. 


SKA 


c 

B’tA 

N.P. 

SK5 

c 

R*A 

N.R. 

SK6 

c 

RX<A 

N.R. 

SK7 

C 

RX=4 

N.R. 


SKO 


c 

R>«A 

N.P. 

SK9 

c 

R«A 

N.R. 

SLM 

c 

RX<A 

N.R. 

STH 

c 

R«A 

?*N.R. 


SVT 


c 

P«A 

N.P. 

7AF 

c 

r*’a 

N.R. 

TCP 

c 

RX<A 

N’-R. 

TCT 

c 

R*A 

N.R. 


TIN 

sfa 


R*A 

000A3C 

IMP F 

c 

R*A 

0008FA 

TOO 

c 

RX<A 

N.R. 

TVW 

c 

R*A 

N.-R. 

1 

ULF 


c 

R#A 

N.R. 

VHL 

c 

R*A 

N.'R. 

VIN 

c 

■rx-a 

N.R. 

VMO 

F C 

■rx<a 

CCO^AC 


MAC 


c 

R>«A 

N.R. 

WCC 

c 

R*A 

N.R. 

WEP 

c 

P*A 

N.R. 

WES 

C 

RX=A 

N .'f . 

LO 

WFC 


c 

R* A 

N.R. 

PFE 

c 

R’i'A 

N.R. 

WFR 

c 

RX-A 

N.R- 

WFS 

C 

,R*A 

N.F^. 


WFW 


c 

PUA 

N.P. 

KFL 

c 

R*A 

N.R. 

WHT 

c 

RX<A 

N.R. 

. WLG 

c 

R*A 

N . R'. 


- WMC 


c 

R*A 

N.R. 

hPC 

c 

R*A 

N.R. 

WPH- ' 

c 

RX<A 

N.R. 

WRC 

c 

R*A 

N.Ri’ 


wsc 


c 

B*A 

N.P. 

UST 

c 

R*A 

N.R. 

WTM 

c 

RX-A 

N.R. 

VvVA. 

c 

R*A 

N.R. 


WVT 


c 

P*A 

N.P. 

XLB F 

c 

RfA 

0009AC 

XLR F 

■o' 

RX<A 

00C9S8 

XLW 

F C 

R*A 

0C09BC 


XMR 


c 

P*A 

N.R. 

ALFD SF 


R*A 

OOOAAO 

ALFR SFA 

c 

RX>A 

00C6A8 

ARHT 

c 

R*A 

N.R- 


ARVT 


c 

R^A 

N.P. 

EHPA SF 

c 

R*A 

000650 

BHPP F 

c 

RX<A 

00C9DA 

8HPR 

SF C 

RX-A 

0C065A 


CDHT 


c 

R<A 

N.P. 

CCVT 

c 

R»A 

N.R. 

CKFF F 

c 

RX<A 

00CC50 

CKHT 

C 

RXiA 

N.R. 


CKVT 


c 

P-^A 

N.P. 

CAM 

c 

R*A 

N.R. 

DAM2 

c 

R*A 

N.R. 

CAMS 

C 

RX-A 

N.R. 


DAM A 


c 

R#A 

N.R. 

CAMS 

c 

R*A 

N.R. 

DELR F 

c 

R*A 

00C3FC 

CRAG 

SF XF 

R*A 

000000 


OVDL 


c 

P«A 

N.R. 

ELCN 

c 

RWA 

N.R. 

ELDT 

c 

RX^A 

N.R. 

ELHT 

C 

R*A 

N.R. 


ELOA 


c 

R*A 

N.R. 

ElVT 

C 

R*A 

N.R. 

EMLF 

c 

Rx«A 

N.P. 

ETAP 

SF C 

RX»A 

0C06E8 


ETAT 

F 

c 

B#A 

0001S8 

FthI 

C 

R*A 

N.R. 

FEHL 

c 

RX-A 

N.R. 

FEHT 

c 

R*A 

N.R. 


FEVT 


c 

R*A 

N.P. 

f EV«H 

c 

R*A 

N.R. 

FEWI 

c 

RX<A 

N.P. 

GAP! 

c 

RX-A 

N.R. 


GAP2 


c 

R*A 

N.R. 

GAP3 

c 

R*A 

N.R. 

GAPA 

c 

RX-A 

N.R. 

GAPS 

c 

RX-A 

N.R. 


CAP6 


c 

R «A 

N.R. 

GAP7 

c 

R*A 

N.R. 

HFIN 

c 

RX<A 

N.R. 

LIFT 

SF XF 

I*A 

ocpooo 


LTriL 


c 

I*»A 

N.R. 

F CF F“1 F 

c • 

fix' A' 

000860 

PL IN 

c 

RwA 

N.R. 

RELl 

C 

RX-A 

N-R. 


PMAX 

F 

c 

R#A 

OOOAIO 

BTOC SF 


R*A 

OOOAAA 

SHPA 

c 

RX'A 

N.R. 

SHPR 

F C 

RX-A 

0C0898 


SHTE 


c 

B=»A 

N.P. ■ 

ShTV, 

c 

RX-A 

N.R. 

SKAC 

c 

R*A 

N.R. 

SKAR 

c 

RX-A 

N.R. 


SKCC 


c 

R^A 

N.R. 

SKFS 

c 

RX-A 

N.'R. 

SKFW 

c 

R'X'A 

N..R- 

skhL 

. C 

R.*A 

hi .R . 


SKHT 


c 

R*A 

N.P. 

SKLG 

c 

RX<A 

N.R. 

SKMC 

c 

RX=A 

N.R. 

SKPA 

C 

RX-A 

N.R. 


SKPH 


c 

R«A 

N.R. 

SKRC - 

c 

R'#A 

N.R. 

SKSC 

c 

R*A 

N.R. 

SKTH 

c 

Rx-4 

N.R. 
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SKVT 


C 

R*4 

N.P. 

SKUP 


C 

R*4 

N.R. 

SKWW 

r, 

R*4 

N.R. . 

SKIO 


C 

R*4 

N.R . 


SKll 


C 

R*4 

N.R. 

SK12 


C 

R*4 

N.R. 

SK13 

C 

R*4 

N.R.' 

SK14 


C 

R*4 

N.R. 


' SK15 


C 

ft!C4 

N.R. • 

SLMH 


c 

R*4 

N.R. 

STPW 

c 

R*4 

N.R. 

SVTE 


c 

R*4 

N.R. 


SVTU 


c 

B*4 

N « R'« 

Sl*TT 


c 

R*4 

N.R. 

TBHl 

c 

R*4 

N.R. 

TBH2 

FA 

G 

R*4 

0C04E8 


TBTC 


c 

P*4 

N.R. 

TCFT 


c 

R*4 

N • R • 

TCLN 

c 

R,*4 

N.R. 

TCVT 


C 

R*4 

N.R. 


TliMY 


c 

R>>4 

N.R. 

T IN2 


c 

R*4 

N.R. 

TIN4 F 

c 

R*4 

0003D4 

TMAX 


C 

R*4 

N.R. 


TQVki 


c 

fi=^4 

N.R. 



c 

R*4 

N.R. 

VMAX SF 


R*4 

000448 

WBAL 


r. 

R*4 

N.R. 


WENV 


c 

P^4 

N.R. 

hFUL 


c 

R*4 

N.R. 

WGS6 • 

c 

R*4 

N.R. 

WPDS 


c 

R*4 

N.R, 


WPEI 


c 

R=»4 

N.R. 

VPR8 


c 

R*4 

N.R. 

WPRG 

c 

R*4 

N.R. 

WPRP 


c 

R*4 

N.R. 


WRC A 


c 

R!^4 

N.R.- 

V«SCA 


c 

R*4 

N.R. 

XLBH 

c 

R*4 

N.R. 

XLGD 


c 

R*4 

N.R. 


XLHL 

F 

c 

R*4 

C00SB4 

YLS2 

SF 

c 

R*4 

0CO9C0 

ALFDL SF 

c 

R*4 

00 0644 

ATMIY 


c 

ft*4 

N.R. 


ATMOS 

SF 

XF 

R>«4 

OOOOCO 

CEARF 


c 

R*4 

N.R, 

C8ARW 

c 

R*4 

N.R. 

CLDES 


c 

R*4 

N.R. 


CLEYE 


c 

R=«4 

N.R. 

CFINC 


c 

R*4 

N.R. 

CPNUD 

r. 

R*4 

N.R. 

CPPAR 


c 

R*4 

N.R. 


CPPRC 


c 

R-f'A 

N.R. 

CfTCT 


0 

R*4 

N.R. 

CRUS3 


R*4 

00044C 

DELTA 


c 

R*4’ 

N.R. 


CELTH 


c 

R*4 

N.R. 

DELKF 


c 

R*4 

N.R. 

DELWP 

c 

R*4 

N.R. 

OSWET 


c 

R*4 

N.R. 


ELDOA 


c 

R>t4 

N.R. 

ENPCR 

F 

c 

R*4 

000438 

ETAP2 

c 

R*4 

N.R. 

E7AP4 

SF 

c 

R*4 

0C071C 


FACTR 

F 

XF 

R*4 

boocco 

FETCT 


c 

R*4 

N.R. 

GMODl 

c 

R*4 

N.R. 

■ "hmaxd 


c 

R*4 

N.R. 


ICRUS- 

F 


I=(4 

000450 

I CUM 5 


c 

1*4 

N.R. 

NOCPP 

c 

1*4 

N.R. 

NCXPJ 


c 

1*4 

N.R. 


PFET2 


C 

R«4 

N.R. 

POWER 

SF 

XF 

R*4 

OCOOOO 

REALJ 

c 

R*4 

N.R. 

RHPKR 

F 

c 

R*4 

0C0874 


SIGMA 


C 

F«4 

N.P. 

SIGMR 


c 

ft *4 

N.R. 

SKAMD 

■ c 

'■'r*4' 

N.R- 

SK6AL 


c 

R*4~ 

N.R. 


SKGBl 


C 

Rt4 

N.R. 

SKG62 


c 

R*4 

N.R. 

SKPOS 

c 

R*4 

N.R. 

SKPEI 


c 

R*4 

N.R . 


SKPES 


c 

R*4 

N.R. 

SKPRB 


c 

P*4 

N.R. 

SKRBF 

c. 

R*4 

N.R. 

SKRCA 


c 

R*4 

N.R. 


SKSCA 


c 

B*4 

N.P. 

SIMVT 


c 

R*4 

N.R. 

STMAX 

c 

R*4 

N.P. 

SW6TH 


c 

R*4 

N.R. 


SWEXF 


c 

p*4 

N.R. 

SWWET 


c 

R*4 

N.R. 

S2RHQ 

c 

R*4 

N.R. 

TBCLl 


c 

R*4 

N.R. 

— - 

TBCRP 

FA 

c 

. R*4 

0004FC 

TEEMS 

FA 

c 

R*4 

000164 

TBPOW FA 

c 

R*4 

0OC530 

TBSFC 

FA 

c 

R*4 

0C051C 


TCBAR 


c 

R^4 

N.R. 

TFETA 

FA 

c 

R*4 

CC08EC 

TPRDP S 

c 

R*4 

00C8F8 

TVCMR 


c 

R*4 

N.R. 


VBARH 


c 

R*4 

N.R. 

VEARV 


c 

R*4 

N.R. 

VOIVE 

c 

R*4 

N.P. 

VGASB 


c 

R*4 

N.R. 

_ 

VGASR 


c 

R=»4 

N.R. 

WPAYL 


c 

R*4 

N.R. 

WPSTR 

c 

R*4 

N.R. 

XLAL6 


c 

R*4 

N.R. 

1 

XLB«C 


c 

R#4 

N.R. 

XLIM 

F 

XF 

R*4 

OCCOCO 

XLRLA 

c 

R*4 

N.R. 

AlFDES 


c 

R*4 

N.R. 


BFPSUP 

SF 

c 

R’fA 

000658 

CBABFT 


c 

R*4 

N.R. 

CBARVT 

c 

R*4 

N.R. 

CBYLCA 


c 

R*4 

N.R. 


CLALPh 


c 

fi«4 

N.R. 

CPS INC 


c 

R*4 

N • R * 

CTSIGH • 

r. 

R*4 

N.R, 

CYCPRL 


r. 

R*4 

N.R. 


DELFCR 


c 

R>*4 

000424 

CELRTh 

F 

c 

R*4 

00C6BC 

DELTAR SF 


R*4 

000454 

OELWFC 


c 

R*4 

N.R. 


OELWPL 


c 

fi>*4 

N.R. 

CELWST 


c 

R*4 

N.R. 

CLSWSH 

c 

R*4 

N.R. 

DLTAFE 


c 

R*4 

N.R. 


DLVmi._ 


_CL_ 

R*4 

N.R. 

CRGIND 


c. 

R*4 

N.R. 

DSPLMT 

r, 

R*4 

N.R. 

OYLINO 


c 

R*4 

N.R. 


ELHLQA 


c 

R=*4 

N.P. 

ELVLCA 


c 

R*4 

N.R. 

ETAIND 

c 

R*4 

N.R. 

ETAP4N 

F 

c 

R*4 

000160 


EXPDRG 


c 

R»4 

N.R. 

FECRAG 


c 

R*4 

N.R. 

FIXING 

c 

R*4 

N.R. 

FWRNL# 

F 

XF 

1*4 

OCOOOO 

- 

GAMDU 


c 

P^4 

N.R. 

K-L INO 


c 

ft*4 

N.R. 

IBCOM« F 

XF 

1*4 

OOCOOO 

INCCRU 


c 

1*4 

N.R. 


I ^ODRG 


c 

1*4 

N.R. 

IMICVL 


0 

1*4 

000828 

INOETA 

C 

1*4 

00C82C 

INCFIX 


c 

1*4 

N.R. 


INDHUL 


c 

1*4 

N.R. 

INCCPT 


c 

1*4 

N.R.' 

INOOSW 

c 

1*4 

N.R. 

INDPOW 


c 

1*4 

N.R. 


INDPPF 


c 

1*4 

N.R. 

INCPOM 


c 

1*4 

N.R. 

IPRINT 

c 

I'*4 

0CC84C 

NCRUS3 

F 



800809 


METAPA 

SFA 


1*4 

000458 

CFTIND 


c 

R*4 

N.R. 

OSWINO 

c 

R*4 

N.R. 

prpind' 



R*4 

N.R. 


RCMINC 


c 

R*4 

N.R. 

PFCRHO 


,c 

R*4 

N.R. 

ROTPOW SF 

XF 

R*4 

OOCOOO 

SGTIND 


c 

R*4 

N.R. 


SK6LNT 


c 

R*4 

N.R. 

SKEKVl 


c 

R*4 

N.R.' 

SKENV2 

C 

R*4 

N.R. 

sk'pdsz 


c 

R*4 

N.R. 


SKVTAR 


c 

R*4 

N.R. 

SSIGMA 

F 

c 

R*4 

0008AC 

SThETA 

C 

R*4 

■ N.R. 

TBCDWI 


c 

R*4 

N • R • 


TBSAPA 

FA 

c 

R*4 

000X78 

IFETMR 


c 

R*4 

N.R. 

TOLIND 

c 

R*4 

N.R. 

VCBOVH 


c 

R*4 

N.R. 


WBALNT 


c 

P*4 

N.R. 

WFAVLC 


c 

R*4 

N.R. 

X-TGTA2 

c 

R*4 

N.R. 

XTGTA4 


c 

R*4 

N.R. 


CCf <MO N INFORMATION * 

^ “ • • - » 

NAME CF CC^NCN BLOCK * * SIZE CP BLOCK 0009DC EEXADECIHAL BVTES 
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■VAR. 

TYPE 

PEL. ACCR. 

VAR. SAKE 

TYPE 

REL. ADDR. 

VAR. NAME 

TYPE 

REL. ADDR. 

VAR.. NAME 

TYPE 

REL. ADDR. ' 


OPTING 


N.R. 

)-UL INC 

R>iA 

N. R. 

CYLIND 

P*A 

N.R. 

ORGIND 

R*4 

N.R. 


CSi» INC 

P«A 

N.P. 

FIXING . 

R’iA 

N.R. 

ROMIND • 

R»A 

S.R. 

PRPINO 

BX>4 

• N.R. 


ETAIND 

p«A 

N.R. 

WC 

R#A 

N.R. 

XL6W0 

P«A 

N.R. 

XLRLA 

R*4 

N.R. 


VGBCVP 

R*4 

N.P. 

XLCC 

R=«A 

N.R. 

HMAXD 

R»A 

N.R. 

RHORHO 

R*4 

N.R. 


VPC 

RYA 

OOOOAO 

ERLF 

R»iA 

N.R. 

CKl 

P»4 

N.R. 

OELhF 

r*a 

N.R. 


CKfF 

R*A 

000050 

VCIVE 

RtA 

N.R. 

HOO 

R»A 

N.R. 

RCO 

R*4 

N.R. 


TCC 

p»A 

N.R, 

gap: 

R*A 

N.R. 

SGTIND 

R*A 

N.R. 

ELHLOA 

R*4 

N.R. 


ELVLCA 

R»A 

N.R. 

GAP2 

R>»A 

N.R. 

AR 

RXA 

N.R. 

WS 

fi*4 

N • R • 


TCR 

P'«A 

N.P. 

TCT 


N.R. 

SUM 

R<4 

N.R. 

ARHT 

R>K4 

N.R. 


TCPT 

P=*A 

N.R. 

VBAPh 

R*A 

N. R. 

SIMM 

R>>A 

N.R. 

ARVT 

R#4 

N.R. 


TC\T 

R>»A 

N.R. 

VEAPV 

R<A 

N.R. 

SLMVT 

B*A 

N.R. 

ELDN 

R»4 

N.R. 


ELCT 

P#A 

N.R. 

ELOCA 

p*A 

N.R. 

DISWSH 

RXA 

N.R. 

DShET 

R*4 

N.R. 


DLVLEL 

R't'A 

N.R. 

CVCL 

p>»A 

N.R. 

CBYLQA 

B=»4 

N.R, 

ENR 

R*4 

OQOllC 


ViVA 

R>!>A 

N.R. 

CAKi 

P>>A 

N.R. 

DAM2 

RX>A 

. N.R. 

BMR 

RX<4 

N.R. 


CA^'3 

P«A 

N.R. 

CLEYE 

R^A 

N.R. 

THETMR 

B»A 

N.R. 

XC 

R*4 

N.R. 


XNR 

P’^A 

N.R. 

TVCPP 

R»A 

N.R. 

VT 

R»A 

N.R. 

CTSIGH 

R<=4 

N.R. 


TU< 

R»A 

N.R. 

FES 

R=tA 

N.R. 

TINY 

RXA 

N.R. 

ETAP2 

fi*4 

N.R. 


ETAPAN 

R»A 

000160 

TBEK5 

fl>*A 

CC016A 

TB8AP4 

R*A 

000178 

GAPS 

R*4 

N.R. 


CA^A 

B*A 

N.R. 

ENF 

R=*A 

0C019A 

ETAT 

B«A 

00C198 

HC 

ft*4 

N.R. 


VC 

R«A 

N.R. 

ATNIY 

R*A 

N.R. 

CDVT 

R*A 

N.R. 

CCHT 

R*4 

N.R. 


CANS 

R'('A 

N.R. 

CLTAF E 

R'tA 

N.R. 

FEDRAG 

R«4 

N.R. 

EXPDRG 

fi>x4 

N.R. 


CCC 

P*A 

N.R. 

CLALFF 

R>FA 

N.R. 

CKVT 

R*A 

N.R. 

CKHT 

R*4 

N.R. 


CNF 

R*A 

N.R. 

CKK 

R*A 

N.R. 

RELI 

P*A 

N.R. 

TCLN 

R*4 

N.R. 


TBCll 

P«A 

N.R. 

TBCCS I 

RiSA 

N.R. 

GAP4 

fiXiA 

N.R. 

WFE 

R*4 

N.R. 


\^FLL 

R«A 

N.P. 

CELWFC 

R»A 

N.R. 

DELWP 

B»A 

N.R. 

DELWST 

R*4 

N.R. 

'J 

SKCC 

R>1<A 

N.R. 

SKRC 

R’tA 

N.R. 

SKSC 

R#A 

N.R. 

SKFW 

R*4 

N.R. 


SKIP 

R#A 

N.R. 

SKRCA 

RAA 

N.R. 

SKSCA 

RX4 

N.R. 

■ SKPC ■ 

fi*4 

N.R. 


SKAC 

R«A 

N.R. 

SKFL 

RAA 

N.R. 

SKENVl 

R«A 

N.R. 

SKENV2 

R*4 

N.R. 

cn 

SKCEl 

P>iA 

N.R. 

SKGE2 

R4A 

N.R. 

SKBLNT 

R*A 

N.R. 

SKBAL 

RX<4 

N.R. 


SKLG 

P*4 

N.R. 

SKhK 

R*A 

N.R. 

ELF 

B«A 

N.R. 

RNI 

fi*4 

N.R. 


SKVP 

p#A 

N.R. 

SKHT 

R«A 

N.R. 

SKVT 

R*4 

■N.R. 

SKPRB 

R’X4 

N.R. 


SKPEF 

R’S'A 

N.R. 

SKPF 

P*A 

N.R. 

SKAMD 

P*A 

N.R. 

SKAR 

R*4 

N.R. 


SKFA 

R’KA 

N.R. 

SKVTAF 

R*A 

N.R. 

SKPDS 

R>>A 

N.R. 

SKPBSZ 

P>!<4 

N.R. 


SH7 

R*A 

N.R. 

SKFS 

P*A 

N.R. 

SKPEI 

RXA 

N.R. 

SKPES 

B>X4 

N.R. 


SKI 

fi*A 

N.R. 

SK2 

R*A 

N.R. 

DK3 

R*A 

N.R. 

DK4 

R“4 

N.R. 


SK5 

P+A 

N.R. 

SKA 

p^A 

N.R. 

SK7 

p*4 

N.R. 

SK8 

Rx=4 

N.R. 


SK9 

RWA 

N.R. 

SKIC 

RAA 

N.R. 

SKII 

RX4 

N.R. 

,,SK12 

R*4 

N.R. 


SK12 

R*A 

’ N.R. 

SKIA 

R*4 

N.R. 

SK15 

R*A 

N.R. 

PUN 

RX<4 

N • R • 


GAPS 

P=KA 

N.R. 

TCLISC 

RAA 

N.P. 

XTGTA2 

R*A 

N.R. 

TIN2 

fix<4 

N.R. 


ThTW 

pAA 

N.R. 

PFET2 

RAA 

N.R. 

OELTH 

RXA 

N.R. 

STH 

RX<4 

N.R. 


CPSINC 

R*A 

N.R. 

XTGTAA , R’tA 

N.R. 

TINA 

RXA 

0CC3D4 

VIN 

R=»4 

N.R. 


CELR 

PAA 

0003FC 

RRA> 

R*A 

OOOAl'O 

DELFCR 

RXA 

000424 

ENPCR * 

RX-A 

0C0A38 


OELUFL 

RAA 

N.R. 

STPh 

R*A 

N.R. 

HFIN 

p«A 

N.R. 

GAP6 


N.R. 


CYCPRL 

P*A 

N.R. 

FF 

R*A 

OOOABA 

SK3 

RXA 

N.R. 

SK4 

RX<A 

N.R. 


TEHl 

RAA 

N.R. 

TETC 

R-^A 

N.R. 

TBH2 

R*A 

0004E8 

TBGRP 

RX=4 

OCOAFC 


TBSFC 

RAA 

000510 

TEPCK 

RX-A 

OC0530 

GAP7 

R#A 

N.R. 

ALFDES 

R*A 

N.R. 


ALFCL 

RAA 

0006AA 

ALFP 

P»A 

0C06A8 

AMU 

RX4 

OO064C 

8HPA 

R*A 

0C0650 


ePPR 

PA A 

00065A 

EHPSCF 

R=»A 

OC0658 

BHT 

R»4 

N.R. 

BLP . 

RX<4 

000660 


ER 

. R*A 

000664 

BS’ 

R«A 

N.R. 

' BVT 

B*4 

N.R. 

CBARF 

RX^A 

N.R. , 


CBARFT 

R*A 

N.R. 

CEARVT 

- R>»A 

N.R. 

CBARW 

R*4 

N.R. 

CCP 

R*4 

N.R. 



N.R. 

N.R. 

N.R. 

N.R . 

N.R. 

N.R. 

0006 E^ 

n.r'.' 

N.R. 

N.R. 

N.R. 

N.R. 

N.R . 

N.R. 

N.R. 

000660 

N.R, 

N.R. 

O008 S0 

N.R. 

000880 

N. R. 

N.R. 

0008EC 

N.R. 

N.R. 

000910 

N.R. 

000930 

N.R. 

N.R. 

N.R. 

N.R. 

N.R. 

N.R. 

N.R. 

N.R. 

Q009C0 

N.R. 


CC^ 

cppip 

CTF 

C 

CSPLI'T 

ELQ/l 

yaf 

FEFT 

FEh 

_Ff_ 

Gf'CCi 

indcrg 

IND FiUL 
INC FRF 
NCCPF 

Fi_ 

RHPFP 

S/S 5 

— 

SHTh 

STHET4 

SVTh. 

SViTT 

T/lF 



VGASe 

y 

h.L. 

>«FC 

hGSE 

^^^'C 

V»FSI 

NFPF 

feLSJL 

l»VT 

VtENV 

XLhl 

TGVh 

BHFF 
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_OOC68C 

N.R." 

N.R. 

0006BC 

N.R. 

N.R. 

N.R. 

'n.r.“ 

N.R, 

J0C7IC_ 
OOC8I8 
000828 
_N.R._ 

N.R. 

N.R. 

_00C863_ 

000878 

N.R. 

^00893. 
N . R J 

N.R. 

N.R. 

n\r." 

N.R. 

0008F8 

"n.r. 

N.R. 

N.R. 

N^R. 

N.R. 

N.R,_ 

N.R. 

N.R. 

N.R._ 

N.R. 

N.R. 

J3CC988 

0009C8 

N.R. 


_CPIN0 

CPTOT 

CX 

_ delta 
“elht' 

ELVT 
. FEhl 
FETCT 
FEWI 
JSAMOll 

Tours" 

INDETA 
INOCSW 
I PRINT 
ChE 
RHO 

rn' 

SA7 

ShT 

SSiGMA 

SVT 

_SWETH 

S2RH0 

THETA 

TR_ 

VHL 

WBALNT 

hES 

NFS 

NhT 

WPG 

WPRB 

WRC 

UST_ 

WPAYLO 

XLB 

XLW_ 

SiGMR 



LABEL 

i 

ACER 

0CC742 

L^SeEL 

2 

ACCR 

CCC7E6 

LABEL ADDA 

4 CC07A4 

LABEL 

5 

AODR’ 

CC0606 

PAGE 009 

3 

0CCE32 

■ £ 

'CCC87E 

7 CC08F0 

9 

000964 . 


11 

CCCS78 

16 

CCCS7E 

14 0GC9BQ 

•15 

■0009CC 


8 

CCC5FC 

1C 

C0CA42 

17 CCCA4E 

12 

COOA5E 


13 

302 

0CCA7C 

CCCC22 

2C 

COOBCE 

21 OOOBD6 

30C 

000016 


*CPTIOAS lA EFFECT-!' 
♦CPTIQAS lA EFFECT* 

AAME= MAIAiCFT=C2,LIAECAT= 
SOUR CE.EECCIC, ACL IST,ACDECK 

54fSIZE=0000K» 
,LGAO,MAP,ACEOITt lOfNOXREF 





■♦S7/1TISTICS* SOURCE STATEI>'E^TS = 141 , fBOCPAM SIZE = 3166 


»ST/TISTICS« AC CIAGACSTICS GEAERATEC 


END CP CCRFILATICA 


95 K eVTES ,CF CORE NOT USED 



LEVEL 21.7 { JAN 73 J 


OS/360 FORTRAN H 


DATE 75.112/16.09.54 



1 

tSN 000? 

COMPILER 

OPTIONS - NAME= MA IN ,0PT = 02 , L I NECN T=54 , S 1 ZE = 0 OOOK , . 

SOURCE, EBCDIC, NOLI ST, NODE CK, LOAD, MAP jNUED IT, ID 
SUBROUTINE DRAGIALFRl .. ' . 

,NOXREF 

OOCIOOOC 




C*4*4 MEMBER 

NAME BOIDRAG 





00020000 




C 

PAGE 1 

INPUT LUC 

OOOL THRU 

0050 



00030000 



ISN 0003 


COMMON 

OPTIND 

ii-IULIND 

tOYLINO 

. DRGINO 

.□SW IND 

.00C40000 





IFIXIND 

,KUMIN0 

rPRPINO 

, ETAIND 

, WO 

,XLBWO 

,00050000 





2XLRLA 

,VG30VH 

,XLGO 

, HMAXD 

, RHORHO 

, VMO 

,00060000 





3EMLF 

.CKl 

.OcLWF 

• CKFF 

. VDl VE 

.HOO 

. 00070000 





4R00 

,TOO 

,GAPU5) 

, SGTINUI 12) 

,ELHLOA 

,ELVLOA 

,00080000 





5GAP2(6) 






00090000 




c 

PAGE 2 

INPUT LOC 

0051 THRU 

0100 



00100000 



ISN 0004 


COMMON 

AK 

» w s 

,TCR 

, TCT 

,SLM 

,00110000 





lARHT 

,TCHI 

,VBARH 

,SLMH 

, ARVT 

, TCVT 

,00120000 





. 2VBARV 

.SI MVT 

.FLON 

.PLOT 

. ELOOA 

.ULSWSH 

.00130000 





3DSWET . 

.DLVLHL 

,OVUL 

,CBYLOA 

f £NR 

,WVA 

,00140000 





4DAM1 

,DAM2 

,BMR 

,0AM3 

.CLEYE 

,THETMR 

,00153000 





5XC 

.XMR 

.TVCMR 

. VT 

tCTSIGH 

.T.VW 

C0160000 



ISN 0005 


COMMON 

HES 

,T INY 

,ETAP2 

, ETAP4N 

,TSEM5(5) 

,00170000 





ITB8AP4I5) ,GAP3 





ooiaoooo 




c 

PAGE 3 

INPUT LOC 0101 THRU 

140 



0C190000 



ISN 0006 


COMMON 

DAM4 

,ENP 

,£TAT 

,HC 

, VC 

,00200000 





lATMlY 

,CDVT 

,CDHT 

,DAM5 

, DLTAFE 

,FEURAG 

,00210000 





2tXPDRG 

• C DC 

jCLALPU 

• CKVT 

,CKHT 

,CKF 

,00220000 





3CKS 

,RELI 

,TCLN 

, TBCLl 18) 

,T6C0Wi(8) 

,GAP414) 

00230000 




c 

PAGE 4 

INPUT LOC 141 

THRU 200 

WEIGHT DATA 


C0240000 


■vj 

_ ISN 0007 


C OMMON 

WFE 

jWFUL 

.OELWFC 

.OELWP 

.DELWST 

. 00250000 


1 



ISKCC 

tSRRC 

,SKSC 

, SKEW 

, SKTM 

,SKkCA 

,00260000 


m 



2SKSCA 

, S KMC 

,SKAC 

,SKHL 

, SKENVl 

, SKENV2 

,00270000 



iSK6.aj .JiKGB2 .B.K^USII . SKBA L . SKLG i.a0.2£iPOO.O 

4ELF ,KMI ,SKWF ,SKHT , SKVT ,SKFRB ,00290000 

5SKR8F tSKPH ,SKAMD ,SKAR ,SKPA .SKVTAR ,00300000 

^bKP-DS- , S.KHa5Z ,.S KJ liJiES i-SJi££I t3.li££B iJPP.3 1 00Oa 

7SK1 ,SK2 ,DK3 ,DK4 , SK5 ,i>K6 ,00320000 

8SK7 ,SRB ,SKV ,SK10 ,SK11 ,SK12 ,00330000 

as ijaia/t ,.sj^i 5 tiUJ;! dGA£5.(.3J ! o.o 34000 0. 

C PAGE 5 INPUT LOG 201 THRU' 300 00350000 

ISN 0008 COMMON TOLlNOtS) ,XTGTA2(51 ,TIN2(5) ,TWTW(5) ,PFET2(5) ,00360000 




IDFI THIS) .STH(5) .CRSINDfS) 

.XTGTA4I5) 

. T1N4('5) 

.VINI5) 

.00370000 



2UELRI5) ,RMAX(5) .DELFCRI5) 

3HFIM5) ,GAP6(10) 

PAC.F 6 INPUT 1 lie 301 THRU 400 

,ENPCR(5J 

,DhLWPL( 5) 

,STPW(5 ) 

,00380000 

00390000 

0040000Q 

ISN 0009 

C__ 

COMMON CYCPRL ,FF 

ITBTQIS) .TBH215) ,TBCRP(5) 

WORKING COMMON. 

,SK3 

, T8SFC (8) 

, SK4 

, TBP0WI8 ) 

,TBH1(5) 

,GAP7(60) 

,0'0410000 

00420000 

Ofii 3P-0 Q(J 


ISN 0010 COMMON ALFOE S, ALF DL , DUM 1 , AMU , 00440000 

1 6HPA,0IIRR,BHPSUP,BHT,BLP,BR,BS,BVT, 00450000 

J ^ ^ 2-j; b AEiu.CJ3AiillL,.C.BAR.Vi.£BABW-. C.C.P_, 0,46 0.0 00_ 

3,CPT0T,CRT,CTP,CV,CX,CLDES,Ca, 00470000 

4 DELRTH, DELTA, OH.USPLMT, ELC , ELHT , ELN , ELOA, ELT, ELVT , EN , ET AP , 00480000. 

5_EEil,£EliJ ^. F_e HL . F £ HT . F E T . F E TOT , F E V T , FE W^. F E WH , F EH I . F M ♦ PP. . £ l.A.P_4 0.04.9P.90.<L. 

ISN 0011 COMMON GAMUllO, 15), GLF,GMb01(16>,H, 00500000 


PAGE 002 


7 rCRUS, IN0r.l<U,IN0Ui<G, INUUYLi If^uET A, INOFIX, I N CHUC »IN OOPT , INDOSW, 00510000 

8 liNDPOWi IMOt'KPi INORUM, U't<INT , 00520000 



ISN 

0012 ■ 


CU.1M0N LTHL.NCCPP ,NGXP J , GW E, PEHF , P I , 0, RHO , R E AU , RHPMk.K.RN 

00530000 


ISN 

0013 


COMMON SA,SA5f SA6, SA7,SFC, SHPA,SHPR,SHT,SHTE ,SHTW,S IGHA,SSIGH A,ST 

, 00540000 





ISrHE.TA.STMAX ,SVT, SV TE , S VT W , S,W ,SWE TH , SWEXP , SN TT , S WWfc T,S2RHU 

C0550000 


ISN 

0 014 


COMMON T.TAF ,TC6AR, T HET A , TM AX ,TMP , T PROP f I K , U LF , VGAS B, VGAS R , VHL , V 

00560000 


ISN 

0015 


C Oh MOM W > WC>AL tWSALMT tWCC fWfc tW£P tWES > i^F* $ WF-C v WEK» WPWt 

00570000 





1 WGSBfWHLjKUT ,NLG , WHC , W PAYL i W PC. WPDS , WP E I .WP H, WPR8 . WPRG , HPRP , WPST K00580000 





2. WRC.WKCA.WSC, rSCA, WST, WTK,v.VT.WW,VlPAYLO.WAC,WENV 

00600000 


ISN 

0016 


COMMON XLALB.XLB, XLBH ,XLHU . XLK. XL W , YLS2 , TOVW 

006LOOOO 


ISN 

0017 


COMMON DMK.SIGMR. AF.BHPP.SEE 

00610100 


ISN 

0018 


NAMELIST /NO RAG/ FE WH . F EH I , FEKI , F EH, FET . T , AMU, CX. CDWI . Q . RHO, S A5. V 

C0620000 


ISN 

0019 


NTLL=TCLN+0.01 

Q0630000 


ISN 

0 020 


IF( INDl)YL.bU.2.0R.IN00YL.EQ.4J GO TO 10 

00640000 


ISN 

0022 


IF ( INDHUL.GT.i ) GO TO 10 

00650000 


' ISN 

0 024 


FEWH=0, 

00660000 


ISN 

0025 


rEHI=tLOA‘PUH«'(CLALPH«'.ALFR»»=2 + COC«ALFR’i‘’i'2*ABS (ALFR) ) 

00670000 


ISK 

0026 


FEWI = 0. 

00680000 


ISN 

0027 


GO TO 15 

OC690000 


ISN 

0028 

10 

IFl IN0HUL.EQ.3) GO TO 17 

00700000 


ISN 

0030 


COW 1=XL INT (TBCLl, TDCOWI .CLW.NTCL, Ml 

00700100 


ISN 

0 031 


IF IH.NE.O) WKITE(6, 10021 

00710000 


ISN 

0033 


FEWH=SA6K0WI*SW 

00720000 


ISN 

0034 


IF ( INOHUL.EO.l 1 GU TO 12 

00730000 


ISN 

0036 


FbWl = SW’«‘{CLALPH>i'ALFR=!"X2+CDC*ALFR**2*ABSULFR)) 

00 7400-00 


ISN 

0037 


bEHI=0.0 

00750000 


ISN 

0038 


GO TO 15 . ... 

00760000 

1 

ISN 

0039 

12 

FEHI=bLUA<=f)H#(CLALPH<'ALFR**2<-CDC*ALFR*'«'24ABS (ALFRl 1 

00770000 


ISN 

OOAO 


FEWI = SA7=!'CLW<'*2X'-SW 

00780000 

ijO 

ISN 

0041 

15 

FbH=SA> 

CC790000 


ISN 

0 042 


FET=FEH+FCWH+FEH1+FEWI 

ooaooooo 


ISN 

0043 


Q = i •42636<‘RHD'»V*>^2 

00810000 


ISN 

0044 . 


T=FEH‘G 

00820000 


ISN 

0 045 


IF ( INUPRP.EQ.O) GO TO 16 

00830000 


ISN 

0 047 


AMU=1.688«‘V/V1 

00840000 


ISN 

00-^8 


CX=2.«AMU#*2X<FET/ (PI*0MR<=42*ENR) 

00050000 


ISN 

0049 

1002 

F0RMAT(22X,34HTHI S ERROR IS IN THE CL, CDWI TABLE) 

00860000 


ISN 

0050 

16 

RETURN 

00880000 


ISN 

0 051 

17 

PEWI=0.0 . . 

00800100 


ISN 

00S2 


FEHI=SW>»(CLALPH4ALFR4*2+C0C4ALFR«‘*2*ABSIALFR) 1 

00880200 


ISN 

0053 


FEKH=0.0 

00880300 


ISN 

0054 


GO TO 15 

00880400 


ISN 

0055 


END 

00890000 



NAME 

TAG 

TYPE 

AUO. 

NAME 

TAG 

TYPE 

ADD. 

H 

£_ 

R*4 

N.R. 

M 

FA 

I 't‘4 

nnnnpfl 

T 

S C 

R*4 

0008EO 

V 

F C 

R>K4 

000910. 

AR 

C 

R«4 

N.R. 

3R 

C 

R«4 

N.R. 

CLL 

£_ 

k*4 

N.R. 

r.Y 

r 



FF 

C 

K*4 

N.K. 

FM 

c 

R=«'4 

N.R. 

PI 

F C 

R*4 

000864 

RN 

c 

R»4 

N.R. 

— SiL 

_£ C_ 

R#4 

-0008C8 

TK 

f. 

RA4 

W- R* 

WE 

C 

R*4 

N.R. 

WF 

c 

R*4 

N.R. 


NAME 



WRC 

C 

R#4 

N.K. 

WVA 

c 

R«4 

N.R. 

_ XLW 

r. 


N.tt . 

ARVT 

C 

R#4 

N.R. 

COHT 

c 

R*4 

N.R. 


c_ 

■ R*4 



DAM3 

DRAG 

-EJJU_ 


EMLF 

FEKL 


C R=C4 
R‘i‘4 
-C a*4_ 


GAP4 

HFIN 

-PLIiL 


C R’1'4 
C R«4 
-C 


N-R. 

0000F4 
CMLil, 


BHPA 

CUVT 

-tm. 


SHPR 

SKAR 


C K*4 
C R*4 
_C R»4 


N.R. 

N.R. 

.000710 


0AM4 

DUMl 

JiLBL. 



C R*4 
C R#4 
-C 


N.K. 

N.R. 


ETAP 

FEHT 

-GA P .l. 


N.R. 

N.K. 

-N.R. 


GAPS 

LTHL 

-R£k.L 


C 

C 

JL 


R*4 

R*4 


N.R. 

N.R. 

-N_.R . 


BHPP 

CONI 

J14J1L 


N.R. 

N.R. 


DAMS 

OVOL 

_EUA_ 


ET AT 
FEVT 


R«4 

N.R. 

BHPR 

C 

R#4 

R*4 

OOOOFO 

CKFF 

c 

R<'4 


N.R. 

QA-M2_ 

c_ 

-S»4 


R#4 

R’*'4 


R#4 

R«4 


N.R. 
N.R. 

-0-0- 0-608 


SKPA 

C 

R>i=4 

N.K. 

SKTM 

C 

R>i<4 

N.R. 

SKIP 

£L_ 

R#4 

—N.K, 

C R44 N.R. 


SHTE 
SKCC 
. SK.IiL. 


C 

C 

...£L. 


SKPH 

SKVT 

SKll 

SKIS 




GAP2 ■- 

r 

R»4 


HisnSHHI 

GAP6 

NT CL SFA 
RMAX 

c 

R*4 

1*4 

R*4 


N.R. 

N.R. 

JiLiJU. 


DELR 

ELON 

-HJiL. 


C 

C 

JL. 


R«4 

R<‘4 

R*4 


C 

C 

JL 

C 


N.K. 

N.R. 

N.R. 


R«4 

R’S'4 

R*4 

R#4 


N.R. 

N.R. 

N.R. 


SHTW 

SKFS 

-SiS.UG 

SKRC 

SKWP 

SK12 


. N.R. 
0000F3 

N.R. 


N.R. 


C 

c 

JL 

c 

c 


SLMH 


R#4 

R*4 

R*4 

K=«'4 

R=8<4 

R»4 


3*4 


N.R. 

N.R. 

-N.R. 

N.R. 

N.R. 

N.R. 


FEHI 
FEWH 
GAP 3 
GAP7 
PEHF 
SHPA 


SF C 
SF C 
' C 


R*4 

R*4 

P»4 


R<‘4 

R*4 

R*4 


C 

C 

JL 


R*4 

R«‘4 

RA4 


0006F0 

00070C 

N.R. 


N.R. 

N.R. 

N.R. 


SKAC 

SKFW 

S KHC 


SKSC 

SKWW 

SK13 

STPW 


C 

C 


R*4 

R#4 

R»4 


C 

C 


N.R. 

N.R. 

N.R. 


R#‘4 

R«4 

R»4 

R*4 


N.R. 

N.R. 

N.R. 

N.R. 


N.R 
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SVTt 

T8ri2 

TCVT 

C 

c 

c 

f<=e=4 

R*4 

R’1'4 

n;r. 

N.R. 

N.R. 

SVTW 

TBTO 

UNY. 

c • 
c 

. c 

R*4 

R*4 

R*4 

N.K. 

N.K. - 
.N.R. 

SNTT 

TCHT 

TIN2 

C 

C 

C 

R*4 

K*4 

R*4 

N.R. - 

N.R. 

N.R. 

■ TBHl 
TCLN 
TIN4 

F 

C 

C 

C 

IjiQI 



TMAX 

c 

K*4 

N.R. 

TUVW 

c 

R*4 

N.R. 

TWTW 

• C 



i i 9 






WENV 

c 

K44 

N.K. 

WFUL 

c 

R*4 

N.R. 

WGSB 

C 


■SB3H 

!9 



IS 9 



WPEI 

c 

k#4 

N.R. 

WPRB 

c 

R*4 

N.R. 

WPRG 

C 



31 






"WKCA 

c 

R*4 

N.R. 

WbCA 

c 

R*4 

N.R. 

XLBH 

c 

R*4 

N.R-. 

XLGO 


C 

R*4 

N. R. 


XLHL 

c 

R*4 

N.R. 

YLS2 

c 

R*4 

N.R. 

ALFOL 

C 

R*4 

N.R. 

ATMIY 


C 

K*4 

N. R. 


CBARF 

c 

K#4 

N.K, 

CBAKW 

c 

R*4 

N.R. 

CLOES 

c 

R*4 

N.R. 

CLEYE 


c 

R*4 

N « K • 


CP IND 

c 

R=«‘4 

N.R. 

CPNUU 

c 

R*4 

N.R. 

CPPAR 

• c 

R*4 

fs • R« 

CPPRO 


c 

R*4 

N.R.‘ 


CP TOT 

c 

Rv4 

N.R. 

DLLTA 

c 

R*4 

N.R. 

OELTH 

C 

R*4 

N.R. 

OELWF 


c 

R*4 

N. R. 


UEL(<P 

c 

H*4 

N.R. 

OS^ET 

c 

U*4 

N.K. 

ELDOA 

C 

R*4 

N.R. 

ENPCR 


c 

K*4 

N.R. 


ETAP2 

c 

RS=4 

N.R. 

ETAP4 

c 

R*4 

N.R. 

FfcTUT 

c 

R*4 

N.R. 

GMOOl 


c 

R*4 

N . k. 


HMAXD 

c 

R«4 

N.R. 

ICRUS 

c 

1*4 

N.K. 

NDRAG 



000000 

NOCPP 


c 

1*4 

N • 


NOXPJ 

c 

1*4 

N.R. 

PFET2 

c 

R*4 

N.R. 

REALJ 

c 

R*4 

N.R. 

RHPMR 


c 

R*4 

N.R. 


S I G.'1A 

c 

R*4 

N • K « 

S IGMK 

c 

R*4 

N.R. 

SKAMD 

c 

R*4 

N.R. 

SKBAL 


c 

R*4 

N.K. 


SKGBl 

c 

K*4 

N.R. 

SKGB2 

c 

H*4 

N.R. 

SKPOS 

c 

K*4 

N.R. 

SKPGI 


c 

B*4 

N.R. 


SKPES 

c 

R*4 

N.R. 

SKPRB 

c 

R*4 

N.R. 

SKROF 

c 

R*4- 

N.R. 

SKRCA 


c 

R*4 

N.R. 


SKSCA 

c 

R*4 

N.R. 

SLMVT 

c 

R*4 

N.R. 

STMAX 

c 

R*4 

N.R. 

SWETH 


c 

R*4 

■ N.R. 


SWtXP 

c 

R*4 

N.R. 

SrtWET 

c 

R*4 

N.R. 

S2RHU 

' c 

R*4 

N.R. 

TBCLl 

FA 

c 

R*4 

oooieo 


TBCRP 

c 

R*4 

N.R. 

TBEM5 

c 

R*4 

N.R. 


c 

R*4 

N.R. 

TSSFC 


mm 

R*4 

N.R. 


TCbAR 

c 

R*4 

N.R. 

THtTA 

c 

R*4 

N.R. 

TPRGP 

■ c 

R*4 

N.R. 

TVCMR 



K*4 

N.R. 


VB AKH 

c 

k*4 

N.R. 

V8ARV 

c 

R*4 

N .R. 

voi ve 

c 

R=t=4 

N.R. 

VGASB 




N. R, 


VGASR 

c 

R*4 

N.R. 

WPAYL 

c 

R*4 

N.R. 

WPSTR 

c 

R*4 

N.R. 

XLALB 



R*4 

N. R. 


XLBWO 

c 

R*4 

N.R. 

XL I NT 

F XF 

R*4 

000000 

xlrla 

c 

R*4 

N.R. 

ALFOES 


Q 

R*4 

N • • 


BHPSUP 

c 

R*4 

N.R. 

CBAKHT 

c 

R*4 

N.R. 

cbarvt 

c 

R*4 

N.R. 

C6YL0A 


c 

R*4 

N. R. 

^ J 

CLALPH F 

c 

R*4 

0001C4 

CRSIND 

c 

R*4 

N.K. 

CTSI GH 

• c 

R*4 

N.R. 

CYCPRL 


c. 

R*4 

N.R. 

1 

OELFCR 

c 

R*4 

N.R. 

DELRTH 

c 

R*4 

N.R. 

oeLwfc 

c 

R*4 

N.K. 

QELWPL 


t 

R*4 

N.R. 

00 

uELwbr 

c 

R*4 

N.R. 

OLSviSH 

c 

R*4 

N.R- 

OLTAFE 

c 

R*4 

N.R. 

DLVLHL 


c 

R*4 

N.R. 


DRGINl) 

c 

K*4 

N.R. 

DSPLMT 

c 

R*4 

N.R. 

OYLINO 

c 

R*4 

N.R. 

ELHLOA 


c 

R*4 

N « K • 


ELVLOA 

c 

R*4 

N.R. 

ET a1 NU 

c 

R*4 

N.R. 

ETAP 4N 

c 

R*4 

N. R. 

EXPDRG 


0 

R*4 

N.R. 


FEDRAG 

c 

R*4 

N.R. 

H XINO 

c 

rt*4 

N.K. 

GAMOU 

c 

R*4 

N.K. 

HULIND 


c 

R*4 

N.R. 


IBCOM# F 

XF 

1*4 

000000 

INOCRU 

c 

1*4- 

N.R. 

INDORG 

c 

1*4 

N.R. 

INDDYL 


c 

1 *4 

000o23 


INOETA 

c 

1*4 

N.R. 

INUFIX 

c 

1*4 

N.K. 

INDHUL 

c 

- 1*4 

0C0834 

INOOPT 


c 




INOOSW 

c 

1*4 

N.R. 

INOPOW 

c 

1*4 

N.R. 

INOPRP 

c 

1*4 

000844 

INDRDM 


c 




IPRINT 

c 

1*4 

N.R. 

OPTING 

X 

R*4 

N..R. 

OSWI NO 

c 

R*4 

N.R. 



c 




RDM li<0 

c 

K*4 

N.R. 

RHORHO 

c 

R*4 

N.R. 

• SGTINL) 

c 


N.R. 

SKBLNT 


c 




SKENVl 

c 

R*4 

N.R. 

SRENV2 

c 

R*4 

N.R. 

SKP0S2 

c 

R*4 

N.R. 

SKVTAR 


c 

R*4 



S S I GMA 

c 

R*4 

N.R. 

STHETA 

c 

R*4 

N.R. 

T8C0WI 

FA C 

R*4- 

000200 

TB3AP4 


c 

R*4 



THETMR 

c 

K*4 

N.R. 

TOUNO 

c 

R*4 

N.K. 

VG60VH 

c 

R*4 

N.R. 

WBALNT 


c 

R*4 

N.K. 


rt'PAYLQ 

c 

R*4 

N.R. 

XTGTA2 

c 

R*4 

N.R. 

XTGT A4 

C 

R*4 

N.R. 







COMMON INPOKMATION 


NAME OF 

/ 

VAR. NAME 

COMMON 

.TYPE 

bLOCK * 
REL. ADOR. 

* SUE 

.VAR. NAME 

OF BLOCK 
TYPE REL 

0009DC 
. ADDR. 

htXAOfcC IMAL 
VAR. NAME 

BYTES 

TYPE 

REL. ACOR. 

VAR. NAME 

TYPE 

REL. ADDR. 

OPTIND 

R*4 

N.R. 

HOLING 

R*4 

N.K. 

OYLINO 

K*4 

N.R. 

UKGIND 

K*4 

. N.K. 

OSWIND 

R#4 

N.R. 

FIXINO 

R*4 

N.K. 

KOMI ND 

R*4 

N.R. 

PRPIND 

R*4 

N.R. 

ETAIND 

. R*4 

N.R. 

. , . .WO 

R*4. 

N.R, 

XLBWO 

R*4 


XLRLA 

R*4 


VGBOVH 

R«4 

N.R. 

XLGO 

R*4 

N.R. 

HMAXD 

R*4 

N.R. 

- RHORHO 

R*4 

N.R. 
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VHO 

R=i'4 

M.K. 

cNLF 

R>^4 

N.R. 

CKL 

K#4 

N.R. 

DELWF 

R«4 

N.R. 


CKFF 

R*4 

N.R.- 

VDl Vt 

R*4 

N.R. 

HOCl, 

K«4 

N.R. 

ROO 

R<=4 

N.R. 


TUO 

RJi^A 

N.R. 

GAPl 

R4<4 

N.R. 

SGTINU 

R*4 

N.R. 

ELHLGA 

R«4 

N.R. 


ELVLOA 

R*4 

N.R. 

GAPS 

R*4 

N.R. 

AR 

R*4 

N.R. 

WS 

R-4 

N.R. 


TCR, 

R*4 

N.R. 

TCT 

R*4 

N.R. 

SLM 

R«4 

N.R. 

ARHT 

R’1‘4 

N.R. 


TCHT 

R#4 

N.R- 

VBARH 

R«4 

N.R. 

SLMH 

R«4 

N.R. 

ARVT 

R'J‘4 

N.R. 


TCVT 

R*4 

N.R. • 

VBARV 

R*4 

N.R. 

SLHVT 

R*4 

N.R. 

ELDN 

R*4 

N.R. 


ELDT 

R»4 

N.R. 

ELUOA 

R*4 

N.R. 

DLSkSH 

K«4 

N.R. 

OSnET 

R’!'4 

N.R. 


DL VLHL 

R*4 

N.R. 

DVOL 

R<=4 

N.R. 

CBYLOA 

R#4 

N.R. 

ENR 

R«4 

OOOllC 


WVA 

K>!'4 

N.R. 

0A«1 

R4^4 

N.K. 

DAMS 

R*4 

N.R. 

BMR 

R#4 

N.R. 


DAM3 

RS‘4 

N.R. 

CLEYE 

R*4 

N.R. 

THETMR 

R*4 

N.R. 

XC 

R*4 

N.R. 


XMR 

R’0'4 

N.R. 

rVCMK 

R^'4 

N.K. 

VT 

R«4 

000146 

CTSIGH 

R#4 

N.R. 


TVrf 

R*4 

N.R. 

HbS 

R*=4 

N.R. 

TINY 

R*4 

N.R. 

ETAP2 

R*4 

N.R. 


ETAPAN 

R*4 

N.R. 

TBEM5 

R'«'4 

N.R. 

T68AP4 

R*4 

N.R. 

GAP3 

R«4 

N.R. 


DAM4 

R«4 

N.R. 

FNP 

R*4 

N.K. 

6TAT 

R«4 

N.R. 

HC 

R*4 

N.K. 


VC 

R«4 

N.R. 

ATMIY 

R*4 

N.R. 

CDVT 

R*4 

N.R. 

CDHT 

R>!=4 

N.R. 


DAi-ti 

R«4 

N.R. 

DLTAFE 

R«4 

N.R. 

FEDKAO 

R*4 

N.R. 

EXPOKG 

R«4 

N.R. 


CDC 

R44 

OOOICO 

CLALPH 

R#4 

0001C4 

CKVT 

K*4 

N.R. 

CKHT 

R»4 

N.K. 


CKF 

R«4 

N.R. 

CXW 

R#4 

N.R. 

REU 

R*4 

N.R. 

TCLN 

R*4 

OOOiOC 


TBCLl 

R#4 

OOOIEO 

TBCDWI 

R#4 

000200 

GA P4 

k*4 

N.K. 

HFE 

R#4 

N« R* 


WFUI 

H«4 

N.R. 

OFI WFC 

R#4 

N.R. 

OFLUP 

R*4 

N.R. 

DELWST 

R#4 

N.R. 


SKCC 

k*4 

N.R. 

SKRC 

R*4 

N.R. 

SKSC 

R#4 

N.K. 

SKFW 

R#4 

N.R. 


SKTM 

R>>4 

N.R. 

SKRCA 

R*4 

N.R. 

SKSCA 

K=i=4 

N.R. 

SKMC 

R«4 

N.R. 


RKAC 

R«4 

N.R. 

SKHL 

R«4 

N.R. 

SKENVl 

R<=4 

N.R. 

SKENV2 

R*4 

N.R. 


SKGB'l 

R*4 

N.R. 

SKGB2 

R+4 

N.K. 

SKBUNT 

K»4 

N.K. 

SKOAL 

R*4 

N.K. 


SKLG 

R<'4 

N.R. 

SKW^ 

3*4 

N.R. 

ELF 

R#4 

N.R. 

RMI 

R*4 

N.R- 


!sKWP 

k«4 

N.R. 

SKHT 

R*4 

N.R. 

SKVT 

R^‘4 

N.R- 

SKPRB 

R*4 

N.R. 

1 

SKR3F 

R«4 

N.R. 

SKPH 

Rl'4 

N.R. 

SKA MO 

R44 

N.R. 

SK.AR 

R«4 

N.R. 

00 

SKPA 

R*4 

N.R. 

SKVTAR 

R>(‘4 

N.R. 

SKPDS 

R*4 

N.R. 

SKPDS2 

K*4 

N.R. 


<;kt 


N.R. 

SKFS 

R44 

N.R. 

SKPEI 

R*4 

N.R- 

SKPES 

R«4__ 

N.R. 


SKI 

R#4~ 

N.R. 

SK2 

R#4 

N.R. 

DK3 

R*4 

N.R. 

0K4 

R*4 

N.R. 


SK5 

R*4 

N.R. 

SK6 

R*4 

N.K. 

SK7 

R*4 

N.R. 

SK8 

R*4 

N.R. 


<;kc3 

R«4 

N.R- 

«iK 10 

R«4 

N.R. 

SK 11 

R#4 

N.R. 

SKIS 

R^4 

ti.R. 


SK13 

R>»4 

N.R. 

SK14 

R*4 

N.R. 

SK 15 

K*4 

N.R. 

PL IN 

R*4 

N.R. 


GAP5 

R#4 

N.R. 

TOLINO 

R«4 

N.R. 

XTGT AS 

R*4 

N.R. 

TIN2 

R’(‘4 

N.R. 


TWT/J 

R«4 

N.R . 

PFET2 


N.R- 

OELTH 

R*4 

. . _M* K • . . . . 

STH 

R’(‘4 




CRSIIMO 

R*4 

N.R. 

XT6TA4 

R*4 

N.K. 

TIN4 

k«4 

N.R. 

VIN 

R«4 

N.R. 


DELR 

R44 

N.R. 

RMAX 

R<'4 

N.R. 

DELFCR 

R*4 

N.R. 

ENPCR 

R«4 

N.R. 


OFI ifJPI 

R#4 

N.R. 

STPW 

R’i'4 


HF IN 

R*4 

N.R. 

GAP6 

R«4 

N.K. 


CYCPRL 

R*4 

N.R. 

FF 

R*4 

N.R. 

SK3 

K*4 

N.R. 

SK4 

R*4 

N.R. 


TBHl 

R*4 

N.R. 

TBTU 

R»‘4 

N.R. 

TBH2 

R*4 

N.R. 

TBCRP 

R^4 

N.R. 


TR<:Fr. 

K«4 

N-R- 

TRPOW 

R<=4 

N.R. 

GAP7 

R*4 

N.R. 

ALFOES 

R^4 

N.R. 


ALFDL 

K*4 

N.R. 

DUMl 

R*4 

N.K. 

AMU 

R*4 

00064C 

8HPA 

R+4 

N.R. 


BHPR 

R»4 

N.R. 

BHPSUP 

R44 

N.R. 

BHT 

R*4 

N.R. 

BLP 

R^'A 

N.R. 


flk 


N.R. 

BS 

R*4 

N.K. 

BVT 

R <=4 

N.R. 

CBARF 

R>^4 

N.R- 


CBARHT 

R’t'4 

N.R. 

CBARVT 

R>K4 

N.R- 

C6ARW 

R*4 

N.R. 

CCP 

R«‘4 

N.R- 


CCT 

R*4 

N.R. 

COV 

R*4 

N.R. 

CLW 

R*4 

00068C 

CPIND 

R*4 

N.R. 


rpNun 


N.R . 

r.PP AR 

H<<4 

N.R. 

CPPKO 

R#4 

N.R. 

CPTOT 

R#4 

N.R. 


CRT 

R^4 

N.R. 

CTP 

R^sA 

N.R. 

CV 

R#4 

N.R. 

CX 

R'F4 

0006B0 


CLOES 

R=»4 

N.R. 

CB 

Ri<'4 

N.R. 

DELRTH 

R=«'4 

N.R. 

DELTA 

K’«‘4 

N.K. 


DH 





N.R. 

ELC 

R*4 

N.R. 

ELHT 

R44 

N.R. 


ELN 

R#4 

N.R. 

ELQA 

R*4 

0006D8 

ELT 

R*4 

N.R. 

ELVT 

R*4 

N.R. 
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EN 


N.R. 

ETAP 

R*4 

N.R. 

FEH 

K*4 

0006EC 

FEHI 

P,*4 . 

OOOoFO 



FEHL 

R«4 

N.R. 

FEHT 

R*4 

N.R. 

FET 

h*4 

0006FC 

P’S TUT 

R*4 

N.R. 



FEVT 

K#4 

N.R. 

FEW 

R*4 

N.R. 

FEWIi 

R*4 

00070C 

FEWI 

R*4 

000710 



FM 

R=S'4 

N.K. 

FP 

R*4 

N.R. 

ETAP4 

R*4 

N.R. 

GAMDll 





GLF 


N.R. 

GMDDl 

R*4 

N.R. 

H 

R*4 

N.R. 

ICRUS 





INUCKU 


N.R. 

INUDRG 

1*4 

N.R . 

INOUYL 

1*4 

00082 e 

INDETA 





INDFIX 

1*4 

N.R. 

INDHUL 

1*4 

000d34 

INOOPT 








INDPUW 

1*4 

N.R. 

INOPRP 

1*4 

000844 

INORDM 








LTHL 

1*4 

N.R. 

NOCPP 

1*4 

N.R. 

NJXPJ 








PEHF ' 

K*4 

N.R. 

PI 

R*4 

000864 

Q 

R*4 

000868 

RHU 

R*4 

00086C 



REALJ 

R*4 

N.R. 

RHPMR 

R*4 

N.R. 

R 

R*4 

N.R. 

RN 

R*4 

N.R. 



SA 

R*4 

N.R. 

SA5 

R*4 

000884 

SAG 

R*4 

000888 

SA7 

R*4 

00038C 



SFC 

R*4 

N.R. 

SHPA 

R*4 

N.R. 

SriPR 

k*4 

N.R. 

SHT 

P.*4 

N.R. 



SHTE 

K*4 

N.R. 

SHTW 

R*4 

N.R. 

SIGMA 

R*4 

N.R. 

SSIGMA 

R*4 

N.R. 



sr 

R*4 

N.R. 

STHETA 

R*4 

N.R. 

STMAX 

R*4. 

N.R. 

SVT 

R*4 

N.R. 



SVTE 

R*4 

N.R. 

SVTW 

R*4 

N.R. 

Sw 

R*4 

0008C8 

SWETH 

R*4 

N.R. 



SWEXP 

R*4 

N.R. 

SWTT 

R*4 

N.R. 

SWWET 

R*4 

N.R. 

S2RH0 

' R*4 

N.R. 



T 

R*4 

OOUBEO 

TAF 

R*4 

N.R. 

TCBAR 

R*4 

N.R. 

THETA 

P.*4 

N.R. 



TMAX 

R*4 

N.R. 

THP 

R*4 

N.R. 

TPROP 

R*4 

N.R. 

TR 

R*4 

N.R. 



ULF 

R*4 

N.R. 

VGAS6 

R*4 

N.R. 

VGA SR 

R*4 

N.R. 

VHL 

R*4 

N.R. 



V 

R*4 


W 

R*4 

N.R. 

wbal 

R*4 

N.R. 

W3ALNT 

R*4 

N.R. 



WCC 

R*4 

N.R. 

WE 

R*4 

N.R. 

WEP 

R*4 

N.R. 

WES 

R*4 

N.R. 



■rtf 

R*4 

N.R. 

WFC 

R*4 

N.R. 

WFR 

R*4 

N.R. 

WFS 

R*4 

N.R. 



WFw 

R*4 

N.R. 

WGS6 

R*4 

N.R. 

WHL 

R*4 

N.R. 

WHT 

R*4 

M.R. 



WLG 

R*4 

N.R. 

WMC 

R*4 

N.R. 

WHAYL 

R*4 

N.R. 

WPG 

R*4 

N.R. 



WPDS 

R*4 

N.R. 

WPEI 

R*4 

N.R. 

WPH 

R*4 

N.R. 

WPR8 

R*4 

N.R. 


•vl 

WPkG 

K*4 

N.R. 

WPRP 

R*4 

N.R. 

WPSTR 

R*4 

N.R. 

WRC 

R*4 

N.R. 


i 

CO 

w 

WRCA 

R*4 

N.R. 

HSC 

R*4 

N.R. 

WSCA 

R*4 

N.R. 

WST 

R*4 

N.R. 


WTM 

R*4 

N.R. 

WVT 

R*4 

N.R. 

WW 

R*4 

N.R. 

WPAYLO 

R*4 

N.R. 


WAC 

R*4 

N.R. 


R*4 

N.R. 

XLAU3 

R*4 

N.R. 

XLB 

R*4 

N.R. 
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^OPTIONS IN EFFECT* NAME= MA1N,0PT=02,LINECNT=54, SI2E=OOOOK, 

jiaPTIONS IN EFFECT* SOURCE » EBCDI C. NOLI ST .NOOECK, LDAP, MAP, NQED IT, ID.NOXREF 

♦STATISTICS* SOURCE STATEMENTS = 54 .PROGRAM SIZE = 1054 
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lN.iii«flitjiiiii:An»ninii 




ISN OOU 


ISN 0014 


i 1 


ISN 0017 
ISN 0018 


ISN 0019 
ISN 0021 
ISN 0022 
ISN 0023 
ISN 0024 

rwoiizs" 

ISN 0026 
ISN 0028 

I37T"0-029 

ISN 0031 
ISN 00 32 

ISN 0034 
ISN 0035 

iSN 0037 

I ISN 0038 
00 ISN 0040 

■ — rsfnravr 

ISN 0042 
ISN 0043 

rs7nro’4’4~ 
ISN 0046 
ISN 0047 

i'sn ■ o'OTg" 

ISN 0049 
ISN 0050 

rsTnnjsT" 

ISN 0054 
ISN 0056 
ISN 07J57“ 
ISN 0058 
ISN 0059 
ISN 0061“ 
ISN 0063 

ISN 0 064 

I Sn DUo5~ 
ISN 0066 
ISN 0067 


jlNUUKbj INLIUYL, li 

8 INOPOW, INDPRP, INDKOM.IPKINT 00520000 

COMMON LTHL,NaCPP,NUXPJ,Owe,PEHF,PI ,Q,RHO,R£Al.J,RHPMR,(\,RN 0 0 530000 

-'COWM GN • SA, SA 57SA'5'7S~aT ? S'FCTSHP-ATSHPKTSH T i S T ^Tgi ' SH r VI TS'fGMAT S'S 1 GH'A , S I ^ 00540000' 
1STHETA,ST,MAX,SVT, SVTE , S VTW , SW ,SWE TH , SWE XP , SW IT , SHWE T , S2RH0 00550000 

COMMON T.TAF ,TCBAR, THETA, TMAX ,THP , T PROP ,T R, U LF, V6AS B, VGAS R , VHL , V 00560000 

“nCOWKOI<r‘rt7'WfrB:r,“3 BATNTTfiC CTWETvTEPTW gS,WF,NFCTlSFR,WFS,RFWl 00 570 ODO" 

I WGSB,WHL,»JHT,WLG,HMC,WPAYL,WPC,WPDS,HPei,WPH,/<PRB, WPRG,WPRP,WPSTR00580000 
2, WRC,WKCA,V.SC,WSCA,UST,WTM,WVT,WW,WPAYLO,WAC,HENV 00600000 




COMMON DMR,SIGMK, AF,BHPP,SEE 

namelist /NENGSZ/ XLR,XLH,LE1,XLH2,81,B2,0ALFR,ALFR,LE2,CLW2, 


W,bMMK,BLH',BMPPl,BhPP, I, it 
IF (INDFIX.EQ.O) GO TO 22 
ALFR=O.Q 

7=VC 

HH=HC 

CALL ATMOSIHCtATHIY) 

C?^rT4753'5W0W572: 

IF (INOHOL.GT.U GO TO 11 
XLR=0.0 

rF~TINUUVL.Gt.2) GO TO I 

GO TO 2 
1 ALFR=0. 


CLW=0.0 

IF ( INUDYL.EQ.3) GO TO 2 
— llk;=u:oe3 

2 IF IlNUOYL-EQ.l) GO TO 3 
CLW=CLOES 

— 

GO TO 8 

3 XLH=WQ-( XLBWO*WO) 

TF IXLH.GIVOrG’O TO 4 

ALFR=0.0 

CLW^O.O 

GO" TD“S 

4 LE1=0 

IFI INUHUL.EQ.3) SPL=SW 


IF(XLBhO.EO.l.O) 60 TO 10 
ALFK=0. 08727 

5 Lti^El+i 

XLHZ^O’t'S PL» I CL ALP H* ALFR 4-COC#ALFR=0‘ ABS I AL FR ) ) 
IF {ABSI ( XLH-XLH2 )/XLH) .LT.0.01 1 GO TO 10 

IF (LEI. LI. 2) GO lU 6 

B2=XLH2-XLH 

DALFR=(B2/(B1-B2) l^DALFR 

BT=T(2 

GO TO 7 

6 B1=XLH2“XLH 


■ • I at itli 1 1 1 


00610100 

00620000 


UU6JUUUU 

00640000 

00640100 

"OTOgOOUU 

00660000 

00670000 

■GGgsoooir 
OC690000 
00700000 
TTO 770000“ 
00720000 
00730000 
“00740000“ 
00750000 
OC760000 
“OOTTOOOO" 
00780000 
00790000 
070800000“ 
00810000 
00 82000 0 
“OO83W00“ 
00840000 
00850000 
"00’8«50000“ 
00870000 
00870100 
“TJOH70r20D“ 
00870300 
00880000 
TKT8900n0O“ 
00900000 
COSIOOOO 
U0920U0U 
C0930000 
C0940000 
“00950000“ 
00960000 
C0970000 



ISiN 0070 
ISN 0071 
I5N 0073 
ISN 0074 
ISM 0075 
TS-|T-TO'07i5“ 
ISM 0077 
ISM 0079 
ISM UOdO 
ISM OOSl 
ISM 0032 


L UO ^ 

ISM 0084 
ISM 0085 
ISM "0086 
ISM 0087 
ISM OOdO 
-TS M— 00S9~ 
ISM 0090 
ISN 0092 
■ ISN 0X194“ 
ISM 0095 
ISM 0096 
TSj7“0C97“ 
ISN 0098 
ISN 0100 
-TSM'-oro^ 
ISM 0103 
ISM 0104 
TSTC T3TJ5“ 
ISN 0106 
ISM 0107 
“ISN "0103 
ISN 0109 
ISN 0110 

ISN 0113 
ISN 0115 

"Tsr~o-rn- 

ISN 0118 
ISM 01 19 

ISM 0122 
ISN 0123 
is.v-o'ir4- 
ISN 0126 
tSiN 0127 
TSiVOlZB- 
ISN 0129 
ISN 0130 


GU TO 3 

8 -IF { IN00YL.GT.2) GO TO 9 

GO T O 10 

9 CTP=4.0’>XLR/ (RHQ*VT**2’fPI#DMR*42*ENRJ 
AMU=1.638*V/VT 

TCr-GtTTO- n 

11 IF nNOOYL.EO.2) GU TO 12 
XLK=XLRLA*XUALB«‘XLBWO*WO 

CL.<=XLH/(Q*Sh) 

CLOES=CLW 


AMU=1.688*V/VT 
GO TO 13 

T 2~X LH - W trmrO ^ -X I IB WO ) 

CLW=XLH/ <Q*Sh) 

CLDE5=CLW 

yt.-R= O TO 

13 IF( IN0HUL.EQ.3) GO TO 4 
IF(XLBriO.EQ.l.O) GO TO 17 

rET=iO 

ALFR=0. 08727 

14 L E2= LE2*1 

IF (A8SUCLW-CLW2 )/CLW) .LT.O.onsO TO 17 
IF (LE2.LT.2) GO TO 15 

B"2=nrW2=C tTJ 

OALFK=< B2/IB1-B2) }*DALFR 
B l=B2 

Gtr^rtr-rs 

15 Bl = CLW2-Cl.W 
DALFR=0. 17453 

GO TO 14 

17 call ORAG(ALFk) 

n=-rtIWHtJirTGT^-J— AtFOe^-AtFIl 

IF (INDDYL.GT.2) GO TU 20 
IF (INDETA.GT.O.) GO TO 18 

M E T AP4 "“=^“rnTP4 N “ T -trrt ^ 

bTAP4=XLINT( T8EM5 f T U8 AP4 t V. NETAP4 . H ) 
IFIM.NE.O)WRIT£(6,100U 

GO TO 21 

18 BLP=XLlNT(TBH2f TBCRPfHHtStM) 

r f ( .3 . N e ♦ 0 ) w R i Ters-rroo^ 

aLP=FACTR(6LP,HH,TH£TA,FF). 

YLS2=1,0 

ITE-Ki^o 

£TA=0.85 

7PR0P=T 


PAGE 003 



PAGE 004- 


^ rSTT 

ISN 

ISN 

■DTS'Z 

0133 

0134 

19 

BHPPi=|Trv/( j 25.63 &5*ET7ri*UbLRIH=i'BLPJ ! — ^ 

IT£R=ITER+1 

BHPP=6HPP1/ETA 

— Dr45ootro 
01460000 
.01470000- 


TJT35 


CALL IHKUS 1 1 1 PKUH ) ^ 

01 4'BOOO 0 

ISN 

0136 


IF (ABS( 1.0-(TPRUP/TPR0P1) > .LT.005) GO TO 22 

01490000 

ISM 

0138 


ETA=ETAP 

01500000 

i SM 

"0X39 


"TF fTTFRTGTTXST W RI TE (6 ,1003 ) ^ 

01510000 ^ 

ISN 

0141 


GO TO 19 

01520000 

ISN 

0142 

20 

CALL kOTPOW 

01530000 

1 SN 



"HBFRH R H PTTRTETJTC 

0X540000 

ISN 

0144 

21 

BLP=XLINT<TBH2,TBCRP,HH,5,M) 

01550000 

ISN 

0145 


BLP=FACTR(BLP, FH, THETA, FF) 

01560000 

rSTT 

'irT4'5 


TFl'M.Nb.Ol WRllbI 6, 10021 

DT57DOOO ^ 

ISN 

0148 


BHPP=BHPR/(BLP*DELRTH) 

01560000 

ISN 

0149 

1001 

FDKHAT{22X35HTHIS ERROR IS IN THE V-ETAP4 TABLE ) 

01590000 

1 SN 


1002 

■FURHATI2'2T:3"5HIH1S error IS" in IHb H-PUHbRTABrE” ) 


ISN 

0151 

1003 

F0RMATI22X,' ERROR , THE NUMBER OF ITERATIONS IN THE ENGINE 

01610000 


1 SIZING ROUTINE EXCEEDED 25, CASE TERMINATED') 01620000 



/ 


ENGSZ / 


SUE OF PROGRAM 000922 HEXADECIMAL BYTES PAGE 005 



NAME 

H 

TAG 

C 

TYPE 

R'i'4 

ADD. 

N-R, 

NAME 

M 

TAG 

FA 

TYPE 
I *4 

ADD. 

OOOIDB 

NAME 

Q 

TAG 

SF C 

TYPE 

R*4 

ADO. 

000868 

NAME 

k 

TAG 

C 

TYPE 

R*4 

ADD. 

N.k. 


T 

r 


' — 

"OOOB'fcT) 

Y^>T7i U K V ^ UU vJ Vr U 

n 


— 

~R*4 


Af 


— 


N • R • 


AR 


C 

R#4 

N.R. 

BR 


C 

R*4 

N.R. 

BS 


C 

R*4 

N.R. 

R1 

SF 


R*4 

0001 DC 


B2 

SF 


R«4 

OOOIEO 

CB 


c 

R*4 

N.R. 

CV 


C 

R*4 

N.R. 

CX 


c 

R*4 

N.R. 


DFT 

P 

“'C ■ 


-000GC4 

Bpr 


C" 

— R"*4- ■ 

K ♦ K * 

. 

F'A 

c 

—R*’4 — 

”OG04"B4- 

FM 


“C 

”ft*4 

tr, ft:; 


FP 


c 

R*4 

N.R. 

HC 

SFA 

c 

R*4 

OOOL9C 

HH 

SFA 


R*4 

0C01E4 

PI 

F 

C 

R*4 

000864 


RN 


c 

R*4 

N.R. 

SA 


c 

R*4 

N.R. 

ST 


c 

R*4 

N.R. 

sw 

F 

c 

R*4 

0003C8 


1 K 


c 


NrRi 

VC 

F 

C" 

ou u j. aa; 

V'T'^ 

p 

c 


l'IE“ 



Nrft:; 


WF 


c 

R*4 

N.R. 

wo 

F 

c 

R*4 

000024 

ws 


c 

R*4 

N.R. 

WW 


c 

R*4 

N. R. 


XC 


c 

R#4 

N.R. 

AMU 

S 

c 

R*4 

00064C 

dht 


c 

R*4 

N.R. 

8LP 

SFA 

C 

R*4 

000660 


Bi-IR” 


c 

k"^*t 

RT?n 

BVT" 


“C" 

— R*4 

N • R • 

CXT” 


c 


iv« R • 

CC I 


-*c 

— R*^ 

IN • R • 


CDC 

F 

c 

R*4 

OOOICO 

CDV 


c 

R*4 

N.R. 

CKF 


c 

R*4 

N.R, 

CKW 


c 

R*4 

N. R. 


cia 


c 

R*4 

N.R. 

CLW 

SFA 

c 

R*4 

00068C 

CRT 


c 

R*4 

N.R. 

CTP 

S 

c 

R*4 

0006 A8 


DK3 


0 

-TTCTf — 

NVR'i 

0X4 


TT 

— R'^^A 

N.'RT 

OMR- 

F 

c 

~R'*4 — 

■W09C8 

ELC 


c 

“ft*4 

“ N • K* 


ELF 


c 

R*4 

N.R. 

ELN 


c 

K*4 

N.R. 

elt 


c 

R*4 

N.R. 

ENP 


c 

R*4 

N.R. 


ENR 

F 

c 

R*4 

OOOUC 

ETA 

SF 


R*4 

0001E8 

FEH 


c 

R*4 

N.R. 

FET 


c 

R*4 

N.R. 


KcW 


C” 

R«-4 

N.R. 

GCF“ 


c 

— R*4 

N * k • 

HU'S" 


c 

~K*4 

N • R* 

'HOO" 


“C“ 

—ft *4 

{^* R« 


LEI 

SF 


1*4 

OOOIEC 

LE2 

SF 


1*4 

OOOIFO 

owe 


c 

R*4 

N.R. 

RHO 

F 

c 

R*4 

00086C 


RMI 


c 

R*4 

N.R. 

ROD 


c 

R*4 

N.R. 

SA5 


c 

R*4 

N.R. 

SAo 


c 

R*4 

N.R. 


SA / 



R*4 

NrR. 

SFE“ 


c 

— R*"4 — 

U • H « 

StG^ 


c 

~R^4 — 

mft. 

SHT 


c 

— (<*4 

fTTft^ 


SKT 


c 

R*4 

N.R. 

SKI 


c 

K*4 

N.R. 

SK2 


c 

R*4 

N.R. 

SK3 


c 

R*4 

N • R « 




c 

R#4 

N.R. 

SK5 


c 

R*4 

N.R. 

SK6 


c 

R*4 

N.R. 

SK7 


c 

R*4 

N.R. 




c 


WTITT 

SK9" 


“tr 


N • 

STM" 


c 

~K'*4 

N « K • 

SPL 

"SF 


— cf uou i r 


STH 


c 

R*4 

N.R. 

SVT 


c 

R*4 

N.R. 

taf 


c 

R*4 

N.R. 

TCR 


c 

R*4 

N.R. 


TCT 


c 

R*4 

— 

N.R. 

TMP 


c 

R*4 

N.R. 

TOD 


c 

R*4 

N.R. 

TVW 


c 

ft*4 

N-R. 

t 

OCF~ 


c 


N * K« 

/Htr 


— c 

K*"'?" 

ntri 

V-IW" 


c 

R^4 

H * 

VMO" 


“C 

— ft*4 

R • R» 

oo 

WAC 


c 

R*4 

N.R. 

WCC 


c 

R*4 

N.R. 

WEP 


c 

R*4 

N.R. 

WES 


c 

R*4 

N. R. 

VD 

WFC 


c 

R*4 

N.R. 

WFE 


c 

. R*4 

N.R. 

WFR 


c 

R*4 

N.R. 

WFS 


c 

R*4 

N.R. 


WFVT" 


c 

R*4 

NTfCT 

HTtr* 


~C' 


k • k* 

HHT' 


L. 

h • R« 

WtG- 



N • R"* 


WMC 


c 

R*4 

N.R. 

WPC 


c 

R*4 

N.R, 

WPH 


c 

R*4 

N.R. 

WRC 


c 

R*4 

N.R. 


wsc 


c 

R*4 

N.R. 

wsr 


c 

R*4 

N.R. 

wtm 


c 

R*4 

N.R, 

WVA 


c 

R*4 

N.R. 


pfVT“ 


c 

~KF4 — 

RTKT 

xnr* 


c 

— R*"4 

N.R. 

XCTT 

"SFA— 




c 

—(^■*4 

“uOovfrS 


XLH 


c 

k*4 

N.R. 

XMR 


c 

R*4 

N.R. 

ALFR 

SFA 

c 

R*4 

000643 

ARHT 


c 

R*4 

N.R. 


ARVT 


c 

K*4 

N.R- 

BHPA 


c 

k*4 

N.R. 

BHPP 

S 

c 

R*4 

OC09D4 

BHPP. 

SF 

c 

K*4 

000654 


C Oh f 


c 


RTRt;: 

CDvr" 


— C" 

R*4 

ntr. 

CICFF" 


c 


h* R* 

CKUT" 


c 

R"*4 

N * R« 


CKVT 


c 

R*4 

N.R. 

CLW2 

SFA 


R*4 

OOOIFC 

DAMl 


c 

R*4 

N.R. 

DAM2 


c 

K*4 

N-R. 


DAK 3 


c 

R*4 

N * k • 

DAM4 


c 

R*4 

N.R. 

OAKS 


c 

R*4 

N.R. 

DELR 


c 

R*4 

N.R. 


DRAG" 

"SF 

" XF 

'■'R*4 

' ooocoo 



~tr 

— R"*4 — 

NTf?T 

ifL Dm 


c 

—R'*4 — 

h • R • 

^'tOT- 


c 

— ft*4 

R • R« 


ELHT 


c 

R*4 

N.R. 

ELUA 

F 

C 

R*4 

000608 

EL VT 


c 

R*4 

N.R. 

EMLF 


c 

P.*4 

N.R. 


ETAP 

F 

c 

K*4 

0006E8 

ETAT 

F 

C 

K*4 

000198 

FEHI 


c 

R*4 

N.R. 

FEHL 


c 

R#4 

N.R. 


F'cHT" 



•R*4 — 

N'j'Rt 

FEVT“ 


“C“ 

— (T*4 — 

N'.“Rt 

FtWlf 


c 

— ■ 

Nvft, 

FEwl 


— Q— 

ft*4 

N.ft".' 


GAPl 


c 

R*4 

N.R. 

GAP2 


c 

R*4 

N.R. 

GAP3 


c 

R*4 

N.R. 

GAP4 


c 

R«4 

N.R. 


GAPS 


c 

R*4 

N.R. 

GAP6 


c 

R*4 

N.R. 

GAP? 


c 

R*4 

N.R. 

HFIN 


c 

R*4 

N. R. 


rrER“ 



— rnj — 

-OO&2'00 

tTHt" 



— PWf — 

— NtR^ 

Pt+Ip- 


c 

~R*4 — 

H • R « 

fttllv 


c 

1^*4 — 

K • R* 


RELI 


c 

R*4 

N.R. 

RMAX 


c 

R*4 

N.R. 

SHPA 


c 

R*4 

N.R. 

SHPR 


c 

R*4 

N.R. 


SHTE 


c 

R*4 

N.R. 

SHTW 

■ 

c 

R*4 

N.R. 

SKAC 


c 

R*4 

N.R. 

SKAR 


c 

R*4 

N.R. 


^CC“ 



“ K^f-4 

ntRt; 

SKFS 



R *^4 


SK'F'rf' 


c 

—ft *4 

• R « 

SKHL 


c 

S'* 4 

N « k • 


SKHT 


c 

R*4 

N.R. ■ 

SKLG 


c 

R*4 

N.R. 

SKMC 


c 

R*4 

N.R. 

SKPA 


c 

R*4 

N.R. 


SKPH 


c 

R*4 

N.R. 

SKRC 


c 

R*4 

N.R. 

SKSC 


c 

ft *4 

N.R. 

SKTM 


c 

R*4 

N.K. 
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siar 
SK15 
SVTW 
rRTiT 


C 

C 

K*A-' 

R=»4 

R*4 

IT7R. 

N.R. 

N.R. 

STorr 

SLMH 

SUTT 


— TT 
C 

c 

K*4 

R*4 

R*4 

M. K. 

N. R. 
N.R. 

STcn 

STPW 

TBhl 

C 

C 

K>?'t 

R*4 

R*4 

NTR. 

N,R. 

N.R. 

SFTIF 

SVTE 

TBH2 

FA 

C 

c 

— 

R*4 

R*4 

'■ N.R. . 

N.R. 

0004E8 


TINY 

TUVW 

ffFcnr 


C 

C 

R«'4 

R*4 

N.R, 

N.R. 

TCITr 

TIN2 

TWTW 


L 

c 

c 

R*4 

R*4 

N'T'R'; 

N.R. 

N.R, 

Tcm 

TI N4 
WSAL 

c 

C 

R*4 

R*4 

NTRT 

N.R. 

M.R. 

rCVT" 

TMAX 

WENV 


c 

c 

~R*4 

R*4 

R*4 

N.R. 
N. R. 
N. R, 


WPRB 
WSCA 
X'l'H ?■ 


c 

c 

R*4 

R#4 

I\ . K . 

N.R. 

N.R. 

I'JGSB 

WPRG 

XLBH 


c~ 

C 

C 

“R'*‘<r 

R*4 

R*4 

N.R, 

N.R. 

N.R. 

WPOS 

WPRP 

XLGD 

— tr 

C 

c 

“R*4“ 

R*4 

R*4 

N.R. 

N.R. 

N.R. 

WHET 

ViRCA 

XLHL 


c 

c 

—}X»V~ 

R*4 

R*4 

ntf: 

N.R. 

N.R. 


ATWI.S 

CLOES 

LP PAR' 

SF 

SF 

XF 

C 

R^<t 

R#4 

000000 
0006 B 4 

TLiii 

BHPPl 

CLfcYE 

SF 

c 

■~R*TT 

R*4 

R*4 

aTJCP?co — 
000208 

N.R. 

ALTDr 

CBARF 
CP I NO 

—xr 

C 

C 

K*?“ 

R*4 

R*4 

n^tt; 

N.R. 

N.R. 

ATfrlT" 

CRARW 

CPNUD 

"SFTT 

c 

c 

“TT’r'T' 

R*4 

R*4 

■jiSiSUiKHIHI 


DELTA 

DSWET 


C 

C 

R*4 

R*4 

N. K . 
N.R. 
N.R. 

CTFRIT' 

UELTH 

ELDUA 


L 

c 

c 

1RW 

R*4 

R*4 

N.R. " 

N.R. 

N.R. 

CPTCT 

OELWF 

ENGSZ 

~X“ 

c 

~K^TT 

R*4 

R*4 

R7R. 

N.R. 

000210 

UALrk 

OELWP 

ENPCR 

SF 

c 

c 

R*4 

R*4 

"000200 

N.R. 

N.R, 


GKDDl 

NQXPJ 

CT'rxrx" 


C 

c 

R<'4 

1*4 

N.R. 

N.R. 

N.R. 

t 1 AP4 
HMAXU 
PFET2 

SF 

c 

c 

R*4 

R*4 

R*4 

~oou7rc — 

N.R. 

N.R. 

FACTR — F“ 

ICkUS 

RcALJ 

"XF“ 

c 

C 

■R*4“ 

1*4 

R*4 


FFTOT 

NOCPP 

RHPMR 

F 

c 

c 

-R"*'4" 

1*4 

R*4 

KTKi 

N.R. 

000874 

Hi 



c 

c 

R*4 

R*4 

N. K . 

N.R. 

N.R. 

S IGMR 
SKGB2 
SKPRB 


c 

c 

“R'*4~ 

R«4 

R*4 

RTFi;; — 

N.R. 

N.R, 

SiCA-RD 

SKPCS 

SKRBF 

~X“ 

C 

c 

"RW 

R*4 

R*4 

R7R1 

N.R. 

N.R. 

SRBAir 

SKPEl 

SKRCA 


c 

c 

“R*4 ■■ 
R*4 
R*4 

”N . R . 

N.R. 

N.R. 


SWGXP 
TtiCKP 
TTFaTT 

FA 

c 

c 

R*4 

R«‘4 

IN « K • 

N.R. 

0004FC 

SIITIVT" 

SWWET 

TBEM5 

FA 

L 

c 

c 

R*4 

R*4 

N.R. 

N.R. 

000164 

5TKSX 

S2RHQ 

TBPOW 

“C“ 

c 

c 

“ITS'Tr" 

R*4 

R*4 

N7K1 

N.R. 

N.R. 

SFETH" 

TBCLl 

TBSFC 


c 

c 

~K'*4 

R*4 

R*4 

N.R. ■ 

N.R. 

N.R. 

vl 

T 

VBARH 

VGASR 

XCBvJTT 

P 

•c 

c 

R*4 


TTI'ETS“ 

VBARV 

WPAYL 

FA 

c 

c 

R*4 

R*4 

R*4 

"irouatc — 

N.R. 

N.R. 

rPROP~S'FA 
VOI VE 
kPSTR 

—XT 

c 

c 

ir*4 DXD8F8 

R*4 N.R. 

R*4 N.R. 

TVCMk 

VGAS6 

XLAL6 

F 

c 

c 

~R'*4~ 

R*4 

R*4 

N.R. 

N.R. 

0009A8 

iX> 

O 

BHPSUP 
CLALPH 
— rnrrcriT- 

F 

c 

c 

R#4 

R't'4 

N.R. 

0001C4 

X L i N 1 
CBARHT 
CRSINO 

F 

XF 

c 

c 

1T*4~ 

R*4 

R*4 

UUUUOU 

N.R. 

N.R. 

XTRIA — F~ 
CBAR VT 
CTSIGH 

— C- 

c 

c 

R*4 

R*4 

R*4 

■ 00002C 

N.R. 

N.R. 

STFOEy 

CBYLOA 

CYCPRL 

-s — 

-xr 

c 

c 

-R*'4“ 

R*4 

R*4 

■noooe-4‘0 

N.R. 

N. R. 


DELWST 

OKGINO 

P i WTTTT" 


c 

c 

c 

R<'4 

R'f'4 

N . K . 

N.R. 

N.R. 

DEOnTf 

OLSWSH 

USPLMT 


L 

c 

c 

HW 

R*4 

R*4 

“tnro'SBC 

N.R. 

N.R. 

DELTin: 

OLTAFE 

OYLINO 

~xr- 

c 

c 

R*4 

R*4 

■■■" n.rt: 

N.R. 

N.R. 

OEL'WPL” 

OLVLHL 

ELHLOA 


c 

c 

“R*-2r" 

R*4 

R*4 

N7R. 

N.R. 

N.R, 


FEDRAG 

leCOHrf 

rivnFr/f 

F 

c 

XF 

H*4 

R^‘4 

1*4 

N . K . 

N.R. 

OCOOOO 

b1 A I NU 
FIXING 
INUC RU 


c 

c 

■■ R*4 
R*4 
1*4 

N'.'k. 

N.R. 

N.R. 

ETAF'4N — F~ 

GAMOll 

INDORG 

— c~ 
c 
c 

K*4 " 
R*4 
1*4 

ttuSiSlQlHH 

EXPURir 

HULINO 

INDOYL 


c 

c 

”RW“ 

R*4 

1*4 

'■■■ N.R, — 

N.R. 

000828 


INDOSM 
I PRINT 
rmj'‘Tk*n 


c 

c 

1*4 

1*4 

WU 0 ^ L 

N.R. 

N.R. 

IN Uh i X 
INOPOW 
NENGSZ 


L 

c 

1 vit 

1*4 

“■DO'08‘30 

N.R. 

000001 

INUH'UL 

INDPRP 
NETAP4 SFA 

— c~ 
c 

1*4 

1*4 

~DTrOB3-4 

N.R. 

0C0214 

IND0P1- 

I NOR DM 
OPTIND 


~c~ 

c 

c 

~T*4~ 

1*4 

R*4 

N-;io: 

N.R. 

N.R. 


ROTPQW 
SKENV2 
s I HfcT A 

SF 

XF 

c 

R*4 

R*4 

“"D A 'A 

IN* K« 
000000 

N.R. 

PR P t iNU 
SGTINO 
SKPDSZ 


L 

c 

c 

"Tf^4' 

R*4 

R*4 

— ntr: 

N.R. 

N.R. 

RDMTTTO 

SKBLNT 

SKVTAR 

c 

c 

R*4"“ 

R*4 

R*4 

N.R. 

N.R. 

N.R. 

RHORTUT" 

SKENVl 

SSIGMA 


c 

c 

“RF4~ 

R*4 

R*4 

— ntr; 

N.R. 

N.R. 


THRUST 

W6ALNT 

SF 

XF 

C 

R*4 

R*4 

N.R. 

000000 

N.R. 

1 B LU R1 
TOLIND 
WP AYLO 


c 

c 

R*4 

R*4 

R*4 

ntr; 

N.R. 

N.R. 

TBB'A'P^ FIT" 
TPRQPl S A 
XTGTA2 

-X“ 

c 

"R*4 

R*4 

R*4 

“OOOITS 

000218 

N.R. 

FHEIMR'" 

VGBOVH 

XTGTA4 


T— 

c 

r, 

-RV4— 

R*4 

R*4 

NTR. 

N.R. 

N.R. 
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— VAR. ■ NATTE” 

~TYPc~ 

~R~EL'."A'DDR'; 

VAR. NANE 

-TTPF- 

'“K‘BLV ‘“A'DO'RT” 

~yA-RT'~WAN£- 

-TY^sgr- 

“k£b“. A*ODR • 

— TART 'NAM E TYP £” 

Ml Pm uf iifi>iri 


OPTINO 

R«=4 

N.R. 

HULIND 

R'V4, 

■ N.R. 

IJYL I NO 

R«4 

N.R. 

DRGIND 

R’S'4 

N.R. 


OSvJINO 

R*4 

N.K., 

FIXINO 

R*4 

N.R. 

RDM I NO 

R*4 

N.R. 

PRPINO • 

' R<=4 

,N.R. , 


— II nil M 

R'*'4~ 


= WO — 

R'<='4“ 

0'0'OtJ24 ■ 

XCB'KO 

— R'*4“ 

— CWK)2G ^ 

xirf^trA , 

rvA4 

0 6 00 


VGBOVH 

K*4 

N.R. 

XLGO 

R*4 

N.R. 

HMAXD 

R#4 

N.R. 

RHORHO 

R*4 

N.R. 


VMO 

R=s=4 

M.R. 

EMLF 

R*4 

N.R. 

CKl 

R«4 

N.R, 

OELvJF 

R«4 

N. R. 


CKFF 


NTK” 

y Di yt 

■R^'T” 

H « R « 


— R^4 

wiKn 

• ROD 

1<^4 

N"* R. 


TOO 

R#4 

N.R. 

GAPl 

R44 

N.R. 

SGTI NO 

R*4 

N.R, 

eLhloa 

R<«4 

N.R. 


EtVLUA 

R*4 

N.R. 

GAP2 

R*4 

N.R. 

AR 

R44 

N.R. 

WS 

R'«4 

N.R. 


TCK — 

— R«^4' 

N . K . 

rcT — 

— R^^4~ 

H * k • 

STON 

— «y4~ 

rTTRuj 

A'RHT 

— Rr*4 



TCHT 

R#4 

N.R. 

VBARH 

R*4 

N.R. 

SLMH 

R*4 

N.R. 

ARVT 

R#4 

N.R. 


TCVT 

K=«4 

N.R. 

VBARV 

R*4 

N.R. 

SLM VT 

R«4 

N.R. 

ELDN 

K’C4 

N.R. 


eroT — 

— R’»4 

NTR . 

euouA 


I'i ♦ k • 

OT.SW'SH 


ntr . 

DSv4ET 

R *»“ 4 

N.R. 


DLVLHL 

R»>4 

N.R, 

OVOL 

R’i'A 

. N.R, 

C3YL0A 

R«4 

N.R. 

ENR 

R*4 

OOOllC 


riVA 

R*4 

N.R. 

DAMl 

R4=4 

N.R. 

DAM2 

R«4 

N.R. 

BHR 

R«4 

N.R. 


0 AH;) 

RT4~ 

« 

CUETE 

■RP4 

N.R^ 

tHETMR 


N;R'. 

xc 

K'<'4 

NTHT 


XMR 

R*4 

N.R. 

TVCMR 

R*4 

N.R. 

VT 

R«4 

000148 

CTSIGH 

R*4 

N.R. 


TV.ii 

R’t4 

N.R. 

HbS 

R*4 

N.R. 

TINY 

■ P44 

N.R. 

ETAP2 

R’C4 

N.R. 


ETAP4TJ — 


— OOOTiGO 

T8EM5 — 

— R«=4 

OOt) 

TBS'APA 

R 

GO 0176 

GAP 3* 

— R^=4 

N'. Ri; 


DAK4 

R^4 

N.R, 

tNP 

R*4 

N.R. 

ETAT 

R«4 

000198 

HC 

R1-4 

00019C 


VC 

R*4 

OOOIAO 

ATMIY 

R*4 

0001A4 

CDVT 

R«4 

N.R. 

XDHT. 

R=t'4 

N.R. 


DRfT5 

R44 

RTtt;; 

UL 1 A hb 



F£OK AG — 

rs-^4 

NtRi; 

eXPORG — 

— 

TTi 


CDC 

R’1‘4 

OOOICO 

CLALPH 

R*4 

0001C4 

CKVT 

R»‘4 

N.R. 

CKHT 

R*4 

N.R. 


CKF 

R*4 

N.R. 

CKW 

R*4 

N.R. 

RELI 

R*4 

N.R. 

TCLN‘ 

R*4 

N.R. 


T DCCt 


I'C* # 

TBCOWl 

R'#'4 

H • k • 

GAP4 ^ 

R+4 

“ N •'R . 

V»rc 


H « R * 


WFUL 

R«=4 

N.R. 

DELWFC 

R*4 

• N.R. 

DELWP 

R=«‘4 

N.R. 

DELWST 

R*4 

N.R. 


SKCC 

R*4 

N.R. 

SKRC 

R#4 

N.R. 

SKSC 

R44 

N.R. 

SKFW 

R*4 

N.R. 

1 

SKTH 

R»4~ 

N.R. 

GICRCA 

— R’Ctt;. 

H « k • ' 

SKST^A — 

R 

Nrft4 

S'KMC 

R 44 

i>J • K« 

U5 

SKAC 

K=«=4 

N.R. 

.SKHL 

R=i‘4 

N.R. 

SKENVl 

R*4 

N.R. 

SKENV2 

R’«=4 

N.R. 

H 

SKGDl 

K*4 

N.R. 

SKGB2 

R*4 

N.R. 

SKBLNT 

R*4 

N.R. 

SKBAL 

R*4 

N.R. 



k^*t 

N. R^ 


k 

^ N.K . 

ECF — 

RP4 

"N'.Kt 

“RM I 

— R-*4 

N • k • 


SKWP 

R*4 

N.R. 

SKHT 

R*4 

N.R. 

SKVT 

R44 

N.R. 

SKPRB 

R*4 

N.R. 


SKRBF 

R*4 

N.R. 

SKPH 

R*4 

N.R. 

SKAMD 

R#4 

N.R. 

SKAR 

R*4 

N.R. 


SKFA 

Ri>4 

N.h. 

SKVTAR — ^ 

R-r4r- 

NTK. 

SKPDS — 

— R^ 

N’i'ft . 

SKPDSZ- ■ 


N • k. 


SKT 

R*4 

N.R. 

SKFS 

R*4 

N.R. 

SKPEI 

R=s<4 

N.R. 

SKPES 

R*4 

N.R. 


SKI 

K’<‘4 

N.R. 

SK2 

R<<4 

N.R. 

0K3 

Ri'4 

N.R. 

DK4 

R*4 

N.R. 


"sks 

SK9 

R*4 

NTtr: 

N.R. 

SKb 

SRlO 

— R*4 
R*4 

NtKT" 

N.R* 

i F\i 

SKll RM 

. fV.K. 

n’.r. 

SK8 

SK12 

■— “f^4 
R*4 

' f'J • K • 

Nik* 


SK13 

R*4 

N.R. 

SK14 

R*4 

N.R. 

SK15 

R«'4 

N.R. 

PL IN 

R*4 

N.R. 


GAPS 

— R»4 

In* ts « 

TO'trNO — 

R*4~ 

IN. R « 

A1T3 rsz 

NtP. . 

I'INZ 

P. 



TWTW 

R«=4 

N.R. . 

PFET2 

R*4 

N.R. 

OELTH 

R*4 

N.R. 

STH 

. R*4 

N.R. 


CkSI.NO 

R-4 

N.R. 

XTGTA4 

R*4 

N.R. 

TIN4 

k*4 

N.R. 

VIN 

R*4 

N.R. 


D£L"R 

— R-»^4“ 

N.R. 

AX 

- N.R. 

utur 

H* R. 

^NPCR 

K^4 

N • k . 


OELWPL 

R«4 

N.R. 

STPW 

, R#4 

N.R. 

, HFIN 

R*4 

N.R. 

GAP6 

R*4 

N.R. 


CYCPRL 

R#4 

N.R. 

FF 

R’t!4 

0004B4 

SK3 

R«4 

N.R. 

SK4 

R*4 

N.R. 


TBFrt 

K*4— 

NtRt^ ~ 

T&TO 


NtRt 

TB'HZ — 


■0004&6 




TBSFC 

K*4 

N.R. 

TBPOW 

R’l'A 

NiR. 

GAP7 

RK4 

N.R. 

ALFDES 

R<‘4 

0006‘t0 


ALFDL 

R*4 

N.R. 

ALFR 

R*4 

000648 

AMU 

R=s=4 

00064C 

BHPA 

R’^^4 

N.R. 


B’PTHK — 

~R^4 

0UU6i>^ 


NrR. 

B'HT 

R “^4 

"NvK;: 

8LP 

R*4 

UuOoou 


BR 

R#4 

N.R. 

BS 

R44 

N.R. 

BVT 

R«‘4 

N.R, 

CBARF 


N.R. 


CBARHT ■ 

R»>=4 

N.R. 

CBARVT 

' R#4 

N.R. 

CBARW 

R*4 

N.R. 

CCP 

R*4 

N.R, 
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CPNDU 

CRT 

CEDES 

RTF? 

R4? 

— Rnr; 

N.k. 

0UU6Q4 

CWTO — 

CTP 

cs 

m;^am 

RTR? 

0006A8 

N.R. 

CPRRD 

cv 

OELRTH 

RTP? 

R*4 

R*4 

N.K. 

N.R. 

OOObBC 

CRTOT 

CX 

DELTA 

K*4 

R*4 

R*4 

RTR? 

N.R. 

N.R. 



R*? — 

0UU6C4 



NTR? 

ELC 

RTF? 

TTTRT 


RpF? 

N.K. 


6LN 

R«? 

N.R. 

ELOA 

K*4 

0006D8 

ELT 

R*4 

N.R. 

ELVT 

R*4 

N.R. 


EN 

R#A 

N.R. 

ETAP 

R*4 

0006E8 

FEH 

R*4 

N.R. 

FEHI 

R*4 

N.R. 


FEHC 

RSt!? 

RTR? 

FEFiT 

— R^f? — 

N7R? 



R^? 

N ; k ? 

FETCn 

R^4 

K« 


FEVT 

R«? 

N.R. 

FEW 

R*4 

N.R. 

FEWH 

R*4 

N.R, 

FEWI 

R*4 

N.R. 


FM 

R*4, 

N.R. 

FP 

R*4 

N.R. 

ETAP4 

R*4 

00071C 

G AMD 11 

R*4 

N.R. 


GEF 

— R*?"' 

ITTK? 

GNDXn — 

— K*'4"" 

ntk; 

H 

RT? 

in.R. 

1 ^ KU ^ 

T*4 



INDCRU 

1*4 

N.R. 

INDOKG 

1*4 

N.R. 

INOOYL 

1*4 

000828 

INDETA 

1*4 

00082C 


INDFIX 

1*4 

000830 

LNDHUL 

1*4 

000834 

INOOPT 

1*4 

N.R. 

INDOSH 

1*4 

N.R. 


Ml M 

— r??~ 

R7RT 



RTir; 



N.K. 

IPRINI 

r*? 

iN* K • 


LTHL 

1*4 

N.K. 

NOCPP 

1*4 

N.R.- 

NQXPJ 

1*4 

N.R. 

OWE 

R*4 

N. R. 


PEHF 

R*4 

N.R. 

PI 

R*4 

000864 

0 

R*4 

000868 

RHQ 

R*4 

00086C 


frFAT3 — 


FTTRC 

1 U U II m 

— K*'4“ 

■ 1 1 lU—l 

K 

R*? 

N.K. 

,KN 

R*"? 

Ni K. 


SA 

R*4 

N.R. 

SA5 

■ R*4 

N.R. 

SA6 

R*4 

N.R. 

SA7 

R*4 

N. R.' 


SFC’ 

R*4 

N.R. 

SHPA 

R*4 

N.R. 

SHPft 

R*4 

N.R. 

SHT 

R*4 

N.R. 


SHTT” 

k*4 

R7RT r 

SHN 

— FT5?~ 

NTR? 

SIGMA"' 

R*‘?“ 

N.K. 

SSl'GTO 

R*? 

N« K« 


ST 

R»4 

N.R. 

• STHETA 

R*4 

N.R. 

STHAX 

R*4 

N.R. 

SVT 

R*4 

N.R. 


■ SVTE 

R*4 

N.R, 

SVTW 

R*4 

N.R, 

SW 

R*4 

0008C8 

SWETH 

R*4 

N.R. 



■■rC'Z/iH 

rtr:: 

srm — 

— 

N.R. 

SWfnST — 

— R*4 ■ 

RTR? 


R^^'? 

N* K* 


r 

R*4 

0008EO 

TAF 

R*4 

N.R. 

TCBAR 

R*4 

N.R. 

THETA 

R*4 

0008EC 


TMAX 

R*4 

N.R. 

TMP 

R*4 

N.R. 

TPROP 

R*4 

0008F8 

. -TR 

R*4 

N.R. 



MUM 

N.K. 

1 1 1 1 ■ 

— fr*7T- 

NTS? 

1/GASK 

R*4 

RTR? 

7RL"' 

R*?~ 

N« K • 


V 

R*4 

000910 

M 

R*4 

N.R. 

W8AL 

R*4 

N.R. 

HBALNT 

R*4 

N.R. 

^1 

WCC 

R*4 

N.R. 

WE 

R*4 

N.R. 

HEP 

R*4 

N.R. 

WES 

R*4 

,N.R. 

1 

WF 

— «:*?■" 

nttt; 

51FC 

FC#"2J 

NTR? 

HTT5 

Rr*?T— 

RTR? 

HFS 

RV? 

N. K. 

WFM 

R*4 

N.R. 

MGS6 

R*4 

N.R. 

WHL 

R*4 

N.R. 

WHT 

R*4 

N.R. 

(O 

MLG 

R*4 

N.R. 

WMC 

R*4 

N.R. 

WPAYL 

R*4 

N.R. 

WPC 

R*4 

N.R. 




rttt: 

113 

’ K*4 " 

NTR? 

gpfl— 

R^?~ 

RTR? 

HPRB 

R-*-? 

N. K. 


WPRG 

R*4 

N.R. 

WPRP 

R*4 

N.R. 

WPSTR 

R*4 

N.R. 

WRC 

R*4 

N.R. 


MRCA 

R*4 

N.R. 

wsc 

R*4 

N.R. 

WSCA 

R*4 

N.R, 

WST 

R*4 

N.R. 


— fmr" 

R5?“ 

RTin 

5JYT 

R5?- 

N.K. 

5iir“ 

R*4~ 

N.K • 


Ry? 

N* K* 


. WAC 

R*4 

N.K. 

WENV 

R*4 

N.R. 

XLALB 

R*4 

0009A8 

XLB 

R*4 

N.R. 


XL8H 

R*4 

N.R. 

XtHL 

R*4 

N.R. 

XLR 

R*4 

0009B8 

XLW 

R*4 

N.R. 


YLSE 

AF 

R5PT- 

R*4 

^■2i££iS2HHI 

ruw“ 

BHPP 

R'*?"" 

R*4 

RTR? 

000904 

UMK 

SEE 

K*4 

R*4 


■Hjlll 


N. K. 





LABEL 

AODR 

LABEL 

AUDR 

LABEL 

AODR 

LABEL 

A DDR 

PAGE 009 

r 

OOTr-tOTj ^ 

2 — 

-OtrCFtSC : 

3 

— CrOXT4l5'8 




5 

0004CE 

6 

00052A 

7 

00053E 

8 

00054E 


9 

00055A 

ID 

OOOS92 

a 

000596 

12 

000610 


T3- 

— 00063A 

ttf— 

-ootfe^c— 

rs- 

— 0C'0'6'B4 

xo 

u u uov o 

% 

17 

0006D8 

18 

0007A2 

19 

00082E 

20 

000888 


21 

O008A0 

22 

0008FE 






♦■OPTIONS 

IN EFFECT* 

NAML= HAIN,0PT=02tLINECNT=54»SEZ£ 

=OOOOK 

f 





rN"~EFFETr* 

— StKJKCE'} e 0 CDTCT 

-NOL rSTTNUDeCKTL-U AT>TM 






♦-STATISTICS* SOURCE 

STATEMENTS = 

152 .PROGRAM SIZE 

= 

2 338 





■^-STATISTICS# NO DIAGNOSTICS GENERATED 


LEVEL 

21.7 

( JAN 73 

) QS/360 FORTRAN H 

DATE 75.097/11.09.^4 


CCHPILEP CPTICNS - N^i'E= N A IN , OPT =C2 , 1 1 NECNT=54 , S I 2E=0000K , 





SCLRCE 1 f ECO ICf NC L ISTtNODECK,LOAO ,MAP ,NCED IT, ID, NGNREF 


ISN 

0002 


FLNCTICN FACTS (STAR, FH, THETA, FF) 

OOOIOOOO 




HEN8ER NANE BElfACTR 

0CC2CC0C • 

ISN 

0003 


TFESTD=C.75l9 

0003C000 

ISN 

0004 


IF IHH.LE. 36085.) THESIC=1. C-0.000006875*HH 

O0O4C0CO 

ISN 

0006 


FACTR = STAP+FF=t (THE STC- THETA) 

C005000C 

ISN 

0007 


RETURN 

C0C6CCCC 

ISN 

0008 


ENC 

0007G0CC 



NAME TAG T'»PE A3D. NAf^E TAG TYPE AGFI NAME TAG ' TYPE ACD . NAME TAG TYPE AQO,.’ 

FF F R*4 000088 Hh F R«4 000C8C STAR F R*4 00C090 FACTS S R»=4 OC0094 

THETA P • R*4 COOCSB ' 1FE-ST0 EF R*4 000090 : 

■CCFTIONS IN EFFECT* NAM£=! MA 1 N , CF T = C2 , LI N ECN T=54 1 S I ZE=OOCOK » 

*CFTIONS IN EFFECT* SOURCE , E BTC I C , NC LI S T t NCITeTK .LOAD, MAP , NOcD I'T , 10 , NOXRE F 

^STATISTICS* SCLRCE STATEME^^S = 7 tFROCFAM SIZE = 294 


*STATISTICS* NC CIAGNCSTICS GENERATED 




LEVEL 2i.7 { JAN 73 ) 


ClS/360 FORTRAN H 


DATE 75.111/15.49.29 


ISN 0002 


ISN 0003 


SOURCE, E 3CUIC I NOHST.NOOECK, LOAD, MAP, NOEDIT , 
SUBROUTINE LIFT 


ISN 0006 


ISN 0007 


PAGE 1 
COMMON 
IhlXlN'O — 
2XLRLA 
3EMLF 
AKUU 
5GAP2I6J 
PAGE 2 
— C'OfiMUN — 
lARHT 
2V8ARV 

3USWEI 

4DAM1 

5XC 

“CHE3 

7GAP3 
PAGE 3 
C U.-1 MUN 
lATMIY 
2hXP 0RG 
3CK"w 

PAGE 4 I 
COMMON 

TSKCC 

2SKSCA 

3SKGB1 

“2fFLT 

5SKRBF 

6SKPDS 

“TSTO 

8SK7 

9SK13 

— FTO‘E“5~ 
COMMON 
1DELTHI5) 


INPUT LOC 0001 THRU 0050 


OPTIND 

TRTJKTNCr 

,VGBOVH 

,CK1 


,HULlNO 

TPTIPTNIT 

,XLGD 

,DELWF 


,DYLIND- 

TETATNir 

.HMAXD 

,CKFF 


INPUT LOC 0051 THRU 0100 


,TCHT 
, SLMVT 
-,"0LVlHL 
,DAM2 
,XMR 


,V8ARH 

,EU)N 

TDTDT- 

,DMR 

,TVCMR 

TETAF2" 


,SLMH 

,ELDT 

tcttyd: 

,DAM3 

,VT 


, DKGINO 

— TWO 

, RHURHO 
, VDIVE 


, ARVT 
, ELDQA 

THNR 

, CLEYE 
, CTSIGH 


ID,NOXREF 


OSh INO 


K4PUT 

0 

,CDVT 

,CCC 


LOC 0101 THRU 140 

TEMP' TET-AT 

,CDHT ,DAM5 


,CDVT ,CDHT 

,CCC .CLALPH 

TRTn 1 T C L'N 

INPUT LOC 141 THRU 200 
WFE ,WFUL 

TSTCRC RSC 

,SKHC ,SKAC 

,SKGB2 • ,SKBLNT 

Twn: rsRUP 

,SKPH tSKAMU 

,SKPOSZ ,SKT 


,DAM5 tCLTAFE 

,CKVT ,CKHT 

TTTTCinTBT TTBUTWri 

WEIGHT DATA 


.OELWFC 
"TSicrw — 
,SKHL 
,SKBAL 

Tstcm — 

,SKAR 

,SKFS 

TrrK'4 

,SK10 

,PLIN 


,SK8 ,SK9 ,SK10 

,SK14 ,SK15 ,PLIN 

TP or — LOC 2 tri“TH Frtr ~3 oo 

T0LIN0I5) ,XTGTA2(5) ,TIN2(5) 

,STH(5> ,CRSIND(5) ,XTGTA4(5> 


, CELWP 

, SKENVl 
,SKLG 

TBKVT 

, SKPA 
,SKPEI 
“T5K5 
, SKll 
,GAP5 (3) 

, TWTW15) 
,TIN4C5) 


TCVT 

OLSWSH 

THETMR 

TVW 


FEORAG 

CKF 


OELWST 

STCRCA 

SKENV2 

SKWW 

■SKP'KIT" '■ 

SKVTAR 

SKPES 


PFBT21 5) 
VINI5) 


OOCIOOOO 
■~ D 0020 DD ' 0 ~ 
OCC30000 
, OOCAOOOO 
TCO'OBOOJCT" 
,00060000 
,00070000 
T 0003000-0- 
CCC90000 
00100000 
'TOOTTOOOO- 
,00120000 
,00130000 
-■'OOTAOdOO- 
,00150000 
, 00160000 
TCD-ITOODCr 
00180000 
00190000 
TDOZcroaoTJ- 
,00210000 
,00220000 
— 00730000“ 
00240000 
,00250000 
“•CO ZETOOOtr 
,00270000 
,00280000 
“700290000“ 
,00300000 
,00310000 
-TDCrSZOODTr 
, C0330000 
00340000 
— 803:50000“ 
,00360000 
,00370000 


3HMNI5) ,GAP6(10) 

PAGE 6 INPUT LOC 301 THRU 400 

■ LUMMDN CTCPTSC 7FF TSKTl T3K4 

1TBTG15) ,TBH2I5) ,TBCRPI5) ,TBSFC(81 ,TBP0W(8 

WORKING COMMON 

L del HUN ALFUES,ALFUL ',-AUFRTAfTtr; 7“ " 

1 BHPA,BHPR,3HPSUP,BHT, BLP,BR,BS,BVT , 

2 CBAkF,C6AkHT,CBARVT,C8ARH,CCP,CCT,C0V,CLW,CPIND,CP 


3, CPTOT,CRT ,CTF,LV ,CX,LLUtS,G6 t 

•4 DELKTH, DELTA, OH, DSPLMT, ELC, EL HT , ELN, ELOA , ELT, 

5 FEH.FEHI,FEHL.FEHT.FET,FET0T,FEVT, F£W,F£WH,FEWI,FM 


00390000 

00400000 

TTDTrrm ron^icroocr 

) ,GAP7(60> 00420000 

00430000 

= 00440080“ 

C0450000 
NUD, CP PARjCPPR 000460000 
^ 00470000“ 

ELVTfEN.ETAP, 00480000 

,FP,ETAP4 00490000 




PAGE 002 


ISN 0011 


ISN 0013 

i3'i\— CTor«r 


ISN 0016 
ISN 0017 


ISN OOld 
"ISN‘ 0 019 
ISN 0020 
ISN 0022 
TST5“0 024- 
ISM 0 02 5 
ISN 0027 


ISN 0047 
ISN 0048 
TSTr-004-?- 
ISN 0050 
ISN 0051 
"ISN tI052~ 
(SN 0053 
ISN 0054 
-rsir-crosb*- 
ISN 0056 
ISN 0058 
■ ISTT 0059 
ISN 0060 
ISN 0062 
-rSN”006'3" 
ISN 0064 
ISN 0065 


"7 "I CKus-rrKoorcfri NcrmrcrriM ou yit rNutra-t -i nd h i-xn n chu lt'I n DOPr-ttt&osTr; oo si oooo- 

8 INDPOWf INDPKP, INUKOM, I PKINT C0520000 

COM^'ON LTHL,N0CPP,N0XPJ,UW’E, PtHF,PI,Q,RHOiKEALJ,«HPMR,K,RN CC 530000 

— CTMMO N SAtSA -$7$»6TS-A 7TS F C ."SH P*AtSH PR nS HT tSH rE-TSHTV HA tS'^' 1-GN A , ST , 0 0541) 000- 
ISTHETA, STMAX ,SVT, SV TE , S VTW , S W ,SWE TH t S WE XP , S^ I T, S WWE T ,S2 RHU 00550000 

COMMON T ,TAF,TC8ARf THETA, TMAX ,TMP , T PROP , T R, ULF, VGAS B.VGAS R , l/HL , V 00560000 

— TrOTTMON'-WlTvffATrwB'A tWTTWC'C-, M Ett? EP", HES-TWF-rwr CTW f •fr,-WFST1TFtr, 005 700-00- 

1 WGSB,WHL,WHT,WLG,rtMC,WPAYL,WPC,WPDS,WPEi ,WPH,WPRB,WPRG,WPRP,WPSTP00530000 


2,WRC,WRCA ,wSC,WSCA, WST, WTM,WVT,WW,wPAYLO,WAC,W£NV 

— trOTTWON-XX-A LB , X L STOa-STITX-lilTtrrXL-RTXrWTYtrS-ErrO^^^ 

COMMON DMR.S IGMR, AF.BHPP, SEE 

NAMELIST /NLIFT/ XL B, XLHL , XLR ,X LW , A LFR , LA I , L B 1, LDl , XLHRW , 

-1 XDTRWTi-XtH-FtWrrXi: HR'W S TXtHtWPTB'TT'fi' IA , B l BT&rCT B2 ^ O AL FR, RN ' V C 

2W,XLHkW4,01D 

CLW=0.0 

• T O T - X T G T A4( ICro $1 

IF( TOT.EO.I.O) XLB=XLBWO*WD 

IF( TOT.NE.l.OJ XLB= (-076474*1 TOT-l. )/( .076474-XLGO)+1. )>»XLBWO=i‘WO 

■ XL'H-K'!T2-W=7(XB 

IF nNDUYL.EQ-2-0R.INLiOYL.EQ-4) GO TO 30 
IFIXLHRW.EQ.O.) GO TO 23 


30 IF {[NUDYL.EQ.2.0R. IND0YL.EQ.4) GO TO 10 
IF (INDDYL.NE.l.) GO TO 22 

trOTsiO 

ALFR=0. 08727 
7 LD1=LD1+I 

XtT»Ur3-=-q* E LO A*DM* X C trittr P ll»Al:1 ^C0C *ALF -fW^-tXnrF-R 

IF (ABS( IXLHRW-XLHRW3)/XLHRW) -LT.0.01) GO TO 8 
IF (LD1.LT.2) GO TO 5 

rtA=sx 

62=XLHRW3-XLHRW 
DALFR=(82/(Bl-d2) )*DALFR ‘ 


GO TO 6 

5 81 = XLflRW3-XLHRW 

cnnrirF-R=TrrrT4S5 

6 ALFR=ALFft+DALFK 
GO TO 7 

— 8“7: CTTCTXOTRT? 

XLK-=0. 

XLW=0. 

gtrXO- 21 

10 IF ( INDHUL.GT.l ) GO TO 20 
XLHRWP=XLHRW 

XXRr=OT 

IF ( INDDYL.EQ.2) GO TO 11 
XLH R WP=XL H RW»(1>-XLRLA) 

11 LBI=0 
ALFR=0. 08727 


O Q 


hfH 


00590000 
-0-0600000- 
C0600001 
00610000 
rO 06-20000" 
00620100 
00620200 
"00'6300-00- 
00630100 
00640000 
"0065-0000“ 
00650001 
00650100 
-00650200- 
CC6t.0000 
00670000 
-00680000- 
00690000 
00700000 
-00710000- 
C0720000 
00730000 
-CC730100- 
C 0740000 
00750000 
-00760000- 
00770000 
C0780000 
-00790000- 
00800000 
00810000 
-C 0-820000- 
00830000 
OCS40000 
-00050000- 
00860000 
00870000 
-008800t>0- 
00890000 
00900000 
-C0-91-00t)0- 
00520000 
00930000 
UuVWUOaJ^ 
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Ti'W 

ISN 

0067 

0069 

= ITTHTCno.O) GiJ TU~2‘3 ^ ^ ^ 

XLHKW2=Q*(EL0A*DH<‘ICLALPH*ALFR+CDC*ALF5*ABS( ALPR) ) + SW*6. 
ILFDES)) 

^crsAoroo — 

28<'(ALFR+A00950000 

C0950001 


— \ — 

TSN" 






f 

ISN 

0072 


IF (L81.LT.2> GO TO 13 

OC970000 



ISN 

0074 


B 1B=B1 

C097OI0O 



TSTT 

'D'075 


■B'Z^rHrtW2-XL'HR'V)P “ 

0 orgBOocro 



ISN 

0076 


DALFR=(32/(Bl-B2) )’!<DALFR 

G0990000 



ISN 

0077 


Bl=B2 

OICOOOOO 



TSTT 

TJD7B 


■GOTTU F4 

OTTJTOaOD 



ISN 

0079 

13 

fil=XLHKW2-XLHRWP 

01020000 



ISN 

0080 


OAl,FR=0. 17453 

01030000 



TSKT 

77051 

ITT 

7niFR=ALhR4UAL>R 

0X040 ODO 



ISN 

0082 


GO TO 12 

C1C50000 



ISN 

0083 

15 

XLHL=0*EL0A*DH*<CLAI.PH*ALFR+C0C*ALFR*ABS{ALFR)) 

01060000 



ISN 

"ITIjgz; 


X LW=XLHR'VJ-XLHL-Xt K 

OiJLi/OUOO 



ISN 

0065 


CLV>=XLW/IQ*SW) 

01C70100 



ISN 

0086 


GO TO 21 

01030000 

- 


~TSW 

008 f 

20 

"XrffRUP^'CRRTi 

OTCOOOOOi 



ISN 

0088 


XLHL=XLHRW 

01 100000 



ISN 

0 039 


XLR=0.0 

ClllOOOO 



ISN 

no-Q'TO 


“XOTSITTO 

0X120000 



ISN 

0091 


IF ( IMDDYL.EQ.2) GO TO 16 

01 130000 



ISN 

0093 


XLH5nP=XLHRW*{l.-XL RLA) 

01140000 



1W 

UiJ9? 


■yc'(TL=’xuniwp ■ 

OTTp'OOO'O 



ISN 

0095 


XLK=XLRLAt<XLHRW 

01 160000 



ISN 

0096 

16 

IF tlNUHUL.EQ.3) GO TO 28 

01160100 



03 


ISN 

ISN 


0099 

0100 


ALFR=0. 08727 
17 LA1=LAI+1 


01180000 

01190000 


ISn 

tnin 

rrac'HKU.EU.o. ) go to 2j 

■ ■"■■onwTLuu 

ISN 

0103 

IFIW.LT.O.OJ GO TO 23 

01190200 

ISN 

0105 

XLHRWl=Q*SW«‘(CLALPH<'ALFR<-COC*ALFR*ABS( AJ.FR> ) 

01200000 





ISN 

0108 

IF (LA1.LT.2) GO TO 18 

01220000 

ISN 

0110 

31C=81 

01220100 

I'W 

mTi 

B"2^0?Rw 1 ~XlHR'/IP 

'Ol'^Suooo 

ISN 

0112 

0ALFR={B2/(61-B2) )*0ALFR 

01240000 

ISN 

0113 

81= B2 

01250000 

rsN 

Trrr? 

GO" 1U 19 

“ur2souou 

ISN 

0115 

28 LEI=0 

012C.0100 

ISN 

0116 

IFIXLHKW.EQ.O.) GO TO 23 

01260110 

TSn 

~0TT3 

iPtW.LT.O.Ol GU TU 23 

- 01260120 

ISN 

0120 

ALFR=0,08727 

01260200 

• ISN 

0121 

26 LE1=LE1+1 

01260300 

TSTX 



CXH60WO 

ISN 

0123 

IF (ABSI {XLHRW-XLHRW4J/XLHRW) .LT.0.01) GO TO 27 

01260500 

ISN 

0125 

IF ILE1.lt. 2) GO TO 24 

01260600 

Tsn 

0X27 

B2=XLHRN4-XLHR-J' 

01200/00 

ISN 

0128 

B 10=81 

01260800 

ISN 

0129 

DALFR={B2/(81-82) >*OALFR 

01260900 

ISN 

T3TJD 

Bi=82 

U126100O 



— rSTT 
ISN 
ISN 

tm-i 

0132 

0133 

24 

"GD nr-2'3 

81=XLHtlW4-XLH'RW 
UAL EK=(). 1745 3 


rsw 

~Q 134 


Tn:F‘R^tF-R+ 0 A L FK 


I6N 

0135 


GO TO 26 


ISN 

0136 

27 

GO TO 21 


til'l 

0 137 

io 

■B'T^ocin3KT>ri=9rirHKiTP 


ISN 

0138 


0ALFR=0. 17453 


ISN 

0139 

19 

ALFR=ALFRtUALFIl 


TSTT 

0 1‘t’O 


'GO' TO T7 


ISN 

0141 

21 

RN=XLR/XLHflW 


ISN 

0 142 


C TP=4.0*XLR/ tRH0>!=VT*=i<2*PI*DMR4*2*ENR) 


ISN 

“0143 


Cl. Ifli =XLH L / 1 W’f S H J 


ISN 

0144 


IF! INOHUL.EO.l) CLW=XLW/(Q#SW) 


ISN 

0146 


RETURN 


I SN 

“014'7 

22 

TmiT^-cro ' 


ISN 

0143 


XLR=XLHRW 


ISiv 

0149 


CTP=4.0*XLR/ (RHO^VT^^a^PI^OMR^'fZ^ENRJ 


I'S'iV" 

01^0 


-XOP^tl 


ISN 

0151 


RN=XLR/X1.HRW 


ISN 

0152 


RETURN 


t Sin 

TJT53 

23 

"'A"LFR= 0.0 


ISN 

0154 


XLHL=0.0 


ISN 

0155 


RN=0. 


rsN 

Q-ITG 


X L W — 0 ♦ 


ISN 

0157 


XLR=0. 

_ 

ISN 
— I-STT 

0158 

-o-rs9 


RETURN 

-etip - 


I 


10 




PAGE 004 


'0T26noa 

01261200 

01261300 

■O'l'261'^O' 

01261500 

01261600 

-C-1-270000- 

01280000 

01290000 

-o-r3ooooo- 

01310000 

01310100 

-oi-?ta20o- 

01310300 

01330000 

-0r340000- 

01350000 

01350100 

-01-36-0000- 

01370000 

01390000 

tmwi-oo- 

01390200 

01390300 

-0r390400- 

01390500 

01390700 

^1^400000- 


LIFT / 


SIZE OF PROGRAM 000316 HEXADECIMAL BYTES PAGE 005 



NAME 

TAG 

TYPE 

ADD. 

NAME 

TAG • 

TYPE 

ADD. 

NAME TAG 

TYPE 

ADD. 

NAME 

TAG 

TYPE 

ADD.' 


H 


C 

R»4 

N.k. 

Q 

F 

C 

R*4 

000863 

R 

c 

R*4 

N.R. 

T 

C 

R*4 

N.R. 


V 


X~ 


imr: 


“T= 

TT 


"0Gfa9T4 

AF 

X“ 

”Rr*’t 

N • K • 

AK 

C 

R*4 

N.k. 


BR 


c 

R»4 

N.k. 

DS 


C 

R*4 

N.R. 

B1 SF 


R*4 

OOOOBC 

B2 SF 


R*4 

ooooco 


CB 


c 

R*4 

N.R. 

CV 


C 

R*4 

N.R. 

CX 

c 

R*4 

N.R. 

OH F 

C 

R*4 

0006C4 


tN 


x~ 

"TT-FT 

TTlTTr 

FF" 


X“ 

“TT»4' 

■NTRT 

hM 

tr 

— R-ifiT; — 

NTin 

FP 

G 

nr*4^ 

Nvm 


HC 


c 

R*4 

N.K. 

PI 

F 

c 

R*4 

000364 

RN S 

c 

R*4 

00087C 

SA 

c 

R*4 

N.R. 


ST 


c 

R*4 

N.R. 

SW 

F 

c 

R*4 

0008C8 

TR 

c 

R*4 

N.R. 

VC 

c 

R*4 

N.R. 


VI 

t* 

tr- 


"TJODT^TB 

WE 


c~ 


NTKT 

IsF 

c 

K*4 — 

N'.Rl 

HO F 

c 


“000024 


WS 


c 

R*4 

N.R. 

WW 


c 

R*4 

N.R. 

xc 

c 

R*4 

N.R. 

AMU 

c 

R*4 

N.R. 


BriT 


c 

R#4 

N.R. 

BLP 


c 

R*4 

N.R. 

BMR 

c 

R*4 

N.R. 

BVT 

c 

R*4 

N.R. 


blA 

:> 


■xa» 

U0U0C4 

ffTB" 

S 



"OTTOTJUB 




UUUUCC 

bJLU i 


“R^4T” 

“ODOODO ■ 


CCP 


c 

R*4 

N.K. 

CCT 


c 

R*4 

N.R. 

CDC F 

c 

R*4 

OCOICO 

CDV 

c 

R*4 

N« R. 


CKF 


c 

R#4 

N.R. 

CKW 


c 

R*4 

N.R. 

Ckl 

c 

R*4 

N.R. 

CLK S 

c 

R*4 

00068C 


LK ] 


IT" 

K>i=4 

— fmr; 

CTP" 

■S 

TT 




x~ 

■ICZ» 

rrm 




N.R. 


OMR 

F 

C 

R*4 

0009C8 

ELC 


c 

R*4 

N.R. 

ELF 

c 

R*4 

N.R. 


c 

R*4 

N.R. 


ELT 


C 

R4'4 

n;k. 

ENP 


C 

R*4 

N.R. 

ENk F 

c 

R*4 

ooonc 


c 

R#4 

N- R. 


FET' 


x~ 

“R5T~ 

FiTir; 

FEW 


T~ 


— nttt: 

our- 

x~ 

■SiH 

imr. 

■HK13:^S 

L 


• K* 


HOO 


c 

R#4 

N.K. 

LAI 

SF 


1*4 

OOOOD4 

LBl SF 


1*4 

0000D3 

LDl SF 


1*4 

OOOOOC 


LEI 

SF 


1*4 

OOOOEO 

OWE 


C 

R*4 

N.R. 

RFO F 

c 

R*4 

OC036C 

RMI 

c 

R*4 

N.R. 




IT 

■■R*4 " 

— rtit: 

57V5" 


TT 

xns'-T” 

— nttt: 

5T5 

X“ 

■itiM 

N7m 

SAT 

L 

K#4 

N. K. 


SEE 


C 

R*4 

N.R. 

SFC 


C 

R*4 

N.R. 

SHT 

c 

R*4 

N.R. 

SKT 

c 

R*4 

N.R. 


SRI 


C 

R*4 

N.R. 

SK2 


C 

R*4 

N.R. 

SK3 

c 

R*4 

N.R. 

SK4 

c 

R*4 

N.R. 


Sk5" 


x~ 

R*4 

— n;ti. 

SK6 


~C~ 

■R*'4" 

N.k. 

SK7 

X" 

■' R*4' 

N. k. 

SKB 

c 

-R*4 

^ • K* 


SK9 


c 

R*4 

N.R. 

SLM 


c 

R*4 

N.k. 

STH 

c 

R*4 

N.R. 

SVT 

c 

R*4 

N.R. 


TAF 


c 

K*4 

N.R. 

TCR 


c 

R*4 

N.R. 

TCT 

c 

R*4 

N.R. 

TMP 

c 

R*4 

N.R. 

1 

rotr 


T“ 

““K*4 

— ntit; 

nrr 

TF 


“R^4“ 

nrocFafE? 

TVR 

x~ 

■nr*4~ 

N7RT 

DCF 

u 


N • K« 

o 

VHL 


C 

R*4 

N.R. 

VIN 


c 

R*4 

N.R. 

VMG 

c 

R*4 

N.R. 

WAC 

c 

R*4 

N.R. 

o 

wCC 


C 

f<*4 

N.R. 

WEP 


c 

R*4 

N.K. 

WES 

c 

R*4 

N.R. 

WFC 

c 

R*4 

N.R. 


WFc 


C~ 

R*4 

RTin 

HFir 


X" 

"R*2r“ 

N.k. 

RIX 

X" 


N.k. 

KFW 

U 

”R*4~ 

N • K* 


NHL 


c 

R*4 

N.R. 

WHT 


c 

R*4 

N.R. 

WLG 

c 

R*4 

N.R. 

HMC 

c 

■ R*4 

N.R. 


WPC 


c 

R*4 

N.R. 

WPH 


c 

R*4 

N.R. 

WRC 

c 

R*4 

N.R. 

WSC 

c 

R*4 

N.R. 




TT 

k*4 

— NTir: 

HTH" 


T~ 


NTR. 

fTVTS 

x^ 

k*4 

N*K» 

hvt 

U 

KVi). 



XLU 

SF 

C 

R*4 

0009AC 

XLR 

SF 

C 

R*4 

0009B8 

XLW SF 

c 

R*4 

00093C 

XMR 

c 

R*4 

N.R. 


ALFR 

SFA 

C 

R*4 

000648 

ARHT 


c 

R*4 

N.R. 

ARVT 

c 

R*4 

N.R. 

BHPA 

c 

R*4 

N.R. 


BriPP" 


T“ 

“H'44 ' 

— NTir; 

BITPIT 


-XT 


— ntft: 

CDHT 

X" 


“~N.R. 

CDVT 

U 

”R*4~ 

NVR. • 


CKFF 


C 

R*4 

N.R. 

CKHT 


C 

R*4 

N.R. 

CKVT 

c 

R*4 

N.R. 


c 

R*4 

N.R. . 


DAM 2 


C 

R*4 

N.R. 

DAM3 


c 

R*4 

N.R. 


c 

K*4 

N.R. 


c 

R*4 

N.R. 


OtLk 


IT" 

K*4 

N.k. 



TT" 

”TT?:X~ 

N . in 


~c~ 

~RT-X' 

— mm 


c 

R*4 

N.K. 


ELHT 


C 

R*4 

N.R. 

ELOA 

F 

C 

R*4 

000(3 D8 

EL VT 

c 

R*4 

N.R. 

EMLF 

c 

R*4 

N.R. 


ETAP 


C 

R*4 

N.R. 

ETAT 


c 

k*4 

N.R. 

FEHI 

c 

R*4 

N.R. 

FEHL 

c 

R*4 

N.K. 


HU; ill 


Tr~ 

■ ■R-*'4"~ 

NTKI 

Fh V 1 


TT 



FETSH 

nr 

'nr*X' 

Nvm 

FEW! 

L 

rBr*4 

• K k 




c 

R*4 

N.R. 

GAP2 


C 

R*4 

N.R. 

GAP3 

c 

R*4 

N.R. 

GAP4 

c 

R*4 

N.R. 

Hlllllllllll^ 

iH 


c 

R*4 

N.R. 

GAP6 


C 

R*4 

N.R. 

GAP7 

c 

R*4 

N.R. 

HFIN 

c 

R*4 

N.R. 


LIFT 



■ CIM 

■ Mill 



"C" 

“T*4“ 

NTR. 

TTHF 

nr 


N.K. 

PCTN 

L 

Pf*4 

RTRT 


RELI 


c 

R*4 

N.R. 

RMAX 


c 

R*4 

N.k. 

SHPA 

c 

R*4 

N.R. 

SHPR 

C 

R*4 

N.R. 


SHTE’ 


c 

R*4 

N.R. 

SHTH 


c 

R*4 

N.R. 

SKAC 

c 

R*4 

N.R. 

SKAR 

c 

R*4 

N.R. 


SRLL 


"C 

k*4 

fjTpr; 

SKTST 


XT 


— tr.“in 

STFTi 

nr 

■nr#4“ 

N.K. 


c 

R*4 

N.K. 


SRHT 


c 

R*4 

N.R. 

SKLG 


C 

R*4 

N.R. 

SKMC 

c 

R*4 

N.R. 

SKPA 

c 

R*4 

N.R. 


S'KPH 


c 

R*4 

N.R. 

SKKC 


C 

R*4 

N.R. 

SKSC 

c 

R*4 

N.R. 

SKTM 

■ c 

R*4 

N.R. 


SKvr 


ir 

R*4 

— NTir: 

SRWH 


nr 


— NTin 

SKira 

nr 

“R*4" 

— pjrm 

SKTO 

c 


Nm k* 
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( 



STni 

SKL5 

SVTW 

C 

C 

R«4 

R*4 

pmn 

N.R. 

N.R. 

SKt2- 

SLMH 

SWTT 


C 

c 

R*4 

R*4 

Nvn .- 

N.R. 

N.R. 

SKT3- 

STPW 

T8H1 


T~ 

c 

-R-*4— 
R *4' • 
R*4 

! 

M • R • ^ 
N.R» 

: S-K-14 

SVTE 

TRH2 

C 

C 

— e — 

— R*4— 
R*4 
R*4 

NTP-. 

N.R. ' 

N.R. 




TSTO 


-R-p*r- 

— pmr: 

TCMT- 



“k’PA 

N ♦ 

rc'iiN” 


C 

K ^«V 







T IMY 

c 

R«A 

N.R. 

TIN2 


c 

R*4 

N.R. 

TIN4 


c 

R*4 

N.R. 

TMAX 

C 

R*4 

N • R • 


TOVW 

c 

R«4 

N.R. 

TWTW 


c 

R*4 

N.R. 

WDAL 


c 

R*4 

N* R* 

WENV 

C 

“0” 

R*4 

N.R. 

hTT R*; 


•K-pur 


-TT?4— 

— rmr; 

CJGS3 


C“ 

“Rr*4” 

iViKr 

■WPOS“ 


c 

~Rt4 







WPR8 

c 

R*4 

N.R. 

WPRG 


c 

R*4 

N.R. 

WPRP 


c 

R*4 

N.R. 

WRCA 

c 

R*4 

N « R * 

^ 9t 

WSCA 

c 

R<=4 

N.R. 

XLBH 


c 

R*4 

N .R. 

XL GO 

F 

c 

R*4 

000034 

XLHL SF 

c 

R*4 

0009B4 


rcr2 

' c 


NTR. 

RTFOr" 


V, 

R*4‘ 

is • k • 

ATM ITT" 


c 


N • k • 

kx 1 \ r" 





CBAkW 

c 

R«4 

N.R. 

CLOES 


c 

R*4 

N.R. 

CLEYE 


c 

R*4 

N.R. 

CPIND 

c 

R*4 

N.R. 


CPNUD 

c 

R*4 

N.R. 

CPPAR 


c 

R*4 

N.R. 

CP PRO 


c 

R*4 , 

N.R. 

CPTOT 

c 

R*4 

N.R. 

fwR ■ ' ‘ 


CrATFR— SF — 


~Ry4— 

-O0OUEC 

0 hL 1 A 


C“ 


I>j ■ K • 

CHirTH” 


c 







DELWP 

c 

R*4 

N.R. 

DSWET 


c 

R*4 

N.R. 

ELUOA 


c 

R*4 

N.R. 

ENPCR 

c 

R*4 

N» R» 


ETAP2 

c 

R«4 

N.R. 

ETAP4 


c 

R*4 

N.R. 

FETOT 


c 

R*4 

N.R. 

GMODl 

c 

R*4 

N.K. 


HTTAtO 

c 

-R?p-ir~ 

NTjr: 

TCP. OS 

p 

c~ 

I-*4 

“oeoRiC" 

— NlrfFT 




OuOOuv 





Cm 

NOXPJ 

c 

K4 

N.R. 

PFET2 


c 

R*4 

N.R. 

REALJ 


c 

R*4 

N. R. 

BMP MR 

c 

R*4 

N.R. 


SIGMA 

c 

R'f'A 

N.R. 

SI6MR 


c 

R*4 

N.R, 

SKAMO 


c 

R*4 

N.R. 

SKBAL 

c 

_Q_ 

R*4 

N. R. 

■ Rri 



C- 

-R»'4- 

NTR-; 

SKGR2“ 


c 

nc*4 

ArjR. 

SKP LrS'' 


c 








SKPES 

c 

R#4 

N.R. 

SKPRB 


c 

R*4 

N.R. 

SKRBF 


c 

R*4 

N.R, 

SKRCA 

c 

R*4 

N.R. 


SKSCA 

c 

R-fA 

N.R. 

SLMVT 


c 

R*4 

N.R. 

STMAX 


c 

R*4 

N.R. 

SWETH 

c 

R*4 

R* 


ST?HXP 

“C — 

R»4 

NTR-; — “ 

JKWET- 


“tC 

“R*4“ 

ntR";: 

— S2RHtr 


c 

R 

ri • R • 

1 1 





T3CRP 

c 

R^'A 

N.R. 

T8EM5 


c 

R*4 

N.R. 

T3P0W 


c 

R*4 

N.R. 

TBSFC 

c 

R*4 

N. R. 


TCDAK 

c 

R*4 

N.R. 

THETA 


c 

R*4 

N.R. 

TPRCP 


c 

R*4 

N.R- 

TVCMR 

c 

R=i=4 

N.R. 



V3-SKH 


-R^4~ 

K"i 

VD'ARV^ 


c 

k •>'*t 

[\ * k « 

'VDTVt 


c 


• R • 






VGASR 

c 

R«4 

N.R. 

WPAYL 


c 

R*4 

N.R. 

WPSTR 


c 

R*4 

N.R. 

XLALB 

c 

R*4 

N.R. 


XL8WQ F 

c 

R=i=4 

00002 8 

XLHRN 

SFA 


R*4 

OOOOFO 

XLRLA 

F 

c 

R*4 

0D002C 

ALFOES F 

c 

R*4 

000640 
^ ^ * 


-prrrsup 

'C ' 

-RVtr- 

N.Tr: 

C-&mHT“ 


c~ 

~R*4F" 

N • K • 

C84R vT“ 


c 








CLALPH F 

c 

R»=4 

0001C4 

CKSIND 


c 

R*4 

N.R. 

CTSIGH 


c 

R*4 

N.R. 

CYCPRL 

c 

R*4 

N.K. 

O 

DELFCR 

c 

R=!-4 

N.R . 

OELRTH 


c 

R*4 

N.R. 

OELNFC 


c 

R*4 

N.R. 

DELWPL 

c 

c 

R*4 

N. R. 

N - ft- 


“D'ECWS’T 


■■ 'k44 

R.R-; 

orsnsr-r 


— C” 


N * k • 

“TJCr/vru 


c 








DRGIND 

c 

R’i'4 

N.R. 

DSPLMT 


c 

R*4 

N. K. 

DYLIND 


c 

R*4 

N.R, 

ELHLOA 

c 

R*4 

N.R. 


ELVLOA 

c 

R«4 

N.R. 

ETAIND 


c 

R*4 

N.R. 

ETAP4N 


c 

R*4 

N.R. 

EXPDRG 

c 

R*4 

N.R. 

K< 0 


-reuKAG 

— C*” 

“RWF- 

NTR-; 

FTXTNET 



R*4" 

N * K'« 

GAM O' Mr 


— 0*- 


N* R* 






INDCftU 

c 

1*4 

N.R. 

INDDRG 


c 

1*4 

N.R. 

INDDYL 


c 

1*4 

000823 

INDETA 

c 

1*4 

N.R. 


INDFIX 

c 

1*4 

N.R. 

INDHOL 


c 

1*4 

000834 

INDOPT 


c 

1*4 

N.R. 

INOOSW 

c 

I«4 

— frffZ..— 

N.R. 

' " '“'N> R" 


— l-NtTPOil 



NtR:: 

I-NUPRP" 


— C“ 


f>i • k • 

— 1 NuK'UM" 


c 


N # R • 






OPT IND 

c 

R*4 

N.R, 

OS NINO 


c 

R*4 

N.R. 

PRPIND 


c 

R*4 

N.R. 

RDMINO 

c 

R*4 

N.R. 


RHORHO 

c 

R*4 

N.R. 

SGTIND 


c 

R*4 

N.R. 

SKBLNT 


c 

R*4 

N.R. 

SKENVl 

c 

R#4 

N» R» 


— gieenva 


R*4~~ 

NTic; 

SKFtTSZ- 


c 

— 

Nti<t 

— SMVT"AR“ 


c 








STHETA 

c 

R*4 

N.R. 

TBCOWI 


c 

R*4 

N.R. 

TB8AP4 


c 

R*4 

N.R. 

THETMR 

c 

R*4 

N* R« 


TOLIND 

c 

R*4 

N • K • 

VGBOVH 


c 

R*4 

N.R. 

NBALNT 


c 

R*4 

N.K. 

HPAYLO 

c 

R*4 



-xtHR>TP~?Far 


■ ' R*4" ' 

0O00F“4 

XTRRHl- 

-SFTlr 



— &000P3 

“XtHK'VfZ" 

SPA " 









XLHR/J4 SFA 


R*4 

000104 

XTGTA2 


c 

R*4 

N.R. 

XTGTA4 

F 

c 

R*4 

0003C0 










4L-4.iJf.ffy ■ 

— etJ-NTON- 

-fNFfl RMA T'tUlf 













-Si-«-e-F- 


VAii. NAME 
O PT INO — 


TYPE 

K<‘4 


REL. ADDR. 
iTTlt:; 


VAR. NAME 
HtJtn-ND — 


TYPE 
— R » 4 ~ 


REL- ADDR. 



VAR. NAME 
PYtr t ' ND — 


TYPE 

— 


REL. 
tt 


ADDR. 


VAR. NAME 

— 


TYPE 


REL. ADDR. 
Nvft? 
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■iHLtKtTi immm 

M TTM 

N.R. 

M II lllll — 


RTRT 

mmmiimwMAmm 

R*A 

— rtr; 


— 

iTTRT 



ETAIND 

R<«4 

N.K. 

WO 

R^4 

000024 

XLBWO 

R*4 

000028 

XLRLA 

R«‘4 

000C2C 

/ . 


VGBOVH 

R«4 

N.R. 

XLGD 

R*4 

000034 

HMAXO 

R#4 

N.R. 

RHORHO 

R*4 

N.R. 



TWO 

— (Ten? — 



—Kn ; — 

NTRi: 

OKI 

— R:f4 

imr; 


KV'^^ 

N. K. 



CKFP 

R=!=4 

N.R. 

VDlVt 

R*4 

N.R. 

HOO 

R«4 

N.R. 

ROD 

R*4 

N.R. 



TOO 

R*4 

N.R. 

GAPl 

R*4 

N.R. 

SGTIND 

R*4 

N.K. 

ELHLOA 

R*4 

N. R. 




— R^i'4 — 

N.K. 


— pr>-4— 

N* K • 

AK 


N.R. 

w:> 

A 

N * 



TCR 

R#4 

N.R. 

TCT 

R*4 

N.R. 

SUM 

R>i‘4 

N.R. 

ARHT 

R«'4 

N.R, 



TCHT 

R*4 

N.R. 

VBARH 

R*4 

N.R. 

SLMH 

R’i'4 

N.R. 

ARVT 

R«4 

N.R. 



TCVT 

— R^4 — 

— imr; 

VBARV 

R*4 ■' 

N7'R“ 

BLKVI 

RT4 


tLUN 





ELOT 

R«=4 

N.R. 

ELDUA 

R«4 

' N.R. 

DLSWSH 

R«4 

N.R. 

DSWET 

R#4 

N.R. 



DLVLHL 

R«4 

N.R. 

OVOL 

R*4 

N.R. 

CBYLOA 

R4'4 

N.R. 

ENR 

R’i'4 

OOOllC 








N.R. 


W£Z(|H 

ntr: 

BKR 

R?4 

IN* K* 



DAM3 

R#4 

N.R. 

CLEYE 

R*4 

N.R. 

THETKR 

R«4 

N.R. 

XC 

R«‘4 

N.R. 



XMk 

K*4 

N.R. 

TVCMR 

R*4 

N.R. 

VT 

R#4 

000143 

CTSI6H 

R*4 

N.R. 



rvH — 

— R?4 — 

RTR'; 

HtS 

R*4 ■ 

NTTC: 

1 iNy 

R*4 ■ 

N.K. 

■ 1 1 AP2 

FOS’f 

N. K. 



ETAP4N 

R=t=4 

N.K. 

TBEM5 

R*4 

N.R. 

T98AP4 

RX‘4 

N.R. 

GAP3 

R#4 

N.R. 



OAM** 

R*4 

N.R. 

ENP 

R*4 

N.R. 

ETAT 

R*4 

N.R. 

HC 

R#4 

N* R* 




R5F2; 

N.R. 

STHT7 — 


PJ--5,- 

CD'S! 

R54 

N.R. 


K*A 




DAMS 

R*4 

N.R. 

DLTAFE 

R*4 

N.R. 

FEDRAG 

R#4 

N.R. 

eXPORG 

R<“4 

N.R. 



CDC 

R«4 

OOOICO 

CLALPH 

R*4 

OOOIC4 

CKVT 

R*4 

N.R. 

CKHT 

R'«‘4 

N.R. 



CFCF — 

— R*4 

N.R. 

cn<:v} — 


N.R. 

RETT 

R®i? 

■" N.R. 

rcxN 


N* K« 



TBCLl 

R*4 

N.R. 

TBCDWI 

•R*=4 

N.K. 

GAP4 

R*4 

N.R. 

WFE 

R’1'4 

N.R. 



WFUL 

R«4 

N.R. 

DELWFC 

R’i'4 

N.R. 

DELWP 

R*4 

N.R. 

OELWST 

R*4 

N.R. 



SKCC 

— RT-S4 — 

N.R. 

SKRC — 

R<=4 

' " n;k'; 

SKSC 

RJVA 

N.K. 

aK hW 


IN* n* 



SKTM 

R*4 

N.R. 

SKRCA 

R«‘4. 

N.R. 

SKSCA 

R*4 

N.R. 

SKMC 

R*4 

N.R. 



SKAC 

R#4 

N.R. 

SKHL 

R*4 

N.R. 

SKENVl 

R*4 

N.R. 

SKENV2 

R*4 

N.R. 


I 

STK^CBT — 


— ntr:: 



N.K. 



N.K. 

6Nt>AL 

K*i‘4 




SKLG 

R#4 

N.R. 

SKWW 

R«<4 

N.R. 

ELF 

R*4 

N.R. 

RMI 

R=»‘4 

N. R. 


o 

SKWP 

R«4 

N.K. 

SKHT 

R«!4 

N.R. 

SKVT 

R’I'4 

N.R. 

SKPRB 

R’t'4 

N • R* 


— N3 ■ ' ■ 


— rT'M 

fTTBf: 

sJ : 

— FfST- 

'"tt.'r:; 


R3T4 

N*K« 

AK 

K'^t 




SKPA 

R*4 

N.R. 

SKVTAR 

R*4 

N.R. 

SKPOS 

R*4 

N.R. 

SKPDSZ 

R*=4 

N.R. 



SKT 

R»4 

N.R. 

SKFS 

R44 

N.R. 

SKPEI 

R’«'4 

N.R. 

SKPES 

R*4 

N.R. 




M 1 1 ■ 

— KT»r; 



R44 

N.R. 



NTR"; 

0K4 


IN • K« 



SK5 

R*4 

N.R. 

SK6 

R*4 

N.K. 

SK7 

R*4 

-N.R. 

SK8 

R*4 

N.R. 



SK9 

R*4 

N.R. 

SKIO 

R#4 

N.R. 

SKU 

R*4 

N.R. 

SK12 

R*4 

N.R. 



l>Kii 


RTRT~~~ 

SK14~ 

— R»4 

NTTC: 

SKT5 — 


N.K. 



N • K » 



GAPS 

R*4 

N.R. 

TOLIND 

R*4 

N.R. 

XTGT A2 

R#4 

N.R. 

TIN2 

R*4 

N. R- 



Ti«TW 

R#4 

N.R. 

PFET2 

R*4 

N.R. 

DELTH 

R«'4 

N.R. 

STH 

R<'4 

N. R. 




R?T2r- 

N.K. 

XTGT A4"“ 

— Rr^ir" 

M 1 1 1 1 1 — 

ITN4~ 

RSRT” 

“ R7R'. 

VTN 

k=»4 




ObLR 

R*=4 

N.K. 

RMAX 

■ R*4 

N.R. 

DELFCR 

R*4 

N.R. 

ENPCR 

R*4 

N. R. 



OELWHL 

R«4 

N.K. 

STPW 

R*4 

N.R, 

HF IN 

R»4 

N.R. 

GAP6 

R*4 

N.R. 



CYCP'RTT" 

R*4 

N.K. 

TF~ 

— R^r?- 

NTR. 

SKT" 

RT‘4" 

N« K • 

51C4 

K'"t 

N* K* 



TBHl 

R*4 

N.R. 

TBTO 

R't‘4 

N.R. 

TBH2 

R«4 

N.R. 

TBCRP 

R*4 

N.R. 



T8SFC 

R*4 

N.R. 

TBPQW 

R<f4 

N.R. 

GAP7 

R#4 

N.R. 

ALFDES 

R«4 

000640 



ALFDL 

R*4 

NTt;; 

AL'FR ■ 


— 0UUo4B 

AMD 


N • K • 

tmPA 





BHPR 

R't‘4 

N.R. 

BHPSUP 

R*4 

N.R. 

6HT 

R'C'4 

N.K. 

BLP 

RW4 

N.K. 



BR 

R«4 

N.R. 

BS 

R#4 

N.R. 

BVT 

R#4 

N.R. 

CBARF 

R*4 

N.R. 





rttt; 

CHWVT~ 

R-^4“ 

NTir; 


R¥4“ 

N'ni" 

UOK 


IN* K* 



CCT 


N.R. 

CDV 

R*4 

N.K. 

CLW 

R*4 

00068C 

CPIND 

R*4 

N.K. 



CPNUD 

■m 

N.R. 

CPPAR 

R<'4 

N.R. 

CPPRO 

R’I'4 

N.R. 

CPTOT 

R*4 

N* R* 




^iVLL'm 

NTFT^ 

CTP— 

R#4 

— 0U06AB 

cv~ 

^ RTTr- 

N.K. 



IN« K* 






XLO ES TJTir; 

UH R<“V 0006C4 DSPLMT K*4 

FLN R*4 N.R. ELUA , K#4 0006D8 

EP; nTirz efAP K-^ NT«V 


FEHL R*4 N,R. FEHT N.R. 


FEVT R*4 N.R. FEW R*4 


GLF R^4 N.R. GMODl R#4 N.R, 


INDCRU I=*‘4 N.R. INUDRG 1*4 N.R. 
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[TECKTR 

etc 

bLT 

— R*4 

R=»4 

R*4 

— wnn 

N.R, 

N.R. 

oelta- 

ELHT 

FLVT 

— R-*-4~ 
R*4 
R*4 

(TTR-T 

N.R. 

N.R. •; 

Nticj — “ 

pen fr*4 

N « K « 

r t n 1 



FET 

R*4 

N.R. 

FETOT 

R*4 

N.R. 

FEWH 

R*4 

N.R. 

FEWI 

R*4 

N. R. 

erAi>4 — 

H 

-TWf — 
R#4 

fv)* K • 
N.ft* 

ICRUS 

1*4 

00081C 

INODYL 

1*4 

000828 

inoeta 

1*4 

N.R. 

mtjtrpt — 

INORDM 

— — 
1*4 

frrR:; 

N.R. 

INDUoW 

IPRINT 

1*4 

N.R. 

NOXPJ 

1*4 

N.R. 

OWE 

R*4 

N.R. 

Q 

— R:*-4 — 

— otroa^rs 

RHG 



R 

R*4 

N.R. 

„ RN 

R*4 

00087C 

SA6 

R*4 

N.R. 

SA7 

R*4 

N.R. 

snw — 

SIGMA 

— — 
R*4 


SSIGMA 

R*4 

N.R. 

STMAX 

R*4 

N.R. 

SVT 

R*4 

R'*’4 

N.R. 

— SW — 

■ *■ 

— oO'trfiC'a 




SWWET 

R*4 

N.R. 

S2RH0 

R*4 

N.R. 

TCBAR 

R*4 

N.R. ■ 

THETA 

R*4 

N.R. 



TFROP — 

VGA SR 

— R*4'~ 
R*4 

NTR'^ 

N.R. 

VHL 

R*4 

N.R. 

WBAL 

R*4 

N.R. 

WBALNT 

R*4 

N.R. 

— N;R'^ 

vrElJ — 
WFR 

R*4 

NtR. 

N.R. 

WFS 

R*4 

N.R. 

WHL 

R*4 

N.R. 

WHT 

R*4 

N.R. 

WPA-Yt — 

WPH 

R-*4“ 

R*4 , 

N • R • 
N.R. 

WPRB 

R*4 

N.R. 

WPSTR 

R*4 

N.R. 

WRC 

R*4 

N.R. 



MW 

ft*-4~ 

R*4 

(•J ♦ R . 

N.R. 

... 

WPAYLO 

R*4 

N.R. 

XLALB 

R*4 

N.R. 

XLB 

R*4 

0009AC 

XTR — 

DMR 

R*4 0009C8 

A LW 

SIGMR 

R*4 

N.R. 

SEE 

R*4 

N.R. 













LABEL ADim 


LABEL ADDR 


LABEL ADDi^ 


LABEL ADDR 
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■ BO 
8 
13 

"000350 

000422 

00050C 

1 

10 

14 

"O'OU'JAZ 

00043A 

000520 

6 

U 

15 

~a003T^E 

000472- 

000530 

6 

12 

20 

-CrOTTZTTZ 

000494 

000582 

i6" 

■ mil 

n- 

■ Mill — — 


000640 


00067C 

24 

0006D8 

25 

0006 EC 

27 

0006FC 

18 

000700 

19 

000714 

21 

000724 

22 

000786 

23 

00 07DA 


★OPTIONS IN EFFECT* NAME= MAIN,OPT=:02,LIN£CNT=54, SIZE=0000K, 

■^UVnONS IN EFFECT* bUUKLE , tBLlH L, NULIST .NOOECK.XOAa , HAP , NOEO I T i 1 0,NDXREF 

★ STATISTICS* SOURCE STATEMENTS - 158 .PROGRAM SIZE == 2070 


★STATISTICS* NO DIAGNOSTICS GENERATED 

ENU OF COKPTLATION **A*** 9 IK BYTES UF CURE NUI USED 

★STATISTICS* NO DIAGNOSTICS THIS STEP 
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LEVEL 21.7 { JAN 73 ) 


OS/360 FORTRAN H 


DATE 75.128/16.06.03 


ISN 0002 


ISN 

ISN 

ISN 


0003 

0CC4- 

0005 


COMPILER OPTIONS “ NAME= MAIN , OPT=02 « L I NECNT=54 , S I Z£=OOOOK » 

SOURCE,£BCOICtNOLIST,NpOECK,LOAO,MAP,NOcim,ID,NQXREF 
SUBROUTINE LOADER (X.I) 
member name B81L0ADR 
DIMENSION T(5) , IDENT120). Xt 1) 

DATA KLANK / 

917 F0RMATI/47X.13HC A S C 0 M P/ 18X » 53HC0MPR cHENS I V E AIRSHIP SIZING C0005D00Q 
ICMPUTER PROGRAM B-81 . 00060000 

2 //15X76HTHE FOLLO'.JING IS A CARD BY CARO R0OC70C00 

3EPROOUCTION OF THE INPUT DECK FOR THIS CASE//9X, 58HLDC. CORRESPON0OC8O 000 
4DS TO LOCATION NUMBER GIVEN ON INPUT SHEET / 9X,83HNUM STANDS F000090000 
5R THE NUMBER OF SEQUENTIAL INPUT VALUES STARTING WITH LOC . IMAX. =00100000 
65)/ 9X.53HVAL EQUALS VALUE FOR VARIABLE CORRESPONDING TO LOC. /9X001 10000 
7.4HVAL1,9X,5HVALUE,14X,26HC0RRESP0NDING TO LOC .+0001/ 9X, 4HVAL2, 9X , 00120000 
85HVALUE,14X.26HC0RRESP0N0ING TO LOC. + 0002 / 1 5X . 4HETC ./ / 11 X 1 4HL0C . >-700 1 30 000 


I 


00010000 

00020000 

00030000 

00040000 


9X.3HNUM. 9X.3HVAL.15X,4HVALlt 14X*4HVAL2» 14X.4HVAL3 . 14X i4HVAL4/) 


ISN 

OC06 

918 

FORMAT! llX,I4t8X,H.5X,5{G14. 5.4X)) 

ISN 

0007 

999 F0RHAT(/47Xtl3HC A S C 0 M P/ 16X 1 53HC0MPR EHENS I V E AIRSHIP S, 
lOMPUTER PROGRAM 8-81//) 

ISN 

0CC3 

C 

IPRTIT = 0 

IDTSnON 360)= 1077952576 IDTSTION 94) =-17997958192 

ISN 

0C09 


lOTST = KLANK 

ISN 

0010 


KAUD = 0 

ISN 

OCll 


I ADD = 0 

ISN 

0C12 


GO TO ( 1,11) . I 

ISN 

0013 

1 

READ! 5,2)K,J,(T!L),L = 1,5) 

ISN 

0C14 

2 

FCRMAT(I4,I1,5E14.7) 

ISN 

0C15 


GO TO (4,4.4.4,4,20,6,13,14) ,J 

I SN 

QC16 

20 

I ADO = I ADD + 1 

ISN 

0C17 


IF tlAOD.EO.l) KAOD = 1000 

I.SN 

0C19 


IF (IADD.EO.2) KAOD = 0 

ISN 

0021 


IF (IADD.EO.2) lAOO = 0 

ISN 

0C23 


GO TO 1 

ISN 

0 024 

4 

CONTINUE 

ISN 

0025 


IF( IPRTIT. NE.O) GO TO 99 

ISN 

0 027 


WRlT6(6,lllll) 

ISN 

0028 

11111 

FCRMAT(lHl) 

ISN 

0 029 


WRITE(6,917) 

ISN 

0C30 


IPRTIT= 1 

ISN 

0C31 

99 

K = K+ KAOD 

ISN 

0032 


DO 5 L = 1,J 

ISN 

0033 


N = K + L - 1 

ISN 

0Q34 

5 

X(N)= T(L> 

ISN 

0035 


WRITE (6,9181 K,J,(X( IVY) ,XVY-K.N), 

ISN 

0036 


GO TO 1 

ISN 

0037 

6 

REA0(5,7) (I0£NT(M),M=1,19) 

ISN 

0038 

7 

F0RMAT(A4,2X. 18 A43 

iSN 

0039 


IF(IOENT) n-IDTST) 8,10,8 

ISN 

0040 

8 

WRIT£(6,9) 

ISN 

0041 

9 

FORMAT! 5'X,43H*** ERROR - NO TITLE CARD AFTER .SEVEN CARO,/ 


5X,45H0R THERE WAS A 6 IN COLUMN 5 OF AN INPUT CARD) 


00140000 

00150000 

C00160000 

09170000 

06210000 

00220000 

00230000 

002^10000 

00250000 

00260000 

00270000 

00280000 

00290000 

00300000 

00310000 

00320000 

00330000 

00340000 

00350000 

00360000 

00370000 

00380000 

00390000 

00400000 

00410000 

00420000 

00430000 

00440000 

00450000 

00460000 

00470000 

00480000 

00490000 

00500000 

00510000 

00520000 

00530000 


OEIGINAi;' PAGE IS 
QJ) POOR QUALITY • 
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ISN 0042 60 TO 14 

TSN 0C43 10 IPAG6=0 

ISN 0C44 11 IPAGG=IPAGE+1 

ISN 0045 WftITE(6,12> ( I OENT( Ml tM=2 ,19) , IPAGE 

ISN 0046 IFn.EQ.l) WRITE(6,917) 

ISN 0048 12 f 0KMATtlHllXl8A4,6H PAGE 13//) 

ISN 0C49 IF(UNH-l) GO TC113 

ISN 0051 IPRT1T=1 

ISN 0052 GO TO 1 

ISN 0053 113 WRITe(6,999) ’ 

ISN 0054 13 RETURN 

ISN 0055 14 CALL EXIT 

ISN 0C56 RETURN 

ISN 0057 END 


PAGE 002 


00540000 

00550000 

00560000 

CC570000 

00530000 

C0600000 

00610000 

00620000 

00630000 

00640000 

00650000 

00660000 

00670000 

00680000 





/ LOADER / 


name TAG’ TYPE ADOi 
I F I»4 OOOAOO 

M F ■ IM 000410 
IVY F 1*4 0004L8 

I DENT SF 1*4 00044C 

IBCCM# F XF 1*4 030000 


NAME TAG ■ TYPE ADO. 

, J SF ■ 1*4 000404- 

N’ SF 1*4 000414 

EXIT'SF XF R*4 000000 

IDTST S 1*4 000424 

IPRTIT S 1*4 000430 


SIZE OF PROGRAM 000796 HEXADECIMAL BYTES PAGE 003 


NAME TAG 
K SF 
T Sr 
lAOO SF 
I PAGE SF 
J.OAOER 


TYPE ADO. 
1*4 000408 

R*4 000433. 

1*4 00041C 

1*4 000423 

1*4 000434 


NAME • TAG 
• - L SF- 
X SF XR 
KAOO SF 
KLANK F 


TYPE. :aoo. 
1*4' 00040C’ 
R*4 000000 

1*4 000420 

1*4 00042C 



LABEL 

ADDR 

LABEL 

ADDR 

LABEL 

AUDR 

1 

00050B 

20 

000558 

4 

00059C 

5 

0005F6 

6 

000668 

8 

00069C 

1 1 

00068C 

113 

000728 

13 

000 73C 

^OPTIONS 

IN EFFECT# 

NAME= HAIN,0PT=02.LINECNT= 

54.SIZE=0000K. 


^OPTIONS 

IN EFFECT# 

SOURCE .EBCDIC 

.NOLtST.NOOECK 

. LO AD'. MA P . NQEDIT . I D .NQXREF 


*:STAT1ST ICS# SOURCE STATEMENTS = 
^STATISTICS# NO DIAGNOSTICS GENERATED 
****** E^o OF COMPILATION *##### 


56 .PROGRAM SIZE = 


1942 


LABEL AOOR 

99 000504 

10 0006B4 

14 000744 


PAGE 004 


IISK BYTES OF CORE NOT USED 


I 

H 

O 

00 



) 


LEVEL 21*7 ( JA^ 7. 

CC^PILER CPTICNS - NiPE= 


GS /26U FORTRAN H 


"DATE 75.097/lX.lO.T/ 


:= »A tN .nFT=C 2«LINECNT=SAtSIZE = OCOOK_i_ 


ISN 0002 


IKR"C£TtECC'lC-,TCLfST,AODECK,LCAC,«AP,NCEOIT, IC.ACXREF 

SUBRCL7INE FCWES 
,v£P 3ER ^A^E eeiFGViER 


ISN 0003 


PACE I 
CCPMON 
1 F I X INO 
TxTRLA 
5EPLF 
ARCC 


lAFUT LCC 
CPTIAC 
tPOPUC 
"TV()E"C“VF 
,CK1 
,TOC 


CCCl TFRU 
,KLINC 
tfPFINC 
'i>LCC 
,C£IV»F 
,CAFi (5) 


"OO'SC 
.DYLINO 
,ETAI NO 
; HyAxT5~ 


OOCIOCOO 

_000200CO 


tCRGINO 

i^C 

T'RV.C^'Hcr 


tCKFF ,VCIVE 

iSGTI NDt 12) t ELhLOA 


jOSViIND 
iXLE.ViO 
TvTil: • 
»HCC 
,ELVLOA 


jOOOACCOO 

,00050000 

tOTToeCDO'C 

,00070000 

,00080000 


ISN 0004 


£6AF2( 6) 
PACE 2 
CC PM ON 
lA'PFT' 
2VEARV 


lAPLT 

AR 

,'TC>T 

,SLM1 

.CLVLFL 


LOG 


CC51 
,1-S _ 
", \E APH 
,£LCN 
,CYCL 


THRU 


0100 

,TCR 


,SLMH 

,ELDT 

,.CBYLOA 


,TCT 

, APVT~ 
, ELCCA 
, ENR 


,SLP 

,rCVT “ 
,OLSUSH 
,hVA 


001 CCCCO 
,001 lOCCO 





4CAM 

5XC 

6EES 

,CAP2 

,XMR 

,TIAY 

,EPF 

,ncpR 

,ETAF2 





7GA'F3 






C 

. PAGE 3 

INPUT LOG CIC 1 7HPL 

140 


ISN OOOS 


CCPMON 

CAK4 

, ENF 

J 




lATPIY 

,COW 

fCCET 

V 




2EXFDRG 

,CCC 

.CLALPH 

T 




2CKls 

t Rc L I 

, ICLN 




C 

page 4 

INFLT LCC 

141 “tHFl 2CC 



ISN 0006 


CCPMON 

V.FE 

,V-FLL 

f 




ISKCC 

,SKftC 

.? £ K S C 

* 




2S1<SCA 

,skpC 

, Ekac 


1 



2SKC-B1 

, SKG82 

, EKELNT 


H 



4ELF 

,PPI 

, SKWP 

♦. 1 

— -O"' 



5 SKRBF 

,SKFF 

,SKA PC 


KO 



6SKPDS 

, SKPCSZ 

,ERT 





7SK1 

,Si<2 

,CK3 ' . 





ESK7 

,sxe 

,£K5 , 



,CLEYE 
,CTS1GH 
, TGEM5,{5) 


TTTeTm'R 

,TVR 

,TB8AP4.(5) 


,0012’CCCO 

,00130000 

,00140000 

TcoTfO'ccc 


,CiAH5 
,CKVT 

,TfcCLl {^ _ 
iT CATA 


,PC 

T'CTTATt 

,CKHT 
leCDWKS ) 


,VC 

TFWATr" 

,CKF 

,GAP4(4) 


DfcLwFC 

SKFW 

tCELWP 
, SKTPI 

.OEUvST 

,SKPCA 

SKHL 

— '.'SkEWI 

t iK t ^ V2 

SKBAL 

, SKLG 

,SKH> 

SKHT 

, SKVT 

,SKRRB 

SKAR 

, Skfa 


SKFS 

,SKPEI 

,SKPES 

0K4 

, SK5 . 

,SK6 


ISN 0007 


SSK13 

PACE 

ccTno'N 
1DELTH(5) 
2CELR( 5), 


,SK14 

UPLT. LCC 


"TCLiNTlS) 
,STMS) 
,RPA> (5 ) 


, 15 

201 TPRU 2Cq_ 
7>7t7A'2lf) 


'SKIO 

PUN 


,skir 

,CAP513) 


TTtrnr 


,00160000 
,OO17CC0C 
“TTOTSTRJOCr 
00150000 
,00200000 
-7SoTCT)'aotr 
,00220000 
OC230CCO 
— OOTmO'CTTC" 
,002 50^00 ' 
,002 60 ’cao 

,00230000 

,00250000 

"TCCSCGCGO" 

■,.00310000 

,00320000 

~77)'(TF3"aTJ0'(r 

QQ34U000 


,CP£INC (5) 
,CELFCR(5) 


TTTnTTsT 

,XTGTA415.) 

,ENPCR(5» 


, TlvTWl 5l 
,TIN415) 
,CELWPU5 3 


Tp'fmT5r 

, VIMS) 
,STPU(55 


003500CC_ 

"TC'OTC'C'C'O 


,00370000 
,00380000 


ISN ,0008 


ISN 0009 


3PFIN(5) 
PACE 6 
CCPH^Ol^ 

iTeToTs > 
hCPKING 
CCPMON 


,GAF6<IC) 

IAPLT LCC 201 TPRU 4C0 

CVCFfL ■ ,fP 

7TaH2rS)' - .tBcrpTE) 
CCNPCN 

ALFCeS,ALFCL,AU=F , APU 


,SK3 

TTB'jFmn 


, SK4 

TrffTOvrrar 


,TQH( 5) 

, (TA P71 6 0 ) 


“C'OST'OirS'C 

O04C0OC0 

,0O41C0OC 

■~ou52'(5'croir 

00430000 

C044C 00C 

TjM'S'croTTir 




-z^fTrfTr"hTCTT^ H lc,elht,eln,elca,elt, eTvt ,emETIP7 

5 F£H,FEHI j F EhL , F EE T , F £ 1 , f ET CT , F'EVT ,FEW , F EWH , F £W I , F,P , FP , ET A P4 
CCPMON FANnil(3.15l,CLF, CPDCl<I6)',K, 


0049Q00C 

0O5CCOCO 




. icw nni r. 



PAGE 002 


ISN 0011 
ISN 0012 

ISN 0013 
IS'J 0014 


ISN 0015 
ISN 0016 
ISN 0017 
ISN 0018 

ISN 0019 
ISN 0020 
ISN 0021 
ISN 0022 
ISN 0023 
ISN 002A 
ISN 0025 
ISN 0026 
ISN 0028 


»JA?P.!!LI-.»JNDETA t INDH X t INCHLL , INDOPT , INCOSWr OOS loocn 
e UDPOhfINDPRF, INC80P, IPFIM ' 

CCPMON LTK,NCCFF,NCXP,.,CkE,FEHFfPI,Q,RhCfREALJT RHPMRt R t RN 005 3C0CC 

,t SHP R.SHTtSHTE > SHTW, S I GMA , S S IGNA, ST , 005 4 0 0 C C 
SWEThfShEXP*SW7T,SWWET,S2RhC OO'jSOOCO 

TR,ULF, VGASBt VGASR I VHLr V 0C56CCC0 

_kki![:„Q(L V^CC yhE t Ir EP y W ES y W F >WFCfWFRfWFStWFWf 005 700 CO 

i ''"^^TfHGtlfiPCjFF^YL ThFCrWPCS, WPEI * WPF , UPR B t WPRG » hPR P , WPSTR005 sTcW 

>AlkPf-UPrA.LCr’_i.cr/ i.ci* i.tu i.t^ ■>■. ^ 


w!tlnRCtWRCA,l<.SCrVSC/tUST,MM,l«\T,WH,V,PAYLQjWACtUENV 

P£Jl!jO^LjfLALB, XLE> XLBHtXLH .XLR.XLh.YLSP.Tnvw 

CCPMON CPR,SIGFF,AF,'EHFP,S£E 

01 PENSION SHFIlCIfETAPPdO) ,TPRQPP( 10) 

^i ^P^klST /NFCViE F/ REAL^ .E7AP tNOXPJ,NOCPF,CCP,CCTtLTHL.BLP. 

1 SFPR,SFf A.TPT cP, IT1,P1,V 

NCXPJ=XPJXC+C.l 
NCCPP=CFF8C4Q.1 

pT^bTTaTss ~ ~ 

TFfiOPi=TPFCP 
IT1=0 

ETAP=ore — “ 

P1=0.0 

14- IF (V. E C.C.C) G C 1C 11 

^^|^PP^*^*6 85*V*TFFCPTr/ (5 SO. C*ETAT*ETAP*D£LTA4STHETA*6HPP# 

15 IF (LTHL.EC.IJ GC TC 23 

B L P=X L I N f ( T BH 2 I B C F P , F F .ITfH 

BLF=FACTR{BLPtFF,TFETA ,FFJ 
IF ( M_. NE.O hPITElE. 9 ) 

GC TO 16 "• — — 

23 8LF=XUM{TEHl,ieiC,FF ,£,PI 

eLP = FACTR IBLP.FF.7FFTJ .FPl 

IF IM.NE.C) URI1E(6,fi) — 

16 ShPA=BLP 

IF (SHPA.L7.SFFF) GC TC 25 

22 IF (IT1.G7.25J CC TO 5 

171=17141 
13 SFFA=SFPR 

CALL tfrlstitppcpTyTsITITapI ^ 

IF JABSU.C-TFRCP/TPFCFD.GT. 0.005) GO TC 27 

LF_UBSI1.C-P1/P).LE.C.C1) CC TO 6 

27 Pl=P 

IF (IT1.G7.10) GC TC 25 

GC TO 14 

11 SFFR = TPRCF14«i,S«iSCR7(4./(PI XDMR>!<*2*ENR ))/(5£C.*ETAT*ETAP* 
aDELTA*STF£TA*S2FHC‘feHPP*YLS2 ) 

GC TO 15 

5 URITE (6,10 

KR ITE (6 .NFChER) 

GC TO 6 

25 IF (LThL.EC.l) GC TC 2 3~C — 

BLP=XLIM(TBH2,TBCRP,FF,£,P) 
eLF=FACTR<BLP.FF.7HETA .fP> 


CC59CCC0 
00600000 
C06CCC01 
C06CCIC0 
006 ICOOC 
00620000 
C063CCCC 
0064C000 
0O65C0CC 
C066CCCC 
0 06700 00 
006ECCCC 
C0690000 
C07CC0C0 
00710000 
CC7200CO 
C07 3C0CC_ 
00 74C”0C*0 
007500CC 
0076C0C0 
00 7 700 OC 

coTcodoc 

C079CCCO 

003COOOO 

0081COCC 

008200CO 

0083C0C0 

CC84COOO 

0085CCCC 

O086C‘00C 

0087C00C 

0C88CQCC 

0C8900C0 

C09CC0CC 

00910000 

C092COOO 

O093CO00 

00940000 

CC95COCC 

0096CO0C 

C097CQOO 

C098COCC 

CC99000C 

OICCOOCO 



PAGc 003 


IS>'I 0Q&5 
ISN 0067 
ISM 0068 
ISM 0069 
ISM 0070 
ISM 0072 
IS.N 0073 
ISM 0074 
ISM 0075 


ISN 0077 
ISN 0078 
ISN 0079 
ISN ooeo 
ISN 0081 
ISN 0082 
ISN 0083 
ISN 0084 
ISN 0085 
ISN 0086 
IS.N 008 7 
ISN 0039 
ISN 0091 
ISN 0092 

I SN 00 93 

IS.N 0094 
ISN 0095 
, ISN 0096 

I ISN 0097 

H 

H ISM 0098 

^ iSN 0099 

ISN 0100 
ISN 0101 


IF (.N.hE.C) WPn£(6,g> 

GC“TO 221 ■ 

230 8LP=XLIMTIT6H1 ,T6TC.Hh .5 fP) 

8LF=FACTR(BLP,H-,lt-ETA ,Ff ) 

IT IM.N'E.C) WPlTeTE^eT 
2:1 SPFA=8LP 

SI-FMAX = St-PA 

SP F M f N = N « TP'R'CT’ I / ‘{325 . 6 T A T«TTrT3:5BHPT* 

IF (V.EC.C.O) SFFMM = TfPCPl*n.5*SGRr(4.>'(PI*DNR**2>!‘ENR} ) / 
1 (550. *ETA7>!‘ETAF ♦DELTAS STPETA#S2RHC>I< t}HPP’«YLS2 ) 

DTT'S'hP = ( srpMX-SPf MIAT) /T .(} 

CC 20 1=1, 1C 
XI = I 

SPP( I > = SHFPIN-»C6LSPP*(> I-lTcT 
SPFR=SPF( n 
21 SPFA=SPFR 

CALL T P P L STTT FTTF,"'? LTfTTfTpl 
ETAPPI I)=£TAP 
TFROPPU)=TPftCF 

IF (K.LT.2) GC 7C 20 
IF (TPRCF1.lt. TFFCFF(K)) GC TC 215 
20 CCMTINLE" “ 

SPPS=1 .1*SPFPA> 

KRITE(6,NFCWER) 

GC TO 6 ■■ '■ 

215 ETAP=TABLE(TPRCF1,TFPCFF ,ETAFP, K,2,M) 

Sl-PR=TABL£(TPPCF 1 j TPPCf p-jSHF , K , 2 , M ) 

1 SLBROLTIME PCPERM 

9 FCPMAT(22>3SHTHS ERRCP IS IM THE CRUISE POWER TABLE) 

8 F'CFMAT(22X4CHTP IS ERBCF IS IM THE^AKEOFF POWER TABLE) 

6 RETURN 
EMC 


OlOLCOOO 

"ClOPCC'CC 

0103000C 

CLC4CCC0 

DrcTiTTrcTr 

01C6C0C0 

O1O7CO00 

DTOT'C'OM' 

01090000 

CllCCOCO 

TjrrrcrcfeTr 

OH2CCOO 

_0I1^CQ_C0 

(jri4tioocr 

0115CCCC 

CU6CCC0 

DlTTCOTTir 

Cl 180000 
01 1900CC 

DrzTrc'0'0(r 

C121C0C0 

C12 2COOO 

C12 3'C'0'0'0' 

CI24CCCC 

C125C00C 

C'ilEOTW 

0127C000 

0128C000 

■DTZ'O-OTreTr 

013C00CC 

01310000 

■0T3TCCW 

01330000 

O134OC0O 


O 

-m- 


-Er 






w 


oiiGird 


POWER 



' NAME 

TAG 

TVPE 

ADC. 

NAME 

TAG 

TYPE 

ADD. 


. H 


C 

p«4 

N.P. 

1 

<F 

I>!‘A 

00020C 


P 

FA 


R*4 

000218 

C 

C 

R>i<A 

N.R. 


V 

F 

C 

R»A 

000910 

w 

C 

R»KA 

N.R. 


BR 


c 

R*4 

N.R. 

ES 

C 

RX«A 

N.R. 


CX 


c 

R»4 

N.P. 

DH 

C 

P>i-4 

N.R. 


FM 


c 

R»4 

N.P. 

FP 

C 

R>1‘A 

N.R. 


PI 

SFA 

c 

B’t'A 

00086A 

PI 

S A 

R*A 

000220 


S7 


c 

R*4 

N.R. 

SW 

C 

R«A 

N.R. 


VT 





WE 

C 

RX'A 

N.P. 


WS 





V.W 

c 

R«A 

N • R • 


AMU 




HRSH 

EHT 

c 

R>KA 

N.P. 


BVT 


c 

PX4 

N.R. 

CCP 

c 

R»A 

OOG68C 


COV 


c 

R’^A 

N.P. 

CKF 

c 

R«A 

N.R. 


• CLW 


c 

RAA 

N.P. 

CRT 

c 

R#A 

N.R. 


OK-V 




N.P . 

DMR 

FA C 

R44 

00C9CE 


ELN 




N.R. 

ELT 

C 

R*A 

N.R. 


f^cK 





FET 

C 

R<=A 

N.R . 


HcS 


c 

R«4 

N.R. 

HCC 

C 

R*A 

N.R. 


RHC 


c 

R*A 

N.R. 

PMI 

C 

R*A 

N.R. 


SA6 


c 

R^A 

N.R. 

SAT 

c 

R*A 

N.R. 


SHP 

SFA 


R^A 

0002A8 

ShT 

c 

R>!=A 

N.R. 


SK2 


c 

R«A 

N.P. 

SK3 

c 

R*A 

N.R. 


SK6 


c 

R»A 

N.R. 

SK7 

c 

R’SA 

N.R. 


SLM 


c 

R»A 

N.R. 

STh 

c 

R»A 

N.R. 


TCB 


c 

P<A 

N.P. 

TCT 

c 

R*4 

N.R. 

*sj 

TVW 


c 

R4A 

N.P. 

ULF 

c 

R^'A 

N.R. 

h-» 

VMC 


c 

piSA 

N.P. 

WAC 

c 

R*4 

N.R. 

H 

WES 


c 

R»A 

N.R. 

UFC 

c 

R*A 

N.R. 

tv) 

WFS 


c 

P-JA 

N.R. 

WFW 

c 

R*=A 

N.R. 


WLG 


c 

R*A 

N.R. 

WMC 

c 

R«A 

N.R. 


WRC 


c 

P4A 

N.R. 

PSC 

c 

R#A 

N.R. 


WVA 


c 

PAA 

N.P. 

WVT 

c 

R*A 

N.R. 


XLW 


c 

P*A 

N.P. 

XMR 

c 

R-i=A 

N.R. 


ARVT 


c 

R#A 

N.R. 

EhPA 

c 

R*A 

N.R. 


COHT 


c 

R i^A 

N.R. 

CCVT 

c 

R'i'A 

N.R. 


CKVT 


c 

R>1A 

N.R. 

CAMl 

c 

R*A 

N.R. 


DAM4 


c 

R»A 

N.R. 

CAMS 

c 

RX«A 

N.R. 


ELON 


c 

R«A 

N.R. 

ELOT 

c 

R#A 

N.R. 


ELVT 


c 

P*A 

N.R. 

EMLF 

c 

R#A 

N.R. 


FEHI 


c 

R«A 

N.R. 

FEHL 

c 

R*A 

N.R. 


FEWH 


c 

R#A 

N.R. 

FEW I 

c 

R#A 

K* R • 


GAP3 


c 

R*A 

N.R. 

GAPA 

c 

R^A 

N.R. 


GAP? 


c 

R>!A 

N.R. 

FFIN 

c 

R*A 

N.R. 


PLIN 


c 

P#A 

N.R. 

RELI 

c 

R*A 

N.R. 


SHPR 

Sf 

c 

PXA 

000898 

SFTE 

c 

RKA 

N.R. 


SKAR 


c 

R*A 

N.R. 

SXCC 

c 

R*A 

N.P. 


SRHL 


c 

R*A 

N • R • 

SKHT 

c 

R’i'A 

N.R. 


' SKPA 


c 

PAA 

N.R. 

SKPH 

c 

R*4 

■3B1 


SKTM 


c 

R#A 

N.P. 

SKVT 

c 

R»(<A 

HBS 


SKIC 


c 

R=»A 

N.R. 

SKU 

c 

R*A 

mSM 


C 
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NAME 

K 

R 

TAG 

SFA 

C 

TYPE 

r*A 

R*A 

ACD. 

OOG210 • 

N.R, 

NAME 

M 

• T 

TAG 

FA 

C 

TYPE 

1*4 

R*4 

AOD. ' 
000214 

N.R. 

AF 


c ■ 

R*A 

N.R . 

AP 


C 

R*4 

N.R. 

CB 


C 

R’i'A 

N.P. 

cv 


C 

R*4 

N.R. 



C 

R*4 

N.R , 

FF 

FA 

c 

R*4 

000A34 

HC 


C 

R+A 

N.R. 

HH 

FA 


R«4 

0C021C 

RN 


c 

R«A 

N.P. 

SA 


C 

R*4 

N.R. 

TR 


c. 

R*A 

N.R. 

VC 


C 

R*4 

N.R. 

WF 


c 

R>:<A 

N.R. 

WO 


C 

R*4 


xc 


c 

R’I'A 

N.P. 

XI 

SF 


S*4 


, BLP 

SFA 

c 

R’I'A 

O0C660 

BMP 


c 

R*4 


CCT 


c 

R1'A 

OOC684 

ccc 


c 

■i a n 


CKW 


c 

R#A 

N.R. 

CKl 


c 

1: 1 fl 


CTP 


c 

R*A 

N.R. 

DK3 


c 

E ! 9 


ELC 


c 


N.R. 

ELF 


c 

R*4 


ENP 


c 

PX-'A 

N.R. 

ENR 

FA 

c 

R*4 

OOOllC 

FEW 


c 

R«A 

N.R. 

GLF 


c 

P*A 


ITl 

SF 


I'i'A 

00C228 

OWE 


c 

R*4 

N.R. 

ROO 


c 

R*A 

N.R- 

SA5 


c 

R*4 

N.R. 

SEE 


c 

R*A 

N.R. 

SFC 


c 

R*4 

N.R. 

SKT 


c 

R’i'A 

N.R. 

SKI 


c 

R*4 

N.R. 

SKA 


c 

R*A 

N.R. 

SK5 


c 

P*A 

N.R. 

SK8 


c 

R*A 

N.R. 

SK9 


c 

R'"4 


SVT 


c 

R*A 

N.R. 

TAF 


c 

R*4 

N.R. 

TMP 


c 

R’i'A 

N.R. 

TCO 


c 

R*4 

N.R. 

VHL 


c 

R#A 

N.R. 

VIN 


c 

R»4 

N.R. 

wcc 


c 

R*A 

N.R. 

WEP 


c 

P.*4 


WFE 


c 

R’I'A 

N.P. 

WPR 


c 

R*A 

N.R . 

WHL 


c 

R«A 

N.R. 

WhT 


c 

K*A 

N.R. 

WPC 


c 

R’I'A 

N.R. 

WPH 


c 

R*4 

N.R. 

WST 


c 

R-l-'A 

N.R. 

U'TM 


c 

R’1‘4 

N.R. 

XLB 


c 

R’I'A 

N.P. 

XLB 


c 

P*4 

N.R. 

ALFR 


c 

R’^'A 

N.R. 

ARHT 





hHPP 

F 

c 

R«A 

00C9CA 

BHPR 





CKFF 


c 

R’I'A 

N.R. 

CKHT 




HiSHH 

CAM2 


c 

R'i'A 

N.R. 

dam 3 


c 

R’'<4 

N.R. 

DELR 


c 

R*A 

N.R. 

CVCL 


c 

P*A 

N.R. 

ELHT 


c 

R*A 

N.R. 

ELCA 


c 

R*4 

N.R . 

ETAP 

SFA 

c 

R’I'A 

0006F8 

ETAT 

F 

c 

Ha 


FEHT 


c 

R*A 

N.R . 

FEVT 


c 

mm 


GAPl 


c 

R’i'A 

N.R. 

GAP2 


c 

^1 


GAPS 


c 

R’i'A 

N.R. 

GAP6 


c 

R*4 


LTHL 


c 

I'*A 

00C850 

PEHF 


c 

R*4 

N.R. 

PMAX 


c 

R*A 

N.R. 

SHPA 

SF 

c 

R’i'4 

000894 

SllTW 


c 

R'S'A 

N.R. 

SKAC 


c 

R*4 

N.R. 

SKFS 


c 

R ^4 

N.R. 

SKFW 


c 

Rv4 

N.R. 



c 

R’i'A 

N.R. 

SKMC 


c 

R*A 

N.R. 

• SKRC 


c 

R’I'A 

N.R. 

SKSC 


c 

R*4 

N.R. 

SKWP 


c 

R’I'A 

N.R. 

SKWW 


c 

R*4 

N.R. 

SK12 


c 

■R'I'A 

N.R. 

SK13 


c 

R*4 

N.R. 

















PAGE 005 



SK14 


C 

P>t4 

N.R, 

SK15 


C 

R*4 

N.R. 

SLMH 


C 


, N . P . 

STPN 


c 

K*4 

N.R . 


SVTE 


c 

R»4 

N. R. 

SVT'rt 


c 

R*4 

N.R. 

SWTT 


c 

R*4 

N.K . 

THHl 

FA 

t 

R*4 

O0U4C0 


TBH2 

FA 

c 

P«4 

0004E8 

TP.TC 

FA 

C 

R*4 

0C04D4 

TCHT 


c 

R*4 

N.R. 

TCLN 


c 

R*4 

N.R. , ^ 


TCVT 


c 

R>C4 

N.R, 

TINY 


c 

R*4 

N.R. • 

TIN2 


c 

R*4 

N.R. 

TIN4 


c 

R*4 

. N.R. 


TMAX 


c 

R«4 

N.R. 

TOVW 


c 

R*4 

N.R. 


nnn 






c 

R*4 

NTH 


WtMV 


c 

R*A 

N.R. 

V FUL 


c 

R*4 

N.R . 








c 

R*4 

N.R. 


ViPEI 


c 

RfA 

N.R. 

FPP8 


c 

P w4 

N.R. 



D 





c 

P“4 

N.R. 


WRCA 


c 

R’l'A 

N.R. 

^SCA 


c 

R*4 

N.R. 

XLBH 


c 

K*4 

N.R. 



t 


N.R. 


XLHL 


c 

R*4 

N.R. 

YLS2 

SFA 

c 

R*4 

0009C0 

ALFDL 


c 

R*4 

N.R. 

atmiy 


c 

R*4 

N.R . 


CBARF 


c 

P»4 

N.R. 

CEAPW 


c 

R*4 

N ♦ R • 

CLDcS 


c 

R*4 

N.R. 

CLEYE 


c 

R*4 

N.R. 


CPIND 


c 

R»4 

N.R . 

CFNUC 


c 

R*4 

N.R . 



c 

P.*4 

r*! ♦ K * 

CPPNO 

F 



00022C 


CPPRC 


c 

R*4 

N.R. 

CFTOT 


c 

P.*4 

N.R . 

DELTA 

F 

c 

R*4 

OOC6CC 

DELTH 


c 

R*4 

N.R, 


CELWF 


c 

R>>4 

N.R. 

DELhP 


c 

R*4 

f'» • R • 

OSWFT 


c 

P*4 

N.R. 

elcca 


c 

R*4 

N.R. 


ENPCP 


c 

R>*4 

N.R. 

ETAPF 

TFA 


R*4 

U(T027'C 

ETirPT 


c 

R*4 

KTR. 

TTTTTPa 


L 

R*4 

iN • K • 


FACTR 

f 

XF 

R=*4 

OOOCCC 

F6TCT 


c 

R*4 

N.R. 

GMDDl 


c 

R*4 

N.R. 

HMAXO 


c 

R*4 

N.R . 


ICRUS 


c 

I=«4 

N.R. 

KCCFP 

C 

c 

1*4 

000854 

NOXPJ 

S 

c 

1*4 

00C858 

PFET2 

' 

c 

R*4 

N.R, 


POWER 



R*4 

000220 

REALJ 


c 

B’«4 

ooosTS 

rhRhp 


c 

R*4 

N.R. 

stigma 


“IT" 

K*4 

iW * K » 


SIGMR 


c 

R>>4 

N.R. 

SKAMD 


c 

R*4 

N.R. 

SKHAL 


c 

R*4 

N.R . 

SKGBl 


c 

R*4 

N.P. 


SK6B2 


c 

B#4 

N.R. 

SKPDS 


c 

R*4 

N.R . 

SKPEI 


c 

R*4 

N.R . 

SKPES 


c 

R*4 

W • R • 


SKPR8 


c 

R*4 

N.R. 

SKRfiF 


c 

R*4 

N.R. 

St^TCX 


t 

R*4 

NTlF 

SKSCA 


17“ 


M * K » 


SLMVT 


c 

R*4 

N.R. 

STKAX 


c 

R*4 

N.R. 

SWETH 


c 

R*4 

N.R. 

SNEXP 


c 

R*4 

N.R. 


SWWET 


c 

R#4 

N.R. 

S2RFC 

F 

c 

R*4 

0008DC 

TABLE 

F 

>F 

R*4 

OOCCCO 

TBCLl 


c 

R*4 

N.R. 


T6CRP 

FA 

c 

R<4 

0004FC 

TBSP5 


c ‘ 

R*4 

N.R . 

TOPOW 


c 


N.R- 

TbsfC" 


“IT 

R*4 

N-R . 


TCEAR 


c 

R*4 

N.R. 

TFETA 

FA 

c 

P.*4 

0CC8EC 

TPROP 

sfa 

c 

R*4 

0CC0F3 

TVCKR 


c 

R*4 

N.P. 


VBAPH 


c 

R*4 

N.R. 

VEARV 


c 

R*4 

N.R. 

VDI VE 


c 

R*4 • 

N.R . 

VGAS3 


c 

R=^-4 

N . A , 


VGASR 


c 

R^4 

N.R. 

WPAYL 


c 

R*4 

N.R. 

hPSTR 


cT 

r*4~ 

N.R. 

jHALt 


c 

ft*4 

N.K. 


XLBWO 


c 

R«4 

N.R. 

XLINT 

F 

XF 

R*4 

OOOOOO 

XLRLA 


c 

R*4 

N.R. 

XPJNC 

F 


R*4 

OC0234 

( 

SORT 


XF 

R>!4 

OOOCCC 

FPXPRS 


XF 

R*4 

OCCOOO 

ALFOES 


c 

R*4 

N.R. 

BhPSUP 


c 

R*4 

N.R. 

H 

CBARHiT 


c 

R«4 

N.R. 

TFApvt 



R*T" 

N • R • 

Cbylga 


L 

“W-T“ 


llalph 



■k*4““ 

N.K, 

■ H 

CRSIND 


c 

R’»4 

N.R. 

CTSIGh 


c 

R*4 

N.R. 

CYCPRL 


c 

R*4 

fv. • S • 

OELFCR 


c 

R*4 

N.R , 

W 

DELRTH 


c 

R*4 

N.R. 

CELShP 

SF 


R*4 

00C238 

DFL-JFC 


c 

R*4 

.N.R. 

OELviPL 


c 

fi*4 

N.R . 


DELWST 


c 

R*4 

N.R. 

CLSivSh 


c 

R*4 

N.R. 

crrAFF 


c 

“R^4~ 

N.R. 

CC’VC.Tiir 


t 

R*4 

N.K. 


OPGIND 


c 

R*4 

N.R. 

CEFLPT 


c 

R*4 

N.R. 

DYLINO 


c 

R*4 

N.R. 

cLhLUA 


c 

R*4 

N.R. 


ELVLOA 


c 

R«4 

N-R. 

STAIN'D 


c 

R*4 

N.R. 

ETAP4N 


c 

R*4 

N.R. 

EXPDRG 


c 

R*4 

N.R. 


FEORAG 


c 

R*4 

N.R. 

FDiINC 


c 


N.R . 

Mimii 

F 

mr 

I *'4' 

■wwiroi— 



c 

R*4 

N • K • 


HULIND 


c 

R<4 

N.R. 

leccM# 

F 

XF 

1*4 

OOCJJOO 

INUCRU 


c 

1*4 

N.R. 

INDORG 


c 

I *4 

N.P . 


INOOYL 


c 

1*4 

N.R. 

INCETA 


c 

1*4 

N.R. 

INDFIX 


c 

1*4 

N.R. 

INCHUL 


c 

I *4 

N.R. 


INDOPT 


c 

1*4 

N.R. 

INCCbh 


c 

“1*4 

N.K . 

INDPOW 


c 

1*4 

N.K. 

TnTTFPP 


‘ c 

I *4 

N • 


IKORDM 


c 

1*4 

N.R. 

IPPINT 


c 

1*4 

N.R. 

NPQWER 

F 



OOCOC2 

OPTIND 


c 

R*4 

N.R . 


□SWIND 


c 

R*4 

N.R. 

FPFINC 


c 

R*4 

N.R. 

RDMIND 


c 

R*4 

N.R. 

PHCRHG 


c 

R*4 

N.R- 


SGTINC 


c 

R*4 

N.R. 

SHFRAX 

TF~ 


R*4 

00023C 

SHPMIN 

SF 


R*4 

OOC2'4‘0 

SKBLNT" 




N.K. 


SKENVl 


c 

R*4 

N.R. 

SKENV2 


c 

R*4 

N.R. 

SKPOSE 


c 

R*4 

N.R. 

SKVTAR 


c 

R*4 

N » R • 


SSIGMA 


c 

R*4 

N.R. 

SThETA 

F 

c 

R*4 

00 Of! B 4 

TBCDWr 


c 

R*4 

N • S • 

TB8AP4 


c 

R*4 

N.R. 


THETMR 


c 

R*4 

N.R. 

thrlSt 

TF~ 

XF 

ft*4 

irCGuiTO 

TOL 1 ND 


c 

R*4‘ 

N.K. 

rPK'UVV" 

S^A 


' K'wF” 

ijuu^:vo 


TPROPl 

SFA 


R*4 

000244 

VGBCVH 


c 

R*4 

N.R. 

WBALNT 


c 

R*4 

N.R. 

WPAYLO 


c 

R*4 

N.R. 


XTGTA2 


c 

R*4 

N.R. 

XTGTA4 


c 

R*4 

N.R. 












COMMON INFGRMATIjCN 


NAME CF CCFMCN BLOCK * * SI2E CF BLOCK 0009DC FEXADECIMAL BYTES 



VAR. RAPE 

TYPE 

PEL. AC 

QPTIPC ■ 

fi*4 

N.P. 

OSWUC 

RA4 

N.R. 

ETAINC 

R^A 

N.R. 

, VG8CVH R*A N.P. 


VAR . ^A^£ TYPE Rcl . AODR 

PULTNC RM rT.R^ 

FIJiIND P=*<i N.P. 

PC R*A N.R. 


VPC 

CKFF 


TCC 

ELVLCA 

TCP 


TCI-' 

TCV 

ELC 

DLVLI-' 

ViV. 

CAP. 


>PR 

TVU 

CA 

DA 


CCC 
- CKF 
TBCLl 


KA 

C-E 

KL 


SKi»P 

SKRBF 

SKPA 


SPT 

SPl 

SI* 5 

c 

SK 
GA 


TU 

CRSI 

CE 


DELhPL 
CYCPFL 
TEH 


VAR. NAME 
DYLI'MC) 
ROMIMD 
.XLUWO 


HMAXD 

CKl 

HOO 


SGTIND 

AR 

3LM 


SUMH 

SLhVT 

DLSWSH 


CBYLGA 
CAM 2 
THETMR 



TBSFC 

R*4 

N.P, 

TBPCV 

R=»A 


ALFCL 

■ P^4 

N.R. 

ALFP 

R»A 

N.K. / 

BhfP ■ 

R# A 

• N.R. 

EHPSUF 

F«A 

N.R. t 



ER 

CaARPT 


PAGE OOti 


TYPE 

REL. ADCR. 

VAR. NAME., 

TYPE 

REL. AODR. 

R*A 

N.R. 

CRGIN'D 

R«4 

N.R. 

R-«A 

N.P. 

PPPIND 

R<=A 

N.R. / 

R>JA 

N.R. 

XLRLA 

R*A 

N.R. 

p«A 

N.R. 

RHCPHC 

R*A 

N • R • 

R’^A 

N.P. 

OELRF 

P*A 

N.R. 

P^A 

N.R. 

RCO 

R’f-A 

N.R. 



ELHLCA 

R*A 

N.R, 



NS 

R*A 

N.R. 



APhT 

R*A 

N.R- 

R^A 

N.R. 

ARVT 

R*A 

■ N.?*. 

P#A 

N * R * 

ELDN 

R«A 

N.R. 

R«A 

N.R. 

DSWET 

R*4 

N.R. 

P«A 


ENR 

RX-A 

OOOllC 

P*A 

N.R. 

BNR 

R*4 

,N.R. 

R*A 


XC 

r#a 

N.R. 

R=»A 

N.R. 

CTSI6K 

R»'A 

N.R. 

R*A 

N.R. 

ETAF2 

Rx-a 

M.R. 

P*A 

N.P. 

6AP3 

Px-A 

N.R. 

R>>A 

00C153 

hC 

R«A 

N.R. 

R*4 

N.R. 

CCHT 

R>XA 

N.R. 

R#A 

N.H. 

EXPDRG 

Rva 

N.R. 

P^A 

N.R. 

CKHT 

Rx-A 

N.R. 

RAA 

N.R. 

TCLN 


,N.R. 

R»A 

N.R. 

NFE 

p«A 

N.R. 

RYA 

N.R. 

DELNST 

R«4 

N.R. 

RAA 

N.R. 

SKFW 

R«A 

N.R. 

P«A 

N.R. 

SKNC 

R*A 

N.R. 

RYA 

N.R. 

SKENV2 

P«A 

N.R. 

R # A 

N.P . 

SKBAL 

P«A 

N.R. 

P*A 

N.R. 

RNI 

P*A 

N.R. 

ESQI 

N.R. 

SKPRB 

■E 201 


BH 

N.R. 

SKAP 

K SI 



N.R. 

SKPCSZ 

K3 


R»A 

N.P. 

SKPES 

R*A 

N.R. 

P*A 

N.R. 

DKA 

R*A 

N.R. 

RAA 

N.R. 

SK8 

R>XA 

N.R. 

P«A 

N.R, 

SK12 

Rx-A 

N.R. 

R + A 

N.R. 

PL IN 

R*A 

N.R. 

R«A 

N.R. 

TIN2 

R*A 

N.R. 

R»A 

N.R. 

sth 

R*A 

N.R. 

R*A 

N.R. 

VIN 

R*A 

N.R. 

PYA 

N.R. 

EMPCR 

R>f-A 

N.R. 

R*A 

N.R. 

GAP6 

R*A 

N.R. 

R»A 

N.R. 

SKA 

R*A 

N.R. 

RAA 

OCOAE8 

TBCPP 

R*A 

OCCAFC 

WSBi 



■E m 

N.R. 

mi 



R~Q 

N.R. 


IHsSH 


K 9 

0CC660 

R=*A 

N.R. 

CBAPF 

Rx=4 

N.R. 


N.R. 

CCP 

Rx*A 

000680 

.R*A 

N.R. 

CPINO 

R*A 

N * R « 














115 



IKCF IX 
INDFCli 
LTHL 
PEhF 
REALJ 


M. R. 
N.R« 

000850 

N. R. 

000870 

M. P. 

N. R. 
N.R. 
N.R. 
N. P. 
N.P. 


.R. 

.R. 

.R. 


INC 
INDhLL 
INCPRF 
NOfPF 
F 1 
RHFf'R 
S* 5 
SHF/s 
SHTP 
FTFETT- 
SVTP 

sm 


T/Sf 

TPF 

VGAse 



N.P. 
N. P- 

O0‘0854 

0C08ti4 

N.F. 


N.H. 

000894 

N.R. 

"OMBT' 

N.P. 

N.K. 


N.R. 

N-R. 

r^. R. 

N.'ft. 

N.R. 

N.R. 


NVFU 

N.R. 

N.R. 


N.R. 

N.R. 

N.R. 


N.R. 

N.R. 

N.R. 


0009D4 


P4G£ CO 


CPPRO 

R*4 

N.R. 

CPTCT 

o >t4 

N.P. 


CV 


N.R. 

C)? 


N.K. 


DELRrH 

KQfl 

N.R. 

DELTA 

R*4 

0006C0 


ELC 


N.R. 

ELhT 

R*4 

N.R. 





ETVT 

R*4 

N • R • 



HQH 

N.R. 

FEM 

R“4 

N.R. 




N.R. 

FETCT 

P*4 

N.R. 




— RTin 

FFwT 


imr: 


ETAP4 

WSM 

N.R. 

GAMDH 

R*4 

N.R. 


H 

B9 

N.R. 

iCRUS 

1*4 

N.R. 



— 

K7KZ 



K • K • 


INDQPT 

1*4 

N.R. 

INDCSW 

1*4 

N.R. 


INDRDM 

1*4 

N.R. 

IPRINT 

1*4 

N.R. 


NOXPO 

1*4 

O'OCS'SB 

CTvTE 

R*4 

N.K, 


Q 

R*4 

N.R. 

PHO 

R*4 

N.R. 


R 

R*4 

N.R. 

PN 

R*4 

N.P. 


SA6 


or: 

TSl 

' k*4 

fTTRI 


SHPR 

mSm 

00C890 

ShT 

R*4 

N.P.^ 


SIGMA 

■n 

N.R. 

SSIGMA 

R*4 

N.P. 




— irnr: 

SVl 

R*4 

NTir: 


sw 

P*4 

N.R. 

SKETH 

R*4 

N.R. 


SWWET 


* R * 

S2PH0 

R«4 

0008DC 




fr^rr; 

THFTS 

P'“4 



TPROP 

R*4 

00C8F3 

TR 

R*4 

N.R. 


VGASR 

P*4 

N.R. 

VHL 

P*4 

- R * 


W6AL 

KT4— 

N.K. 



~N. H. 


WEP 

R#4 

N.R. 

NES 

R*4 

N.R. 


WFR 

R*4 

N.R. 

WFS 

R*4 

N.R. 


wHi: 


^ « H * 

EiH 




WPAYL 


N.R. 

tftW 

■J3 



WPH 

HTSI 

N.R. 


■SI 



vjfsTr 

RT2f~ 

N.R. 

WRC 

Kiiiiai 

N.K* 


WSCA 

R*4 

N.R. 

>ST 

R*4 

N.R. 


WN 

R#4 

N « R • 

WPAYUO 


N.R. 


xuaLS" 

— rTV 

N.R. 

JTCB 

R*4 

N.R. 


XLR 

P*4 

N.R. 

XLW 

R«4 

N.R. 


dmr 

R*4 

0CC9C8 

SIGMR 

R*4 

N.R. 









LABEL 

14 

ACER 

0CC4A6 

LABEL 

15 

ADDR 

CCC4DE 

LABEL 

23 

ADOR 

OC0534 

LABEL 

16 

ADOR 

000560 

PAGE 008 

22 

CCC59S 

1'3 

CC05AE NR 

27 

0005F6 

11 

000610. 


5 

CCC66C 

25 

CCC694 

230 

CC06EC 

231 

000738 


21 

ccceic NR 

20 

CCC664 

215 

0C068C 

6 

0008B8 



’?CPT[OiNS IN EFFECT# N‘AME= M A I N ,CP T=C2 , L I ^ ECN T = 5<1 , S IZE = 00 COK , 


#CPTlONS IN EFFECT# SOURCE , E fiCC IC , NCL I S T , hCDE CK, LQAD,MAP , NOED IT , ID .NOXREF 

^STATISTICS* SOURCE STATEPENTS = ICC tFFCGRAM SIZE = 2268 


tSTATI STICS* NO CIAGNCSTICS GENERATED 
^***** END OF CCPFILATICN ****** 


95K BYTES OF CORE NOT USED 




L.LI 


LEVEL 

21,. 7 I 

JAN 73 

) 


OS/360 FORTRAN H 



DATE 

75.127/20.12. 


cc 

HP I LErt 

OPTIONS - 

MAhE= MAIN,I 

DPT=02,LINECNT=54, SI2E= 

OOOOK, 








SOURCE, E8CD IC, NOLI ST, NOOECK, LOAD, MAP , NOEDIT, ID 

i.NOXREP 



ISN 

0002 


SUBROUTINE PRFRM 





OOCIOOOO 




MEMBER 

NAME B81PRFRM 





DC C20000 




C 

PAGE 1 

INPUT LOG 

0001 THRU 

0050 



00C3000O 


ISN 

0003 


COMMON 

OPTINO 

,HUL IND 

,DYLIND 

, DRGIND 

,OSWIND 

,OOC40000 





IFIXIND 

,ROMIN0 

,PRP IND 

,ETAINO 

, WO 

,XLSWO 

,00050000 





2XLRLA 

,VG80VH 

,XLGD 

,HMAXD 

, RhORHO 

, VMD 

,CCC600CO 





StMLF 

,CK1 

,OELWF 

,CKFF 

, VOIVE 

,HOC 

,00070000 





4ROO 

,TDO 

,GAPH5) 

,SGTIN0U2) 

, ELHLOA 

,ELVLOA, 

,00080000 





5GAP2I6) 






C0C90000 




C 

PAGE 2 

INPUT LOC 

0051 THRU 

0100 



CCICOOCO 


ISN 

0 004 


COMMON 

AR 

fWS 

,TCR 

, TCT 

,SLM 

,00110000 





lARHT 

,TCHT 

fVBARH 

, SLMH 

, ARVT 

,TCVT 

,00120000 





2VBARV 

iSLMVT 

,ELON 

, ELDT 

,El.DaA 

,OLSWSH 

,00130000 





3DSWET 

,OLVLHL 

,OVOL 

-,C8YL0A 

» ENR 

,WVA 

, OOIAOOOO 





4t)AMl 

,DAM2 

,0MR 

,DAM3 

fCLEYE 

fTHETMR 

,00150000 





5XC 

,XMR 

,TVCMR 

, VT 

,CTS IGH 

, TVW 

,00160000 





6HES 

,TINY 

,£TAP2 

,ETAP4N 

,TB£M5(5) 

,TB8AP4{5) 

,00170000 





7GAP3 






00180000 




C 

PAGE 3 

INPUT LOC 

0101 THRU 140 



OC190000 


ISN 

0005 


COMMON 

, DAM4 

,ENP 

,ETAT 

,hC 

• VC 

,00200000 





lATMIY 

,COVT 

,CDHT 

,0AM5 

, DLTAFE 

,FEDRAG 

,00210000 





2fcXPDRG 

,CCC 

.CLALPH 

,CKVT 

,CKHT 

,CKF 

,00220000 





3CKW 

.RELI 

,TCLN 

, TBCLH3) 

, TBCOWI ( 8) 

,GAP4(4) 

00230000 




C 

PAGE 4 

INPUT LOC 141 THRU 200 

WEIGHT DATA 



00240000 


ISN 

0006 


COflMUN 

WFE 

iWFUL 

,OELWFC 

, DELWP 

tOELWST 

,00250000 





ISKCC 

, S KRC 

,SKSC 

, SKFW 

, SKTM 

,SKRCA 

,00260000 





2SKSCA 

,SKMC 

,SKAC 

,SKHL 

, SKENVl 

,SKENV2 

,00270000 





3SKGB1 

,SKGB2 

,SKBLNT 

tSKBAL 

, SKLG 

tSKWW 

,00280000 





4ELF 

,RMI 

fSKWP 

,SKHT 

, SKVT 

iSKPRB 

,00290000 





5SKR6F 

,SKPH 

,SKAMO 

,$KAR 

, SKP4 

,SKVTAR 

, 00300000 

. 




6SKPDS 

.SKPDSZ 

,SKT 

fSKFS 

, SKPEI 

, SKPES 

,00310000 





7SK1 

, ,SK2 

,DK3 

,0K4 

, SK5 

,SK6 

,00320000 





3SK7 

,SK8 

,SK9 

tSKlO 

, SKll 

,SK12 

, CO 330000 

w& 




9SK13 

,SK14 

,SK15 

,PLIN 

,GAP5(3) 


00340000 




C 

PAGE 5 

INPUT LOC 201 THRU 300 




00350000 

-M0 

ISN 

0 007 


COMMON 

TOUNOISJ 

,XTGTA2I5J 

,TIN2<5) 

,TWTW(5) 

,PFET2(5) 

,00360000 





10ELTHI5) tSTHIS) 

,CRS INDI5) 

,XTGTA4I5) 

,TIN4(5) 

.VINI5) 

, CC370000 





2DELRI5) 

,RMAXI5» 

,DELFCR<5) 

,ENPCR15) 

,CELWPL(5) 

,STPW(5) 

,00380000 





3HFINI5) 

,GAP6( lOJ 





00390000 




C 

PAGE 6 

INPUT LOC 301 THRU 400 




C04COOOO 


ISN 

0008 


COMMON 

CYCPRL 

,FF 

,SK3 

, SK4 

,TBH1<5) 

, OOAIOOOO 





ITBTOISJ 

,T8H2(5) 

,T0CRP(5J 

,TBSFC(3) 

, TBP0WI8) 

,GAP7(60) 

00420000 

^ % 



c 

WORKING 

COMMON 





00430000 


ISN 

0009 


COMMON 

ALFOES, ALFDL 

,ALFR,AMU, 




00440000 





1 

6HPA , BriPR , SHPSU P , BHT , 6LP , BR , BS , BVT , 



00450000 





2 CBARF, 

CBARHT,CBARVT 

,C&ARW,CCP, 

CCT,CDV,CLW, 

CPINDfCPNUC 

l,CPPAR, CPPRD00460000 





3.CPT0T, 

CRT,CTP,CV,CX 

,CLDES,C8, 




00470000 





4 DELRTH 

,DELTA,DH, DSPLHT, ELC , E LHT , ELN ,EL QA , ELT , ELVT , £N , £T AP , 

00480000 





5 FEHtFEHI ,FEHL,FEHT, 

FET,FETOT,FEVT,FEW,FEWH 

l,FEWI,FM,FP 

ETAP4 

00490000 


ISN 

0010 . 


COMMON 

GAMDli(3,15) , 

GLF.GMDDU 16) ,H, 



00500000 






7 ICHUS, INUCRU, INDDKG.INDDYL, INOETA, INDF I X , I N CHUL , I NDCF T , I NCOS W , 

00510000 



e INOPUrti INDPRP, INOllUM, IPKINT 

00520000 

ISN. 

0011 

COMMON LTHL,N0CPP,N0XPJ,nWE»P6HF,PI ,y,RHO,REALJ, RHPMR,R,RN 

00530000 

ISN 

0012 , 

COMMON SA,SA5.SA6.SA7fSFC,SHPA-, SHPR,SHT,SHTE,SHTW,SIGMA,SSIGMA,ST 

,00540000 



ISTHE'TA, STMAX ,SVT, SVTE , S VTW , SW ,SWETH , SWEXP , SH T T, SWWET,S2RH0 

00550000 

ISN 

0013 

■COMMON T^TAF , TC BAH, THETA, TMAX ,THP , T PROP ,TR ,U LF, VGAS 6, VGAS R , VHL , V 

■ 00560000 

ISN 

0014 

COMMON W,WBAL,WBALNT,WCC,WE,WEP,’rtES,WF,WFC,V<FR, WFS, hrW, 

00570000 



1 WGSB,WriL,V<HT,WLG,W;'!C,WPAYL,WPC,WPDS,WPEI,WPH,»JPRa,hPRG,WPRP,WPSTROC560000 



2, WRC,WkCA,KSC,WSCA, WST,WTM,WVT,WW,WPAYLO,WAC ,W£NV 

00590000 

ISN 

0015 

COMMON XLALB.XLB, XLBH, XLHL , XLR, XLW , YLS2 ,TOVW 

00600000 

ISN 

0016 

COMMON OMR,SIGMR,AF,BHPP,SEE 

00600001 

ISN 

0017 

IF( IPRINT.EQ.I) WRITE(6,100i) 

00610000 

ISN 

0019 

1001 FORMATI/lHl, 15X,24HMISSION PERFORMANCE DATA/) 

00620000 

ISN 

0020 

W = WO 

00630000 

ISN 

0021 

WF = 0. 

00640000 

ISN 

0022 

ST = TOO 

00650000 

ISN 

0023 

R = ROD 

C0660000 

ISN 

0024 

H = HOO 

00670000 

ISN 

002 5 

WPAYLG = WPAYL 

C0680000 

ISN 

0 026 

ITOHL = 0 

00690000 

ISN 

0027 

ICRUS = 0 

00700000 

ISN 

0023 

ICHGPL= 0 

00710000 

ISN 

0029 

ITRALT= 0 

00720000 

ISN 

0030 

I = 1 

CC730000 

ISN 

0031 

NEXT=0. 

00730500 

ISN 

0032 

INDSGT = SGT INO{ I) +0.1 

00740000 

laN 

0033 

100 INDEX = INDSGT 

C0750000 

ISN 

0034' „ 

GO TO ( 1,2,1 ,4,1 ,1, 1,8,9) , INDEX 

0C7600'00 

ISN 

0035 • 

IFII.EQ.DGO TO 20 

00770000 

ISN 

0037 

WFSR= WF 

CC780000 

ISN 

0033 

WFR = CKl WF + DELl-IF 

00790000 

ISN 

0039 

WFRE= WFR - WF 

ooeooooo 

ISN 

0040 

IF( IPRINT.EQ.1)WP.ITE(6,1002) WFSR,WFRE, WFR 

oceioooo 

ISN 

0042 

1002 FORMAT(//15X,23HMISS10N FUEL REQUIRED =,F9.0 

00820000 



1 /15X.23HRESERVE FUEL REQUIRED =,F9.0 

OC830000 



2 /1SX,23HT0TAL FUEL REQUIRED ’=,F9.0) 

00840000 

ISN 

0043 

IFl IPRINT.NE.l) GO TO 300 

00840100 

ISN 

0045 

W = WO 

0CE50000 

ISN 

004c< 

WF = 0. 

00660000 

ISN 

0047 

ST = TOO 

00870000 

ISN 

0048 

R = ROO 

0CS30000 

ISN 

0 049 

H = HOO 

00890000 

ISN 

0050 

IF( (IPRINT.EQ.I) .AND. (INUEX.EQ.O) )WRITE(6,1003> 

00900000 

ISN 

0052 

1003 FORMAT! IH1,15X,17HSEC0NDARY MISSION/) 

00910000 

ISN 

0053 

IF( 1 IPRINT.EQ.D.AND. (INDEX. EQ. 100) ) WRITE(6 , 1004) 

00920000 

ISN 

0055 

1004 F0RMAT(//15X,22HEND OF SUCCESSFUL CASE) 

CC93C)000 

ISN 

0056 

IFdNDEX.Ew.OGO TO 201 

C0940000 

ISN 

0058 

GO TO 300 

00950000 

ISN 

0059 

1 WRITE(6,1005 ) 

C0960000 

ISN 

0 060 

1005 F0RMAT(//15X ,80HTAXI .CLIMB, DESCEND, LOITER, AND CHGFJEL SUBRQU T 00970000 



IINES ARE NOT AVAILABLE *=ii***<.) . 

C0980000 

ISN 

0061 

NEXT = 1 

C0990000 
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ISN 00o2 
ISN 00o3 
iSN OCo-t 
ISN 0065 
ISN 0066 
ISN 0067 
ISN 00o3 
ISN 0069 
ISN 0070 
ISN 0071 
ISN 0072 
ISN 0073 
ISN 0074 
ISN 0075 
ISM 0076 
ISN 0077 
ISN 0078 
ISN OC/9 
ISN OOOd 
ISN 0001 
ISN 0032 
ISN 0033 
ISN 0084 
ISN 0086 
ISN- 0087 
ISN 0088 
ISN 0039 
ISN 0090 


GO TO 200 

20 WRI TE(6 , 1006) 

1006 FORMAT ( 1 5Xt44H'i'<'’«' FIRST SEGMENT IS ZERO DR 100 
NEXT = 1 
GO TO 200 

2 ITOHL = [TOHL 1 
CALL TCIHLUTOHL) 

GO TO 200 

4 ICRUS = ICRUS + 1 

INDCkU = CRSIND(ICRUS) * O.l 
IFdNDCKU - 2)ll»12»i3 

11 CALL CrtUSlUCRUS) 

GO TO 200 

12 CALL CRUS2UCRUS) 

GO TO 200 

13 CALL CRUSSdCRUSi 
GO TO 200 

3 ICHGPL = ICHGPL 1 
CALL ChGPLdCHGPL J 
GO TO 200 

9 ITRALT = ITRALT * 1 
CALL TRALTdTRALTJ 

200 IF( NEXT.NE.O )G0 TO 300 

201 I = I I 

INDSGT = SGTINDIIJ 0.1 
GO TO 100 

300 RETURN 
END 




OICOOOOO 
01010000 
01020000 
01C30000 
01040000 
01C50000 
C1C60000 
01070000 
01C80000 
01C90000 
01 100000 
Cl 110000 
01120000 
01 130000 
01 140000 
01150000 
01160000 
01170000 
01 180000 
01190000 
01200000 
01210000 
C1220000 
01230000 
01240000 
01250000 
01260000 
01270000 
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NAME 

TAG 

TYPE 

ADO. 

NAME 

TAG 

TYPE 

ADD. 

NAME 

TAG 

TYPE 

ADO. 

NAME 

TAG 

TYPE 

ADD. 

H S 

C 

R^^4 

000818 

I 

SF 


I«4 

000220 

0 

C 

R*4 

N.R. 

R 

S 

c 

R-4 

000673 

T 

C 

R>!=4 

N. R. 

V 


C 

R*4 

N.R. 

W 

S C 

R«4 

0C0914 

AF 


c 

RS>4 

N.R. 

AR 

c 

K=»4 

N.R. 

BR 


c 

R*4 

N.R. 

6S 

■C 

R^4 

N.R. 

C3 


c 

R*4 

N.R. 

CV 

c 

R*4 

N.R. 

CX 


c 

R’l'A 

N.R. 

OH 

C 

R-4 

N.R. 

EN 


c 

R#4 

N.R. 

FF 

c 


N.R. 

FH 


c 

R*4 

N.R. 

FP 

C 

R«4 

N.R. 

HC 


c 

R*4 

N.R. 

PI 

c 

R«4 

N.R. 

RN 


c 

R«4 

N.R. 

SA 

C 

R-4 

N.R, 

ST 

S 

c 

R^'4 

000860 

SW 

c 

R«^4 

N. R. 

TR 


c 

RX=4 

N.R. 

VC 

■■ . c 

R*4 

N.R. 

VT 


c 

R«-4 

N. R. 


c 

R*4 

N.R. 

WF 

SF 

c 

R*4 

000930 

wo 

F C 

R*4 

000024 

WS 


c 

P*4 

N.R. 

uw 

c 

R*=4 

N.R. 

xc 


c 

R*4 

N.R. 

AMJ 

C 

R*4 

N.R, 

BHT 


c 

R^A 

N.R, 

BLP 

c 

R*4 

N.R. 

BMR 


c 

R*4 

N.R. 

BVT 

C 

R*4 

N.R. 

CCP 


c 

R*4 

N, R. 

CCT 

c 

R«4 

N.k. 

CDC 


c 

R#4 

N.R. 

CDV 

C 

R-4 

N.R. 

CKF 


c 

P.*4 

N.R. 

CKW 

c 

R*4 

N.R. 

CKL 

F 

c 

R>!'4 

000048 

CLW 

C 

R=i:4 

N.R. 

CRT 


c 

R44 

N.R. 

CT? 

c 

R*4 

N.R. 

DK3 


c 

R=»4 

N.R. 

DK4 

C 

R*4 

N.R. 

OMR 


c 

R^“4 

N.R. 

. ELC 

c 

R=!=4 

N.R. 

ELF 


c 

R«,4 

N.R. 

ELN 

C 

R+4 

N.R. 

ELT 


c 

R#4 

N.R. 

EiNP 

'C 

R*4 

N.R. 

ENR 


c 

R=i=4 

N.R; 

FEH 

C 

R<-4 • 

N.R. 

FET 


c 

R*4 

N. R. 

FEW 

c 

R44 

N.R. 

GLF 


c 

R>'.‘4 

N.R. - 

HES 

C 

R^4 

N.R. 

HOC 

F 

c 

R*4 

0C0053 

. C',;e 

c 

R>!=4 

. N.R. 

RKO 


c 

R*4 

N.R. - 

RMI 

c 

R-'A 

N.R. 

ROO 

F 

c 

RA4 

00005C 

SA5 

c- 

ft=!'4 

N.R. 

SA6 


c 

R«;4 

N.R. 

SA7 

c 

R*4 

N.R. 

SEE 


c 

R-4 

N. R. 

SFC 

c 

R<=4 

N.R. 

SHT 


c 

R«‘4 

N.R. 

SKT 

c 

R*4 

N.R. 

SKI 


c 

R*4 

N.R. 

Si<2 

c 

R*4 

N.R. 

SK3 


c 

R*4 

N.R. 

SK4 

c 

R*4 

N.R, 

SK5 


c 

R^OA 

N.R. 

SK6 

c 


N.R, 

SK7 


c 

R«4 

N.R. 

SK3 

c 

R*4 

N.R. 

SK9 


c 

R^i'A 

N.R. 

SLM 

c 

R=!=4 

N.R. 

STH 


c 

R*4 

N.R. 

S VT 

c 

R*4 

N.R, ■ 

TAF 


c 

R-4 

N.R. 

TCR 

c 

R#4 

N. R. 

TCT 


c 

R+4 

N.R. 

TMP' 

c 

R ^4 

N.R. 

TOO 

F 

c 

RA4 

000060 

TVW 

c 

R^'4 

N.R. 

ULF 


c 

R*4 

N.R. 

VHL 

c 

R=i=4 

N.R. 

VIN 


c 

R*4 

N.R. 

VMQ 

c 

RX'4 

N.R. 

WAC 


c 

R<>4 

N.R. 

wcc 

c 

R=«=4 

N.R. 

WEP 


c 

R<=4 

N.R. 

WCS 

c 

R*4 

N.R. 

WFC 


c 

R«4 

N.R, 

WFE 

c 

R*4 

N.R. 

WFR 

SF .. 

c 

P.44 

000933 

vJFS 

c 

R*4 

N.R. 

WFfi 


c 

R*4 

N.R. 

WHL 

c 

R=!'4 

N.R. 

WHT 


c 

R^^A 

N.R. 

WLG 

c 

R*4 

N.R, 

RMC 


c 

R*4 

N.R. 

WPC 

c 

R<-4 

N.R. 

WPri 


c 

RW4 

N.R. 

■rtRC 

c 

R^4 

N.R. 

rfSC 


c 

R#4 

N.R. 

WST 

c 

R*4 

N.R, 

WTM 


c 

R*4 

N.R. 

WVA 

c 

ft^‘4 

N.R. 

WVT 


c 

R*4 

N.R. 

XLB 

c 

R^-A 

N.R. 

XLR 


c 

P*4 

N.R. 

XLW 

c 

k<=4 

N.R. 

XMR 


c 

R*4 

N.R. 

ALFR 

c 

R*4 

N.R. 

arht 


c 

R^^A 

N.R. 

ARVT 

c 

R*4 

N.R. 

BHPA 


c 

R*4 

N.R. 

BHPP 

c 

R»4 

N.R. 

BHPR 


c 

R’SA 

N.R. 

COHT 

c 

R<=4 

N.R. 

CDVT 


c 

R*4 

N.R. 

CKFF 

c 

R*4 

N.R. 

CKHT 


c 

R»4 

N.R. 

CXVT 

c 

R*4 

N.R. 

UAMl 


c 

R«4 

N.R. 

DA M2 

c 

R-4 

N.R. 

DAH3 


c 

R*4 

N. R. 

0 AM4 

c 

R*4 

N.R, 

DAMS 


c 

R#4 

N.R. 

DELR. 

c 

R*4 

N.R. 

DVOL 


c- 

R*4 

N.R. 

ELUN 

c 

K*4 

N.R. 

EL OT 


c 

R«4 

N.R. 

ELHT 

c 

R>T4 

N.R, 

ELOA 


c 

R*4 

N.R. 

ELVT 

c 

R«4 

N.R. 

EMLF 


c 

R’i'A 

N.R, 

ET AP 

c 

R«4 

N.R. 

ETAT 


c 

R=>4 

N. R. 

FSHI 

c 

R^4 

N.R. 

FEHL 


c 

R*4 

N.R. 

FEhT 

c 

R*^4 

N.R. 

FEVT 


c 

R*4 

N.R. 

FEh'H 

c 

R«4 

N.R. 

FSwI 


c 

R*4 

N.R. 

GAPl 

c 

R*4 

N.R. 

GAP2 


c 

R*4 

N. R. 

GAP3 

c 

R«4 

N.R, 

GAP4 


c 

k«4 

N.R, 

GAPS 

c 

R^4 

N.R. 

GAP5 


c 

R*4 

N.R. 

GAP? 

c 

R='4 

N.R. 

HF IN 


c 

R*i4 

N.R. 

LTHL 

c 

1*4 

N.R. 

NEXT 

S 


1*4 

000224 

PEHF 

c 

R--S4 

N.R. 

PLIN 


c 

R*4 

N.R. 

RELI 

c 

R#4 

N.R. 

RMAX 


c 

RftA 

N. R. 

ShPA 

c 

R#4 

N.R. 

SHPR 


c 

R#4 

N.R. 

SHTE 

c 

R44 

N.R. 

SHT'W 


c 

R*4 

N.R. 

SKAC 

c 

R*4 

N.R. 

SKAR 


c 

R’(=4 

N.R. 

SKCC 

c 

R’i'A 

N.R. 

SKFS 


c 

R*4 

N.R. 

S Kr irj 

c 

R-:^4 

N.R, 

SXHL 


c 

R*4 

N.R. 

SKHT 

c 

R#4 

N.R. 

SKLG 


c 

R>!=4 

M. K. 

SKl'C 

c 

K*4 

N.R. 

SKPA 


c 

R=!'4 

N.R. 

SKPH 

c 

R«4 

N.R. 

SKRC 


c 

RS‘4 

N.R. 

SRSC 

c 

R#4 

N.R. 

SKTM 


c 

R«4 

N.R. 

SKVT 

c 

R'CA 

N.R. 

SKWP 


c 

R#4 

N.R. 

SKU/f 

c 

R-4 

N.R. 

SKIO 


c 

R=>4 

N.R. 

SKll 

c 

R*4 

N.R. 

SK12 


c 

Rs=4 

N.R. 

SK13 

c 

R<-4 

N.R. 

SK14 


c 

R#4 

N.R. 

SK 15 

c 

R=>4 

N.R. 

SLMH 


c 

R*4 

N.R. 

STPW 

c 

R«=4 

N.R. 

SVTE 


c 

R*4 

N.R. 

SVTW 

c 

R44 

N.R. 

SWTT 


r. 

P.’i'A 

N. R. 
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I 

P-* 

to 

H 


TBHl 


C 

R*4 

N.R. 

T3H2 


c 

R*4 

N.R. 

TBTO 

C 

R*4 

N.R. 

TCHT 


C 

R*4 

N. R. 

TCLN 


c 

R#4 

N'.R. 

TCVT 


c 

K*4 

N. R. 

TINY 

c 

R*4 

N.R. 

TIN2 


C 

R*4 

N.R. 

T-I i\14 


c 

R*4 

W.R. 

TMAX 


c 

R*4 

N.R. 

TOHL SF 

XF 

R*4 

CCOOOO 

TOVW 


c 

R*4 

N.R. 

TWTW 


c 

R»!'4 

N.R. 

W3AL 


c 

R*4 

N.K. 

WENV 

C 

R*4 

N.R. 

WFRE 

SP.. 


R*4 

000228 

WFSK 

SF 


R-!=4 

00022C 

WFUL 


c 

■ R*4 

N.R. 

HGSB 

C 

R*4 

N.R. 

HPDS 


c 

R*4 

N.R.. 

wPCI 


c 

R’XA 

N.R. 

WPRB 


c 

R*4 

N.R. 

WPPG 

C 

R‘*4 

N.R. 

NPRP 


c 

R*4 

N.R. 

WRCA 


c 

K*4 

N.R. 

WSCA 


c 

R*4 

N.R. 

XLbH 

C 

R*4 

N.R. 

XLGO 


c 

R*4 

N.R. 

XLHL 


c 

R#4 

N.R. 

YLS2 


c 

R*4 

N.R. 

ALFDL 

C 

R*4 

' N.R. 

iTMIY 


c 

R*4 

N.R. 

CBARF’ 


c 

R44 

Ai.R. 

CBARW 


c 

R*4 

N.R. 

CHGPL SF 

XF 

R*4 

OCOOOO 

:ldes 


c 

R*4 

N« R, 

CLEYE 


c 

H<=4 

N.K. 

CPINO 


c 

R*4 

N.R. 

CPNUO 

C 

R*4 

' N.R. 

OPPAR 


c 

R*4 

N.R. 

CPPRO 



R44 

N.R. 

CPTOT 


c 

R*4 

N.R. 

CRUSi SF 

XF 

R*4 

CCOOOO 

CRUS2 


XF 

R*4 

000000 

CRUS 3 

SF 

XF 


COOOOO 

DELTA 


c 

R*4 

N.R. 

DELTH 

C 

R*4 

N.R. 

DcLWF 


c 

R*4 

00004C 

DELWP 


C 

R>X4 

N.R. 

DSWET 


c’ 

R*4 

N.R. 

ELDCA 

C 

R*4 

N.R. 

ENPCR 


c 

R*4 

N.R. 

ETAP2 


c 

R»4 

N.R. 

ETAP4 


C 

R*4 

N.R. 

FETQT 

C 

R*4 

N.R. 

GMOOl 


c 

R*4 

N.R. 

HMAXl) 


c 

R*4 

N.R. 

I CRUS 

SFA 

C ‘ 

[*4 

OOOBIC 

index SF 


1*4 

OC023O 

I TOHL 

SFA 


1*4 

000234 

NOCPP 


c 

1*4 

N.R. 

NUXPJ 


c 

. r*4 

N.R. ■ 

PFET2 

C 

R*4 

N.R. 

PRFRM 



, R*4 

000233 

REAU 


c 

R*4 

N.R. 

RHP MR 


c 

R*4 

N.R. 

SIGMA 

C 

R*4 

■ N.R. 

SIGKR 


c’ 

P.*4 

N.R. 

SKAMO 


c 

R*4 

N.R, 

SKBAL 


c 

R*4 

N.R. 

SKG81 

c 

R*4 

N.R. 

SKG92 


c ■ 

P.*4 

N.K. 

S.<PUS 


c 

R*4 

N.R. 

SKPEI 


c 

R*4 

N.R. 

SKPES 

c 

R*4 

N.R. 

SKPRB 


c 

P.*4 

N.P.. 

SKRBF 


c 

R*4 

N.R. 

SKRCA 


c 

R*4 

N.R. 

SKSCA 

c 

R*4 

N.R. 

SLHVT 


c 

R*4 

N. R. 

ST MAX' 


c 

R*4 

N.R, 

SRETH 


c 

R*4 

N.R. 

SUEXP 

c 

R*4 

N.R. 

SWWET 


c 

R*4 

N.R. 

S2RH0 


c 

R*4 

N. R. 

TBCUl 


c 

R*4 

N.R. 

T3CRP 

c 

R«4 

N.R. 

TBEH5 


c . 

R*4 

N.R. 

TSPC'-’.J 


c 

R--4 

N.R. 

TBSFC 


c 

R*4 

N.R. 

TC6AR 

c 

R*4 

N.R. 

■ THETA 


c 

R*4 

N.R, 

rPRuP 


c 

R*4 

N.R. . 

TRACT 

SF 

XF 

R *4 

000000 

TVCMR 

c 

R*4 

N.R. 

V.BARH 


c 

R*4 

N.R. 

VC A-’.V 


c 

R*4 

N.R. 

VUI V£ 


c 

R*4 

N . R. 

VGA SB 

c 

R*‘t 

N.R. 

VGA SR 


c 

R*4 

N.R. 

UP AYL 

F 

c 

k *4 

000958 

wPSTR 


c 

R*4 

N.R. 

XLALB 

c 

R*4 

N.R. 

XLBrt'O 


c 

R*4 

N.R. 

XLRLA 


c 

R*4 

N.R. 

ALFUES 


c 

R*4 

N.R. 

BHPSUP 

c 

R*4 

N.R. 

CBARHT 


c 

R*4 

N.K. 

C6ARVT 


c 

R*4 

N.R. 

CBYLOA 


c 

R*4 

N.R. 

CLALPH 

c 

R*4 

N.R. 

CRSINO 


c 

R*4 

0003AC 

CTS iC-H 


c 

R*A 

N.R. 

CYCPRL 


c 

R*4 

N.K. 

OELFCR 

c 

R*4 

N.R. 

DELRTH 


c 

R*4 

N.R. 

UtLwfC 


c 

R«4 

N.R. 

DELWPL 


c 

R*4 

N.R. 

DELWST 

c 

K*4 

N.R. 

DLSWSH 


c 

R*4 

N.R, 

OLTArE 


c 

R*4 

N.R. 

. DLVLHL 


c 

R*4 

N.R. 

ORGIND 

c 

R*4 

N.R. 

OSPLMT 


c 

R*4 

N.R. 

OYL IMO 


c 

R*4 

N.R. 

ELHLOA 


c 

R*4 

‘N.R. 

ELVLOA 

c 

R,*4 

N.R. 

ETAINO 


c 

R*4 

N.R. 

ETAP4N 


c 

R*4 

N.R. 

EXPJRG 


c 

R*4 

N.R. 

FEORAG 

c 

R*4 

N.R. 

FIXING 


c 

R*4 

N.R. 

GAMDl 1 


c 

R*4 

N.R. 

HULIND 


c 

R*4 

N.R. 

. I BCO K# F 

XF 

1*4 

000000 

I CHGPL 

SFA 


1*4 

00023C 

INUCRU 

S 

c 

1*4 

000820 

INDORG 


c 

1*4 

N.R. 

INDD YL 

c 

1*4 

N.R. 

INDETA 


c 

1*4 

N.K. 

IKDFIX 


c 

1*4 

N.R. 

INDHUL 


c 

1*4 

N.R. 

INDOPT 

c 

1*4 

N.R. 

INDOSW 


c 

1*4 

N.R. 

INOPC'W 


c 

1*4 

N.K. 

INOPRP 


c 

1*4 

N.R. 

INDRDM 

c 

1*4 

N.R. 

INCSGT 

sfI 


1*4 

000240 

IPRI«T 


c 

1*4 

00084C 

ITRALT 

SFA 


1*4 

000244 

OPTIND 

c 

R*4 

N.R. 

OSkiNO 


' c 

R*4 

N.R. 

PRP IjNO 


c 

k*4 

N.R. 

RDMINO 


c 

R*4 

N.R. 

RHORhO 

c 

R*4 

N.R. 

SGTIND 

F 

c 

R*4 

000078 

SKBLM 


c 

K*4 

N.R. 

SKENVl 


c 

R*4 

N.R. 

SKENV2 

c 

R*4 

N.R. 

SKPDSZ 


c 

R*4 

N.R. 

SKVTAK 


c 

R*4 

N. R. 

SSIGMA 


c 

R*4 

N.R. 

STHETA 

c 

■ R*4 

N.R. 

T6CDWI 


c 

R*4 

N. R. 

TP3AP4 


c 

R*4 

N.R. 

THETMR 


c 

k*4 

N.R. 

TOLI ND 

c 

R*4 

N.R. 

VG80VH 


c 

R*4 

N.R. 

WBALMT 


c 

R*4 

N.R. 

WPAYLO 

S 

c 

R*4 

00099C 

XTGTA2 

c 

R*4 

N.R. 

XTGTA4 


c 

R*4 

N.R. 





***** 

COMMON INFORMATION ***** 





NAME OF 

COMMON 

BLOCK * 

* SIZE 

OF BLOCK 00090C HEXADECIMAL 

BYTES 




VAR. NAME 
OPTIND 

TYPE 

R*4 

REL. AODR. 

N.R. 

VAR, NAME 
HULIND 

TYPE REL. AODR, VAR. NAME 

R*4 N.R. OYLIND 

TYPE 

R#4 

REL. AODR. 

N.R. 

VAR. NAME 
DRGIND 

TYPE REL. ADDR. 
R*4 N.R., 
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OSW [MD 


N.K. 

FIXINO 

R*4 

N.R. 

RCMINO 

R=^4 

N.R . 

PR PI NO 

R#4 

M.R. 

ETAII^D 

R*4 

N.R. 

WO 

R*4 

000024 

XLBWO 

R4^4 

N.R. 

XLRLA 

R*4 

N.R. 

VG80VH 

R*4 

N.R. 

XLGD 

R«4 

N.R. 

HMAXD 

R‘S‘4 

N.R. 

RHORHO 

R*4 

N.R. 

VMO 

R«4 

N.R. 

EMLF 

R"!'4 

N.R. 

CKl 

R<<4 

000048 

OELWF 

R*4 

00004C 

CKFF 

R#4 

N.R. 

VDIVE 

R#4 

N.R. 

HOO 

R«‘4 

000058 

ROD 

R’»4 

"'oooosc 

TOO 

R<=4 

000060 

• GAPl 

R«4 

N.R. 

SGTIND 

R*4 ■ 

0D0078 

ELHLOA 

R*4 

N.R. 

ELVLUA 

R*4 

N.R. 

GAP2 

R#4 

N.R. 

AR 

R*4 

N.R. 

WS 

R=!'4 

N. R. 

TCR 

R^4 

N.R. 

TCT 

R*4 

N.R, 

SLM 

R*4 

N.R. 

ARHT 

R*4 

N.R, 

TCHT 

R*4 

N.R. 

VBARH 

R<=4 

N.R. 

SLKH 

,R*4 

N.R. 

ARVT 

R*4 

N.R. 

TCVT 

R*4 

N.R. 

V0ARV 

R*4 

N.R. 

SUM VT 

R*4 

N.R. 

ELDN 

R*4, 

N.R. 

ELDT 

K*4 

N.R. 

ELDUA 

R^<4 

N.R. 

DLSWSH 

R*4 

N.R. 

DSWET 

R*4 

N.R. 

DLVLHL 

R<-4 

N.R. 

DVOL 

R*4 

N.R. 

, C0YLCA 

R#4 

N.R. 

ENR 

R>!‘4 

N.R, 

WVA 

R*4 

N.R. 

DAMl 

R*4 

N.R. 

DAM2 

R#4 

N.R. 

BMR 

R*4 

N.R. 

DAI13 

R>!=4 

N.R. 

CLEYE 

R*4 

N.R. 

THETMR 

R*4 

N.R. 

XC 

R«4 

N.R. 

XHR 

R*4 

N.R. 

TVCMR 

R*4 

N.R. 

VT 

Rf'4 

N.R. 

CTSIGH 

R*4 

N.R. 

TVW 


N.R, 

HES 

R*4 

N.R. 

■ TINY 

R*4 

N.R, 

ETAP2 

R*4 

N.R. 

ETAP4N 

R*4 

N.R. 

T6EM5 

R*4 

N.R. 

TB8AP4 

Rf4 

N.R. 

GAP3 

R«4 

N.R. 

DAt-i^ 

R’C'4 

N.R. 

ENP 

R#4 

N.R. 

ET AT 

R*4 

N.R. 

HC 

R*4 

N.R. 

VC 

l<«4 

N.R. 

ATMIY 

R*4 

N.R. 

CDVT 

R>1<4 

N.R. 

COHT 

R#4 

N.R. 

DAMS 

R«4 

N.R. 

OLTAFE 

R*4 

N.R. 

FEDRAG 

R*4 

N.R. 

EXPDRG 

R*4 

N.R. 

cue 

R*4 

N.R. 

CLALPH 

R*4 

N.R. 

CKVT 

R*4 

N.R. 

CKHT 

R*4 

N.R. 

CKF 

R#4 

N.R. 

CKW 

R*4 

N.R. 

RELI 

R#4 

N.R. 

TCLN 

R*4 

N.R. 

TSCLl 

R*4 

N.R. 

T3CDW1 

R*4 

N.R. 

GAP4 

R*4 

N.R. 

WFE 

R=K4 

N.R. 

tt’FUU 

K’«<4 

N.R. 

DELUFC 

R*4 

N.R. 

OELV.P 

R>!‘4 

N.R. 

OELWST 

R*4 

N.R. 

SK.ee 

R<“4 

N.R. 

SKRC 

R*=4 

N.R. 

SK SC 

R*4 

N.R. 

SKFW 

R*4 

N.R. 

SKTH 

R*=4 

N.R. 

SKRCA 

R#4 

N.R. 

SKSCA 

R*4 

N.R. 

SKMC 

R=«4 

N.R. 

SKAC 

K*4 

N.K. 

SKHL 

R*4 

N.R. 

SKENVI 

R#4 

N.R. 

SKENV2 

R*4 

N.R. 

SKGJU 

R*4 

N.R. 

SKGB2 

R*4 

N.R. 

SKBLNT 

R*4 

N.R. 

SKBAL 

R*4 

N.R. 

S^LG 

R!)!4 

N.R. 

SKWW 

R«4 

N.R. 

ELF 

R#4 

N.R. 

RMI 

R*4 

N.R. 

skkp 

R«=4 

N.R. 

SKHT 

■ R>!'4 

N.R. 

SKVT 

R*4 

N.R. 

SKPR8 

R«4 

N.R. 

SKRiiF 

R«4 

N.R. 

SKPH 

R*4 

N.R. 

SKAND 

R'«=4 

N.R. 

SKAR 

R#4 

N.R. 

SK.“A 

K<=4 

N.R. 

SKVTAR 

R<'4 

N.R. 

SKPOS 

R*4 

N.R. 

SKPOSZ 

R*4 

N.R. 

SKT 

R*4 

N.R. 

SKFS 

R*4 

N.R. 

SKPEI 

R*4 

N.R. 

SKPES 

R*4 

N.R. 

SKI 

R#4 

N.R. 

SK2 

R«'4 

N.R, 

DK3 

R«4 

N.R. 

DK4 

R*4 

N.R. 

SKS 

K«4 

N.R. 

SK6 

R’i‘4 

N.R. 

SKT 

R«4 

N.R. 

SK8 

R*4 

N.R. 

SK9 

k«4 

N.R. 

SKIO 

R«4 

N.R. 

SKll 

R«4 

N.R. 

SK12 

R*4 

N.R. 

SK13 

R*K4 

N.R. 

SK14 

R*4 

N.R. 

SK 15 

R*4 

N.R. 

PLIN 

R*4 

N.R. 

GAPS 

R>^4 

N.R. 

TOLINO 

R*4 

N.K. 

XTGTA2 

R«4 

N.R. 

TIN2 

R*4 

N.R. 

TWTW 

R#4 

N.R. 

PFET2 

R=<-4 

N.R. 

OELTH 

R«4 

N.R, 

STH 

R*4 

N.R. 

CRSIND 

R*4 

0003AC 

XTGTA4 

R*4 

N.R, 

T1N4 

R=»4 

N.R. 

VIN 

R*4 

N.R. 

DELR 

R*4 

N.R. 

RKAX 

R<'4 

N.R. 

OELFCR 

R^A 

N.R. 

ENPCR 

R«4 

N.R. 

UELhPL 

R"C4 

N.R. 

STPW 

R>«‘4 

N.R. 

HF IN 

Rt‘4 

N.R. 

GAP6 

R«=4 

N.R. 

CYCPKL 

R«4 

N.R. 

FF 

R*4 

N.R. 

SK3 

R*4 

N.R. 

SK4 

R*4 

N.R. 

TGHl 

K<=4 

N.R. 

TBTO 

R*4 

N.R. 

TBH2 

R*4 

N.R. 

TBCRP 

R#4 

N.R. 

TBSFC 

R>4:4 

N.R. 

TBPOW 

R*4 

N.R. 

GAP? 

R*4 

N.R. 

ALFDES 

R*4 

N.R. 

ALFOL 

8*4 

N.R. 

ALFR 

R*4 

N.K. 

AMU 

R*4 

N.R. 

BHPA 

R*4 

N.R. 

ShPR 

R#4 

N.R. 

8HPSUP 

R*4 

N.R. 

BhT 

R#4 

N.R. 

BLP 

R*4 

N.R. 

CR 

R>!<4 

N.R. 

BS 

R*4 

N.R. 

8VT 

R>i-4 

N.R. 

CBAKF 

R*4 

N.R. 

CBARHT 

R<=4 

N.R. 

CBARVT 

R«4 

N.R. 

CBARW 

R>!=4 

N.R. 

CCP 

R*4 

N. R. 

CCT 

R«4 

N.R. 

CDV 

R=»4 

N.R. 

CLW 

R«4 

N.R. 

CPINO 

RX>4 

N.R. 

CPNUO 

R*4 

N.R. 

CPPAR 

R*4 

N.R. 

CPPRO 

R*4 

N.R. 

CPTOT 

R*4 

N.R. 

CRT 

K«4 

N.R. 

CTP 

R*4 

N.R. 

CV 

R*4 

N.R. 

ex 

R*4 

N.R. 
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CLDES 


N.R, 

CB 

R*4 

N.R. 

OH 

k*4 

N,k. 

OSPLMT 

Ri=4 

N.R. 

ELN , 

R=t‘4 

N.R. 

ELOA 

R1=4 

N.R. 

EN 

R*4 

N.R. 

ETAP 

Ri=4 

N.R. 

FEHL 

RS=4 

N.R. 

FEHT 

R*4 

N.R. 

FEVT 

R*4 

N.R. 

FEW 

RK4 

N.R. 

Fi'i 

R*4 

N.R. 

FP 

R*4 

N.R. 

GLF 


N.R. 

GMDOl 

R1=4 

N.R. 

IIMDCKU 


000820 

INOORG 

1*4 

N.R. 

IMGFIX 

I«4 

M.R. 

INOHUL 

1*4 

N.R. 

INDPOW 

11=4 

N.R. 

INOPRP 

1*4 

N.R. 

LTHL 

11=4 

N.R. 

NOCPP 

1*4 

N.R. 

PEHF 

R*4 

N.R. 

PI 

R*4 

N.R. 

REAU 

R1=4 

N.R. 

RHPMR 

R*4 

N.R. 

SA 

Ri=4 

N.R, 

SA5 

R*4 

N.R. 

SFC 

R1=4 

N.R. 

SHPA 

R*4 

N.R. 

SHTE 

Kl=4 

N.R. 

SHTW 

R*4 

N.R. 

ST 

R*4 

000330 

STHETA 

R*4 

N.R. 

SVTE 

Rl=4 

N.R. 

SVTW 

R*4 

N.R. 

SWEXP 

ft*4 

N.R. 

SWTT 

R*4 

N.R. 

T 

ki:4 

N.R. 

TAF 

R*4 

N.R. 

THAX 

Ri=4 

N.R. 

TMP 

R*4 

N.R. 

ULF 

H*4 

N.R. 

VGAS8 

R*4 

N.R. 

V 

Ki=4 

N.R. 

W 

R*4 

000914 

wcc 

R#4 

N.R. 

WE 

R*4 

N.R. 

WF 

Ri=4 

0C0930 

WFC 

R*4 

N.R. 

WFW 

R*4 

N.R. 

WGS6 

R*4 

N.R. 

WLG 

R=»4 

N.R. 

WMC 

R*4 

N.R. 

WPOS 

R*4 

N.R. 

WPEI 

R*4 

N.R. 

WPRG 

R«=4 

N.R. 

WPRP 

■ R*4 

N.R. 

WRCA 

Ri=4 

N.R. 

WSC 

R*4 

N.R. 

WTM 

R1=4 

N.R. 

WVT 

R*4 

N.R. 

WAC 

R»4 

N.R. 

WENV 

R*4 

N.R. 

XLDH 

. Ri=4 

. N.R. 

XLHL 

R*4 

N.R. 

YLS2 , 

R*4 

N.R. 

TOVW 

R*4 

N.R. 

AF 

Ri=4 

N.R. 

BHPP 

R*4 

N.R. 


OELRTH 

R*4 

N.R. 

DELTA 

R*4 

N.R. 

ELC 

R*4 

N.R. 

ELHT 

R*4 

■ N.R. 

ELT 

R*4 

N.R. 

'.ELVT 

R*4 

N.R. 

FEH 

R*4 

N.R. 

' FEHI 

R*4 

N.R. 

FET 

R*4 

N.K. 

FETOT 

R*4 

N.R. 

FEWH 

R*4 

N.R. 

FEWI 

R*4 

N.R. 

ETAP4 

R*4 

N.R. 

GAMOll 

R*4 

. N.R. 

ri 

R*4 

000818 

ICRUS 

1*4 

00081C 

INDDYL 

'l*4 

N.R. 

INOETA 

1*4 

N.R. 

INOOPT 

1*4 

N.R. 

INOOSW 

1*4 . 

N.R. 

INDRCH 

1*4 

N.R. 

IPRINT 

1*4 

00034C 

NQXPJ 

1*4 

N.R. 

OWE 

R*4 

N. R. 

0 

R*4 

N.R. 

RHO 

R*4 

. N.R. 

R 

R*4 

000878 

RN 

R*4 

N.R. 

SA6 

R*4 

N.R. 

SA7 

R*4 

N.R. 

SHPR 

R*4 

N.R. 

SHT 

R*4 

N.R. 

SIGMA 

R*4 

N.R. 

SSIGMA 

R*4 

N.R. 

STMAX 

R*4 

N.R, 

SVT 

R*4 

N.R. 

SW 

R*4 

N.R. 

SWETH 

R*4 

N.R. 

SWWET 

R*4 

N.R. 

S2RH0 

R*4 

N.R. 

rCBAR 

R*4 

N.R. 

THETA 

' R*4 

N.R. 

TPROP 

R*4 

N.R. 

tr 

R*4 

N.R. 

VGA SR 

R«4 

N.R. 

VHL 

R*4 

N.R. 

WBAL 

R*4 

N.R. 

W8ALNT 

P,*4 

N.K. 

WEP 

R*4 

N.R. 

WES 

R*4 

N.R. 

WFR 

R*4 

000938 

WFS 

R*4 

N.R. 

WhL 

R*4 

N.R. 

WHT 

R*4 

N.R. 

WPA YL 

R*4 

000958 

HPC 

R*4 

N. R. 

WPH 

R*4 

N.R. 

WPRB 

R*4 

N.R. 

MPSTR 

R*4 

N.R, 

HRC 

R*4 

N.R. 

WSCA 

R*4 

N.R. 

WST 

R*4 

N.R. 

WW 

R*4 

N.R. 

wpaylo 

R*4 

00099C 

XLALB 

R*4 

N.R. 

XLB 

R*4 

N.R. 

XLR 

R*4 

N.R. 

XLW „ 

R*4 

N.R, 

OMR 

R*4 

N.R, 

SIGMR 

R*4 

N.R. 

SEE 

R*4 

N.R. 






LABEL 

ADOR 

LABEL 

ADOR 

LABEL 

ADOR 

LABEL 

ADOR 
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100 

000310 

1 

000422 

20 

00043E 

2 

00045A 


4 

000476 

11 

0004B4 

12 

0004C6 

13 

000408 


8 

0004EA 

9 

000506 

200 

000516 

201 

000524 



300 00054C 

«=0PTI0NS IM EFFSCT* N‘AME= MA INt0PT=02 ,LINECNT=54t S I ZE=0000K, 

^OPTIONS IN Ef-FECT* SOURCE, EBCDI C, NOLI ST , NOOECK, LO AD t MA P , NOED IT, I D.NOXREF 

♦ STATISTICS’* SOURCE STATEMENTS = 89 .PROGRAM SIZE = . 1392 

♦STATISTICS* MO DIAGNOSTICS GENERATED 


ENO QF COMPILATION ♦♦♦#♦* 


103K BYTES OF CORE AiOT USED 


'sJ 

I 

H* 

W 




LEVEL 

21.7 < 

JAN 73 

> 


OS/ 360 

1 FORTRAN H 



DATE 75. 112/16. 10. Oa 


ISN 

COMPILER 

000? 

OPTIONS - NAME= MA IN ,0RT=02 ,L INcCNT=54, S I ZE=OOOOK, 

SOURCE, EBCDIC, NOL I ST, NODECK, LOAD, HAP, NOEO IT , ID 
SUBROUTINE ROTPOW 

,NOXREF 

oooioooo 


ISN 

0003 

MEMBER. NAME B81R0TPW 
C PAGE 1 INPUT LOC 

COMMON UPTIND 

0001 THRU 0050 
•HULINU .DYLIND 

, DKG I NO 

, OS WIND 

COC20000 

00030000 

.Q0C40O00 





IFIXIND 

2XLRLA 

3EMLF 

,RDhIND 

,VGBUVH 

,CKL 

,PRPIND 

,XLGD 

.DELWF 

,ETAIND 

,HMAXO 

,CKFF 

, WO 

, RHORHO 
, VDI VE 

,XLBWO 

,VMO 

,HUO 

, O0C5O00O 
,00060000 
, 00070000 




c 

4R00 
5GAP2I6) 
PAGE 2 

,TCf) 

INPUT LOC 

,GAP1(5) ,SGTINDil2) 

0051 THRU 0100 

jELHLOA 

, ELVLOA 

,00080000 
00090000 
CO 100000 


ISN 

0004 


C OMMON 
lAKHT 
2V8ARV 

AK 

,TCKT 

,SLMVT 

, w s 

,VBARH 

,ELUN 

,TCR 

,SLMH 

,ELDT 

, ICT 
, ARVT 
,.ELDOA 

,SLM 
,TC VT 
,DLSWSH 

, boil 0000 
,00120000 
,00130000 



• 


30 SUET 
40 AMI 
5XC 

,DLVLHL 
,UAM2 , 
.XMk 

,OVOL 

,BMR 

.TVCMR 

.CBYLOA 

,DAM3 

,VT 

, ENR 

,CLEYE 

,CTSIGH 

,WVA 

,THETMR 

,TVW 

,00140000 

,00150000 

, QOlbOOQO 




c 

6HES 
7GAP3 
PAGE 3 

,TINY ,ETAP2 ,ETAP4N 

INPUT LOC 0101 THRU 140 

,Te£M5l5) 

,TB8AP4(5) 

,00170000 

00180000 

00190000 


1S« 

0005 


COMMON 

l&TMIY 

2EXPDkG 

0 AK4 
,CDVT 
.CDC 

,ENP 

,CDHT 

.CLALPH 

,ETAT 

,0AH5 

.CKVT 

,HC 

, DLTAFE 
.CKHT 

,VC 

,FEDRAG 
• CKF 

,00200000 

,00210000 

,00220000 


ISN 

0006 

c 

3CKW 
PAGE 4 : 
COMMON 

,RELI ,TCLN 

INPUT LUC 141 THRU 200 
WFE ,WFUL 

,TBCLlta) ,TBCDWI(8> 
WEIGHT DATA 
.DELWFC ,D£LWP 

,GAP4(4) 

.OELWST 

00230000 
00240000 ■ 
, 00250000 

- 

H 




ISKCC 

2SKSCA 

3SKGB1 

,SKkc 

, S KMC 

,SKSC 

,SKAC 

,SKBLNT 

,SKFW 

,SKHL 

,SKBAL 

, SKTM 
, SKENVl 
,SKLG 

,SKRCA 

,SKENV2 

,SKWW 

, CC26OQO0 
,00270000 
,00280000 

■ "Oi 




4ELF 

5SKRBF 

6SKPDS 

,RMI 

,SKPH 

,SKPOSZ 



, SKVT' 
,SKPA 
, SKPEI 

,SKPRB 

.SKVTAR 

,SKPES 

,00290000 
, C0300000 
,00310000 





7SK1 

8SK7 

9SK13 

,SK2 

,SK8 

.SK14 

mi 

BE 

1C 

, SK3 
, SKll 
, GAPS (3) 

,SK6 

,SK12 

, 00320000 
, C0330000 
00340000 


ISN 

0007 

c 

PAGE 5 INPUT LOC 201 THRU 300 
COMMON TOLINDIS) ,X-TGTA2{5) 

IDELTHI5) .STHI5) ,CRSINU<5) 

,TIN2(5) 

,XTGTA4(5) 

, TWTW(5) 
, TEN4(5) 

,PF£T2(5) 
, VINI5) 

00350000 

,00360000 

,00370000 . 




c 

2DELR(5) 
3HFIN( 5) 
PAGE 6 

.RMAXib) ,DELFCR(5i 

,GAP6( 10) 

INPUT LUC 301 THRU 400 

,ENPCR{5) 

, CELWPLI 5) 

,STPWI5 ) 

,00280000 

00390000 

00^00000 


ISN 

0008 

c 

COMMON 

1TBT0I5) 

WORKING 

CYCPRL 

,T6H2(5) 

.COMMON 

,FF 

,TBCRP( 5) 

,SK3 

,TBSFC(8) 

, SK4 

,7BP0W(8) 

,TBHL(5 ) 
,GAP7(60) 

,00410000 

00420000 

00430000 


ISN 

0 009 


COMMON 

1 

2 CBARF, 

ALFUES,ALFbL,ALFR,AMU, 
BHPA,fiHPR,BHPSUP,BHT ,BLP,DR,BS,BVT 
CRARHT.C8ARVT,CBARW,CCP,CCT, CDViCLW 

OO^AOOOO 

, 00450000 

• CP IND,CPNUD, CPPAR,CPPR0Q0460000 





3, CPTUT, 

4 DELRTH 

5 FEHtFE 

CRT,C TP,CV ,CX,ClUES,CB, 

, DELTA, DH, DSPLMT , ELC, ELHT , ELN ,ELOA, ELT , ELVT ,EN ,ET AP, 

wt.PRHi . fpht.PFT .FFTOT ,FEVT . FEW ,FEWH,.FEW I,FM ,FP, ET AP4 

00470000 

00480000 

00490000 


ISN 

0010 


COMMON 

GAM011I3,15), 

GLF,GMDD1(16»,H, 



00500000 











PAGE 003 


ISN 0056 EMU=DK0B-CKH4>i'CTSMR 

15N 0057 £HT=VT/(SA>!=1.6U8) • 

[S N 00 58 UELT A M=EHT-EMD 

ISN 0059 DCUM=CKH3#:0tLTAM4=’(‘2 

iSi\ 0060 IF (UbLTAK.LE.0.0) UC0M=0.0 ' 

iSN 0 0 62 IF { V..NE.0.0) GO TU 60 

15N (f0t)4 C0Q=CU8 + DCUM 

ISN 0065 COOMR=COO 

ISN 0066 CPPRQ=CDO=>SIGMR>i‘I 1.0-XC )/8.0 


ISN 0067 GO TO 70 

ISN 0068 60 CUBP=CD8 

ISN 0069 OCOMP=OCDH 


ISN 0070 CTPSMR=C TP/S IGMR 

ISN 0U71 CDB8=-0105 

IS.N 0 072 CKC 1=2.82 

ISN 0073 CKC2=.09 

ISN 0074 CKC,3=1.17 

ISN 0075 CKC 4=. 001 24 ^ 

ISN 0076 CKC5=.753 

ISN 0077 EMDO=.743 

ISN 0078 Fr.= tC TP / (S1GMR<={ 1 1.0-AHU) *»2 I )* 1 1 »0^^CX /CTP) ) -CKC2 

ISN 0079 hFMR=FG 

ISN 0080 EMD=EMtHJ-CKC5^‘CTP/S IGMR 

ISN 0081 EMT90=I I.«jB8=!‘V<-VT)/(SA«‘1.688J 


ISN 0032 DC0S=CKCl«FG*>i»3*( l.0-AMUj«*2*C0S{ EPS)**2 

ISN 0033 IF (UCDS.LT, 0-0) DCDS=0.0 

ISN 0085 DM9C=EMT90-EMD 


ISN 0086 IF (UMgO.LE.O.O) GO TO 67 

ISN 0088 DCDM=(CKC3=!‘DM90*=#3+CKC4#DMyO)*COS(F-PS) #*2<-DC0MP*SIN 

ISN 0 009 GU TO 65 : ^ 

'iSN 0090 67 OCDM=IjCOMP' S INI EPS) **2 

ISN 0091 65 CD0=CD3B«'C0S (EPS) «*2+C0QP<‘SI NIEPS I^^Z^-DCOS+DCDM 

ISN 0092 CUQMR=CDO ^ 

ISN 0093 CPPRO=COO«SIGNK<=( 1.0+4. 65*AMU=*«‘2)>!<( 1.0-XC)/8.0 

ISN 0094 CT = 4.0-XLR«( I -O+DL* S I N I E PS ) **2 ) / 1 RHO*P I #ENR* ( DMk'i'VT 

ISN 00 95 70 CKH0VA=XL1NTICTT,CK HOVT , CT , 10 1 M) 

ISN 0096 IF (M-NE.OI 'WKI TE ( 6 » 1 00 3 ) 

ISN 0093 0KHVTH=XLKUP (CT,THtTMR,CTT8LEtl2*THTBLE,5,DKHTB, 12, 

I SN 0099 OK HVM=O K HVT H 

ISN 0100 IF (IX'.NE.O) WRITE(’6,i004) 

ISN 0102 IF IIY.NE.O) wK I I E ( 6 , 1005 ) 

ISN 0104 1003 FORMAT! IPX, 55HTHIS EkkOK IS IN THE CT,KHDVA TABLE - 

IPOW) 

ISN 0105 1004 FORMAT! 10X.82HTHI S ERROR IS IN THE CT PART OF THE D 

1 T A jr TABLE - SO8H0UTINE ROTPO WJ 

ISN 0106 1005 FUKMATa0X,36HTHI S ERkUK IS IN THE THETA MR PART 'OF 

.ILR THcTA TABLE - SUBKOUTINE RGTPOW) 

ISN 0107 1006 FORMAT! IPX, 82 HTHIS EKKUR I S IN THE CT PART OF THE 0 

ITA T TABLE - SUBROUTINE ROTPQW) 

ISN 0108 1007 FORMAT! lOX, 85HTHI S ERROR IS IN THE THETA REF PART 0 

IVEK THETA T TABLE - SUBROUTINE RQTPOW) ■ 

ISN 0109 THETRF=-9. 


00970000-. 
C0S80000 
■ . CC S90000 

CICOOOOO 
OICIOOOO 

CiC2000^ 

oTc3'oo"5o ' 

01040000 
C1C50000 


01C60000 

01C70000 

01080000 


01C90000 
01 100000 
01110 000 
o'i I'ioooo 

01130000 

01 140000_ 

01 is'oooo 
01 160000 
0 U 700 00 

01 isoo'oo 

01190000 

^ 012 00 000 


01210000 

01220000 


01240000 
<EPS)«*2 01250000 

. 01260000 
oTz'foboo 
01280000 
01290000 
O'l 300000 

)*1<2 ) 01310000 

01320000 
613“30'000 
5,IX,IY) 01340000 

01 350000 

01360000 
01370000 
SUBROUTINE ROT01380000 
01390000 
ELTA KHOVER THE01400000 

OJ 41 0000 

THE DELTA KHOV01420000 
0,1430000 

ELTA KHOVER TH£01440qOO_ 
0 f450000 
F THE DELTA KH001460000 
. C1470000 
0i460000 


PAGE 004- 


ISN 0110 L)KHVTR=XLKUP (CT , THETRF , CTT 6LE » 1 2 , THT8L E , 5 , OKhTB, 12» 5 f IX , I Y ) 

ISN 0111 UKHVRM=DKHVTR 

I SN 0U2 IF nx. N E.O) WRl T E ( f> . 1006 ) 

ISN 0114 IF IIY.n'e.O) WKI TE ( 6i 1007) 

ISN 0116 CKHUV=CKBLH( ie)*(CKHOVA+OKHVTH-DKHVTR-l.O) + UO 

ISN 0117 C KHGVM=CKHU V 

ISN 0118 IF (V. to. 0.0) GO TO 100 

ISN 0120 CKHGVP=CKHOV 

ISN 01 21 r.KINO^l. 1»CUS(EPSJ»*2'«-CICH0VP*SIN(EPS)**2 

ISN 0122 CKINUK=CKIND 

ISN 0123 CPIND=0.5*CKINU*CTP*=i'2/AMUP 

I SN 0 llit C_KP£ K=1.0+12. 8*AHU»*4 

ISN 0125 CPPAK=AMU<=CXj:‘CKPEK 

ISN 0126 CKNUt)=XLINTt AHUTB,CKNDT3,AMUf20fM) 

_l e.^UP_M=tJ<wNUj3 ^ ^ 

ISN 0128 IF (M.NE.O) WR1TE(6,1009) 

ISN 0130 1009 FORMAT ( 10X,52HTHI S ERROR IS IN THE MU.KNUO TABLE SUBROUTINE 

U 

ISN 0131 CPNUD=2.0*CTP’l'S IGMR^CKNUD/ I BMR>i‘*2=#( 1. 0 + OL'i‘SI NIEPS »*#2) ) 

ISN 0132 CPTQT=CPPRO+CPlNOtCPPAR+CPNUD 

ISN 0133 RHPMR= RHQ*Pl»DMR'i-»2=!=E NR*VT**3*C PT0T/22QQ. 

ISN 0134 ALF0L=-ATAN1CX*(1 ,0+0L«'SIN(EPS)#*2)/CTP)*RT00 

ISN 0135 RETURN 

JLS.N_0 116 IQ.Q-C.g-I fc!0=i3.,J922lliibny^Jf 

ISN 0137 CPTQT=CPPkO+CP1ND 

ISN 0138 FM=0.707’>CT‘!‘#1.5/CPT0T 

ISN 0 1 19 RHPMR=RHn*PI»0MR»*2»ENR*VT**3»CPTOT/22 00. 

ISN 0'l40 BHPR=RHPMR/ETAT 

ISN 0141 IF ( INOTOL.Ey.2.) GO TO 110 

ISN 0143 li E J.U RIS 

ISN 0144 110 IF (ABSI tBHPA-8HPR)/BHPA>.LT.0.01 ) GO TO 140 

ISN 0146 IF (LC2.lt. 2) GO TO 120 

ISN OILS R7=BHPR-RHPA 

ISN 0 149 DT0VW=B2=!‘DT0VW/(B1-B2) 

ISN 0150 Bl=B2 

ISN 0 151 G.Q_I0_1.3.Q — 

ISN 0152 120 81=3HPk-6KPA 

ISN 0153 DT0VW=~0.5 

I SN 1) 154 I 30 TnVM=TnVW-nTnVM - 

ISN 0155 GO TO 15 

ISN 0156 140 RETURN 


01490000 

01500000 

01510000 

01520000 

01530000 

01540 000 

C1550000 

01560000 

0 1570000 

0*1580000 

01590000 

01 600000 

01610000 

01620000 

0,1 ,6,3 0000_ 

01640000 

ROTPOW01650000 

01660000 

01670000 

01680000 

0.1.699 OO.Q_ 

01 700000 
Q1710000 

01_720000_ 

C1730'6oO 

01740000 

0,1750000_ 

01760'0b0 

01770000 

Cl 7eo.o.oo_ 

01790000 

01800000 

0 i_a.i 9 Q.OQ_ 

ciaadooo 

01830000 

9 1 j340.Q0.0_ 

01850000 
01860000 
■ ■ ■O.La .IOi)_0_Q_ 
01880000 
01890000 




/ 
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NAME 

H 

TAG 

C 

TYPE 

R«A 

ADO. 

N.R. 

NAME 

M 

TAG 

FA 

TYPE 

1*4 

ADO. 

0003FO 

NAME 

Q 

TAG 

S C 

TYPE 

R*4 

ADO. 

000868 

NAME 

R 

TAG ■ 
C 

TYPE 

R*4 

ADD. 
N.R. . 


T 


C 


N.K. 

V 

FA 

C 

R*4 

000910 

W 


C 

R*4 

N.R. 

AF 


C 

R*4 

N.R. 


AR 


C 

RX'A 

M.R. 

BR 


C 

R*4 

N.R. 

BS 


C 

R*4 

N.R. 

8L 

SF 


R*4 

0003F4 


az 

SF 



0003F8 

C8 


c 

R*4 

N.R. 

CT 

SFA 


R*4 

OC03FC 

CV 


C 

R*4 

N.R. 


CX 

FA 

C 

R*4 

OOOiCO 

DH 


c 

R*4 

N.R. 

CL 

SFA 


R*4 

OC0400 

EN 


c 

R*4 

N.R. 


FF 


C 


M.k. 

FG 

SF 


R*4 

000404 

FM 

S 

C 

R*4 

000714 

FP 


c 

R*4 

N.R. 


HC 


C 

k*4 

M.R. 

IS 

SF 


1*4 

000408 

IX 

FA 


1*4 

00040C 

lY 

FA 


1*4 

000410 


PI 

F 

C 

R*4 

000864 

, RN 


c 

R*4 

N.R. 

SA 

F 

C 

K*4 

OCOOHO 

ST 


c 

R*4 

N. R. 


sw 


C 

R*4 

N.R. 

TR 


c 

R*4 

N.R. 

VC 


C 

R*4 

N.R. 

VT 

F 

c 

R*4 

000148 


WE 


c 

K*4 

N.K. 

WF 


c 

R*4 

N.R. 

WO 


C 

R*4 

N.R. 

HS 


c 

R*4 

N.R, 


WU 


c 

R*4 

N.R. 

xc 

F 

c 

k*4 

00013C 

AMU 

FA 

c 

R*4 

00064C 

BHT 


c 

R*4 

N.R. 


BLP 


c 

R*4 

N.R. 

BMR 

F 

c 

R*4 

00012C 

8VT 


c 

R*4 

N.K. 

CCP 


c 

R*4 

N.R. 


CCT 


c 

R*4 

N.R. 

CDB 

SF 


R*4 

000414 

CDC 


c 

R*4 

N.K. 

coo 

SF 


R*4 

000418 


CDV 


c 

R*4 

N.R. 

CKF 


c 

R*4 

N.R. 

CKW 


c 

R*4 

N.R. 

CKl 


c 

R*4 

N.R. 


CLW 


c 

R*4 

N.R. 

CRT 


c 

R*4 

N.R. 

CTP 

SFA 

c 

R*f 

0006A8 

CTT 

FA 

c 

P*4 

0002 1C 


DK3 


c 

k*4 

N.R. 

DK4 


c 

K*4 

N.R. 

OMR 

F 

c 

R*4 

0CO9C8 

ELC 


c 

k*4 

N . R - 


ELF 


c 

k#4 

N.R. 

ELN 


c 

R*4 

N.R. 

ELT 


c 

R*4 

N.R. 

EMD 

SF 

"V" 

R*4 

00041C 


EMT 

SF 


R*4 

000420 

ENP 


c 

R*4 

N.R. 

ENR 

F 

c 

R*4 

OOOllC 

EPS 

SFA 


R*4 

000424 


FEH 


c 

R*4 

N.R. 

FET 


c 

R*4 

N.R. 

FEW 


c 

R*4 '■ 

N • R • 

'.GLF 


c 

R*4 

N.R. 


HcS 


c 

R*4 

N.R. 

HOO 


c 

R*4 

N.R. 

LC2 

SF 


1*4 

0C0428 

OWE 


c 

R*4 

N.R. 


RHO 

F 

c 

R#4 

00086C 

RMI 


c 

R*4 

N.R. 

ROD 


c 

R*4 

N.R. 

SA5 


c 

P*4 

N.R. 


SA6 


c 

R*4 

. N.R. 

SA7 


c 

R*4 

N.R. 

SEE 


c 

R*4 

N.R. 

SFC 


c 


N.R. 


SHT 


c 

R*4 

N.K. 

SKT 


c 

K*4 

N.R. 

SKI 


c 

R*4 

N.R. 

SK.2 


c 

R*4 

N.R. 


SK3 


c 

R*4 

N.R. 

SK4 


c 

R*4 

N.R. 

SK5 


c 

R*4 

N.R. 

SK6 


c 

R*4 

N.R. 


SK7 


c 

R*4 

N.R. 

SK8 


c 

R*4 

N.R. 

SK9 


c 

R*4 

N.R. 

SLM 


c 

R*4 

N.R. 


STH 


c 

R*4 

N.R. 

SVI 

SFA 


R*4 

00042C 

S VT 


c 

R*4 

‘ N.R. 

TAF 


c 

R*4 

N. R. 

H 

TCR 


c 

R*4 

N.R. 

rCT 


c 

F(*4 

N.R. 

TMP 


c 

R*4 

N.R. 

TOO 


c 

R*4 

N.R. 


TVW 

F 

c 

R*4 

000150 

. ULF 


c 

R*4 

N.R. 

VHL 


c 

R*4 

N.R. 

VJN 


c 

R*4 

N.P. 


VMO 


c 

R*4 

N.R. 

WAC 


c 

R*4 

N.R. 

WCC 


c 

R*4 

N.R. 

WEP 


c 

P*4 

N.R. 


WES 


c 

R*4 

N.R. 

WFC 


c 

R*4 

N.R. 

WFE 


c 

R*4 

N.R. 

WFR 


c 

R*4 

N.R. 


WFS 


c 

R*4 

N.R. 

WFW 


c 

R*.4 

N.R. 

WHL 


c 

R*4 

N.R. 

WHT 


c 

R*4 

N.R. 


WLG 


c 

k*4 

N.R. 

WMC 


c 

R*4 

N.R. 

WPC 


c 

R*4 

N.R. 

WPH 


c 

R*4 

N.R. 


WRC 


c 

R*4 

N.R. 

WSC 


c 

R*4 

N.R. 

WST 


c 

R*4 

N.R. 

WTM 


c 

R*4 

N.R. 


WVA 


c 

R*4 

N.R. 

WVT 


c 

R*4 

N.R. 

XLA 

SF 


R*4 

000430 

XL6 


c 

R*4 

. N.R. 


XLR 

FA 

c 

R*4 

0009B8 

XLW 


c 

R*4 

N.K. 

XKR 


c 

R*4 

N.R. 

ALFR 


c 

R*4 

N.K. 


AHUP 

SF 


R*4 

000434 

ARHT 


c 

R*4 

N.R. 

AR VT 


c 

R*4 

N.R. 

BHPA 

FA 

c 

R*4 

000650 


BHPP 


c 

R«4 

N.R. 

6HPR 

SFA 

c 

R*4 

000&54 

COBB 

SF 


R*4 

000438 

C060 

SF 


R*4 

00043C 


CDCP 

SF 


R«4 

000440 

CDHT 


c 

R*4 

N.R. 

CDVT 


c 

R*4 

N.R. 

CKCl 

SF 


IX M 

E * iiS&H 


CKC2 

SF 


R*4 

000448 

CKC3 

SF 


R*4 

00044C 

CKC4 

SF 


R*4 

OC0450 

CKC5 

SF 


EX 9 



CKFF 


c 

R*4 

N.R. 

CKHT 


c. 

R*4 

N.R. 

CKHl 

SF 


R*4 

0C0453 

CKH2 

SF 





CKH3 

SF 


R*4 

000460 

CKH4 

SF 


R*4 

000464 

CKVT 


c 

R*4 

N.R. 

CTMR 

S 


R*4 

000463 


OAMl 


c” 

R*4 

N.R. 

DAM2 


c 

R*4 

N.R. 

UAM3 


c 

R*4 

N.R. 

DAN4 


c 

R*4 

N.R. 


DAM 5 


c 

k*4 

N.R. 

DCOM 

SF 


R*4 

00046C 

OCOS 

SF 


R*4 

000470 

DELR 


c 

K*4 

N.R. 


OM90 

SF 


R*4 

000474 

DVOL 


c 

R*4 

N.R. 

EL ON 


c 

R*4 

N.R. 

ELOT 


c 

R*4 

N.R. 


ELHT 


c 


N.R. 

ELQA 


c 

R*4 

N.R. 

ELVT 


c 

R*4 

N.R. 

EM 08 

SF 


P*4 

000478 


EM 00 

SF 


k*4 

00047C 

EMLF 


c 

R*4 

N *,r<# 

ET AP 


c 

R*4 

N.R. 

ETAT 

F 

c 

R*4 

000193 


FEHI 


c 

R*4 

N.R. 

FEHL 


c 

k*4 

N.R. 

FEHT 


c 

R*4 

N.R. 

FEVT 


c 

R*4 

N. R. 


FEWH 


c 

R*4 

N.R. 

FEW I 


c 

R*4 

N.R. 

FFMR 

S 


R*4 

0C0480 

GAP! 


c 

R*4 

N.R. 


GAP2 


c 

R*4 

N.R. 

GAR3 


c 

R*4 

N.R. 

GAP4 


c 

R*4 

N.R. 

GAPS 


c 

R*4 

N.R. 


GAP6 


c 

R*4 

N.R. 

GAP? 


c 

R*4 

N.R. 

HF IN 


c 

R*4 

N.R. 

LTHL 


c 

1*4 

N.R. 
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PLHF 


C 


N.R. ■ 

PUN 


c 

R*4 

N.R, . 

RELl 


C 

R*4 

N.R. ' 

RMAX- 


c 

P*4 

K.R. 



RTOD 

SF 


R*4 

000‘t84 

SHPA 


c 

R*4 

N.R. 

SHPK 


. C 

R*4 

N.R. 

SHTE 


c 

F.*4 

• N.R. 

, 


SHTW 


C 

R-i'A 

M.K. 

SKAC 


c 

R*4 

N.R. 

SKAR 


C 

R*4 

N. K. 

SKCC 


c 

P*4 

N.R. 



SKFS 


c 

R'i'A 

N.R. 

SKFW 


c 

R*4 

N.R. 

SKHL 

' 

C 

R*4 

N.R. 

SKHT 


c 

R*4 

N. R. 



SKLG 


c 


N.K. 

SKMC 


c 

R*4 

N.R. 

5KPA 


C 

R*4 

N.R. 

SKPH 


c 

R*4 

N.R. 



SKkC 


c 

R*4 

N.R. 

SKSC 


c 

R*4 

N.R. 

SKTM 


c 

R*4 

N.R. 

SKVT 


c 

R*4 

• R« 



SKWP 


c 


N.R. 

SKWW 


c 

R*4 

N.R. 

SKIO 


c 

R*4 

N.R. 

s'ki'i 


c 

R*4 

N.R. 



SK12 


c 

R‘i'4 

N.R. 

SK13 


c 

R*4 

N.R. 

SK14 


c 

R*4 

N.R. 

SK15 


c 

P.*4 

N.R. 



SJLjatL 


c 

R*4 

N.R. 

STPW 


c 

R*4 

(1.R,; 

SVTE 


c 

R*4 

N.R. 

SVTW 


c 

K*4 

N.R. 



SVfTT 


c 

R*4 

N.R. 

TBHl 


c 

R*4 

N.R. 

TBH2 


c 

H*4 

N.R. 

TBTO 


c 

R*4 

N.R. 



TCHT 


c 

R-i'A 

N.R. 

TCUN 


c 

R*4 

N.R. 

TCVT 


c 

R*4 

N.R. 

TINY 


c 

R*4 

N.R. 



TIN? 


_JL_ 

k-4 

N.K. 

T1N4 


G 

R*4 

N.R. 

TMAX 



R*4 

N.R. 

TOVN 

SF 

c 

P.*4 

00C9C4 



TWTW 


C 

R*4 

N.R. 

WBAL 


c 

R*4 

N.R. 

WENV 


c 

R*4 

N.R. 

WFUL 


c 

R*4 

N.R. 



WGS6 


"C 

R*4 

N.R. 

WPDS 


c 

R*4 

N.R. 

WPEI 


c 

R*4 

N.R. 

WPR6 


c 

R*4 

N.R. 



WP«G 


C. 

R*4 

N.R. 

hPRP 


_JL_ 

R*4 

N.R. 

WRCA 


c, 

R*4 

N.R. 

NSC A 


c 

R*4 

N.R. 



XLtJH 


c 

K*4 

N.R. 

XL GO 


c 

R*4 

N.R. 

XLHL 


c 

R*4 

N.R. 

YLS2 


c 

R*4 

N.R. 



ALFOL 

G 

c 

R=!‘4 

000644 

AMUTb 

FA 

c 

R*4 

000134 

ATHIY 


c 

R*4 

N.R. 

CBARF 


c 

R*4 

N.R. 



CBAKW 


r. 

ks=4.. 

M.K. 

COQHR 



R*4 

000488 

CKBLH 

F 

c 

R*4 

OOOIFB 

CKHOV 

SF 


R*4 

00048C 



CKI.NO 

SF 


R«4 

0U0490 

CKiMUD 



SF 


R*4 

00'0494 

CKPEk 

SF 


R*4 

0C0493 

C LOE S 


c 

R*4 

N.R. 



CLEYE 


c 

R*4 

N.R. 

CPIND 

SF 

c 

R*4 

000690 

CPNUO 

SF 

c 

R*4 

000694 

CPPAk 

SF 

c 

R*4 

000698 



—deiaa. 

SF 

c 

R*4 

00069C 

.. CPTUT 

-SF 

c 

R*4 0006A0 

,CT.S.M!L 

SF 


_ R*4- _00049C_ 

UCQHP 

SF 


R*4 

0004AU 



DELTA 


c 

R=S'4 

N.R. 

OELTH 


c 

R*4 

N.K. 

o'elv*f 


c 

R*4 

N.R. 

DELWP 


c 

R*4 

N.R. 



OKHTB 

FA 

c 

k*4 

000044 

DKHVM 

S 


R*4 

0004A4 

DMD BB 

F 

c 

R*4 

0001D4 

DSWET 


c 

P.*4 

N.R. 



—_JH.Qii.bL 

SF 


R=‘4 

QQQ4A8 

bLDOA 


— c_ 

R*4 N.R. 

EMDRD 

SF 


R*4 

0C04AC 

EMT90 

SF 


R*4 

000480 



ENPCR 


c 

R«'4 

N.R. 

ETAP2 


c 

R*4 

N.R. 

ETAP4 


c 

R*4 

N.R. 

FETOT 


c 

R*4 

N.K. 



GMDOl 


c 

R#4 

N.R. 

HMAXD 


c 

R*4 

N.R. 

I CRUS 


c 

1*4 

N. R. 

ITOHL 

F 


1*4 

0004 B4 


_ vj 

NOCPP 


f. 

1*4 

N.R. 

NUXPJ 


_Q_ 

1*4 

N.R. 

SL£ET2_ 


c 

R*4 

N.R. 

REALJ 


c 

P*4 

N.R. 


1 

RHPM.^ 

SF 

c 

R*4 

000674 

SIGMA 


c 

R*4 

N.R. 

SIGMR 

F 

c 

R*4 

0009CC 

SKAKD 


c 

R*4 

N.R. 


I-* 

w 

SKBAL 


c 

R*4 

N.R. 

SKGBl 


c 

R*4 

N.R. 

SKGB2 


c 

R*4 

N.R. 

SKPDS 


c 

R*4 

N.R. 


StLeil.. 


_c_ 

R*4 

N * R * 

SKPES 


c 

R*4 


SKPR8 


c 

R*4 

N-.R. 

SKRBF 


c 

R*4 

N.R. 



SKKCA 


c 

R*4 

N.R. 

SKSCA 


c 

R*4 



N.R. 

SLMVT 


c 

R*4 

N.R, 

STMAX 


c 

R*4 

N.R. 



SWETH 


c 

R*4 

N.R. 

SWEXP 


c 

R*4 

N.R. 

SWWET 


c 

R*4 

N.R. 

S2RH0 


c 

R*4 

N.R. 



TRCI 1 


r. 

R*4 

N.R. 

TBCRP 


r, 

R*4 

N.R. 

TBr-MB 


c 

R*4 

N.R. 

TflPOW 


c 

R*4 

N.R. 



T6SFC 


c 

R*4 

N.R. 

TCDAK 


c 

R*4 

N.R. 

THETA 


c 

R*4 

N.R. 

TPROP 


c 

R*4 

N.R. 



TVCMR 


c 

R*4 

N.R. 

VGARH 


c 

R*4 

N.R. 

VBARV 


c 

R*4 

N.R. 

VO! VE 


c 

R*4 

N.R. 



yGAsa. 


r. 

R*4 

N • K • 

yUASlL 


c 

R*4 

N..R, 

WPAYL. 


c- 

R*4 

N.R. 

WPSTR 


L_ 

_R*/L. 

N.R, 



XLALB 


c 

R*4 

N.R. 

XLBWU 


c 

R*4 

N.R. 

XL I NT 

F 

XF 

R*4 

OCOOOO 

XLKUP 

F 

XF 

R*4 

000000 



XLRLA 


c 

R*4 

N.R. 

FRXPR# 


XF 

K*4 

000000 

COS 


XF 

R*4 

000000 

SIN 


XF 

R*4 

000000 



AIM. 


Ji£_ 

R*4 

000000 

SORT 


XF 

R*4 

000000 

ALF.D.E5 


c 

R*4 

N.R, 

BHPSUP 


c 

R*4 

N.R. 



CBARHT 


c 

RfA 

N.R. 

CBARVT 


c 

K*4 

N.R. 

CBYLCA 


c 

R*4 

N.R, 

CKHQVA 

17“ 


R*4 

000468 



CKHDVM 

S 


R*4 

OOC^fBC 

- CKHOVP 

SF 


R*4 

0004CO 

CKhOVT 

FA 

c 

R*4 

000244 

CKINOM 

s 


R*4 

0004C4 



_.CKNDTB 

FA 

r. 

R*4 

0001 84 

CKNQDM 

s 


R*4 

0004CH 

CLALPid. 


c 

k*4 

N.R. 

crsi.no_ 


Q_ 

R*4- 

N.R. 



CTPSMR 

S 


R*4 

0004CC 

CTSIGH 


c 

R*4 

N.R. 

CTTBLE 

FA 

c 

R*4 

ooodoo 

CYCPRL 


c 

P.*4 

N.R. 



DELFCR 


c 

R*4 

N.R. 

DbLRTH 


c 

R*4 

N.R. 

DELTAM 

SF 


R*4 

000400 

DELWFC 


c 

R*4 

N.R. 



flF 1 MPI 


r. 

R*4 

N.R. 

DbLWST 


t, 

R*4 

N.R. 

PllHVRM 

s 


R*4 

000404 

DKHVTH 

SF 


R*4 

0004D8 



OKriVTK 

SF 


k*4 

0004UC 

DL SUSH 


c 

R*4 

N.R. . 

CLTAFE 


c 

R*4 

N.R. 

DLVLHL 


c 

R*4 

N.K. 



DRG r!\0 


c 

R*4 

N.R. 

OSPLMT 


c 

R*4 

N.R. 

UYLINO 


c 

R*4 

N.R', 

ELHLOA 


c 

R*4 

N.R. 



ELY.LQA- 


r. 

Rr_4 

N.K, 

ETAIND 


r, 

R*4 

N.R. 

EIAPAIi. 


c. 

K*4 

N.R. 

EXPORG. 


c 

R*4 

N.R. 



FEDRAG 


c 

R*4 

N.R. 

FI XI NO 


c 

R*4 

N.R. 

GAMDU 


c 

R*4 

N.R. 

HULIND 


c 

R*4 

N.R. 



-IBCUM# 

F 

XF 

1*4 

000000 

INOCRU 


c 

1*4 

N.R. 

INOORG 


c 

1*4 

N.R. 

INOOYL 


c 

1*4 

■ N.R. 



Mill I II 


c. 





G 

.1*4 

N.R. 



c 

1*4 

N.R. 

INDOPT 


c 

1*4 

N- R. . 



INDOSM 


c 

1*4 

N.R. 

INOPOW 


c 

1*4 

N.R. 

INOPRP 


c 

1*4 

N.R. 

INDROM 


HQ 
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INDTOL S 

OSMIiMD 

KOTPOW 

C 

1^4 

R^:<t 

0004E0 

N.R. 

0004E4 

IPKINT 
PR PI NO 
SGTIND 

C U4 
C R=!‘4 
C R*4 

N.R. 

N.R. 

N.R. 

NRTPOW 
RiJMl NO 
SKBLNT 

C 

c 

OCFFOO 

N* R* 

R=J=4 N.K. 

OPTIND 

RHORHO 

SKENVl 

c 

c 

c 

k*A 

R*A 

R*A 

mm 


SKENV2 
STHETA 
THFTftP <,PH 

T 

C 

R*4 

R=*=4 

R*4 

N.R. 
N. R. 

0004E8 

SKPOSZ 
TBCDKI 
THT3LE FA 

C R*4 
C R’»4 
C R*4 

N.R. 

N.R. 

000030 

SKVTAR 

T38APA 

TOLIND 

c 

c 

F C 

ax' A N.R. 

R#A N.R. 

R#A 0C0320 

SSIGMA 

THETMR 

VGBOVH 

c 

FA C 

c 

RWA r;.K. 
R*A 000138 
R*A N.R. 


WBALNT 

”c 

R^4 

N.R. 

WPAYLO 

C R«4 

N.R. 

XTGTA2 

C 

R*A N.R. 

XTGTAA 

c 


N.K. 






ijt 4: 3}: 

COMMON 

INFORMATION 







— O 0-- 

^ pi 

NAME OF 

COMMON 

BLOCK « 

5= SUE 

OF BLOCK 

0009DC 

HEXADEC IMAL 

BYTES 







VAR* NAME 


TYPE 


VAR. NAME 

TYPE REL. AGGK. 

VAR- NAME 

TYPE 

REL. ACDR. 

VAR. NAME 

TYPE 

REL. ADDR. 

©-O' ■ 

O O 

OPTING 
OSWIND 
6T A ING 


R*4 

R<‘4 

R>»^4 


HOLING 

FIXING 

NO 

R’S'A 

R*4 

R*4 

N.K. 

N.R. 

N.R. 

DYLI NO 
RDM I NO 
XL8NC) 

K*A 

R=)=A 

R*A 

N.K. 

N.R. 

N.K. 

DRGIND 

PRPINO 

XLKLA 

■IlM 



§ o 
> 

b Q 

VGBOVH 

VMO 

CKFF 


k*4 

R*4 

R’f‘4 

N.K. 

N.R. 

N.R. 

XLGG ■ 
EMLF 
VOIVE 

R^4 

R*4 

R*4 

N.R. 

N.R. 

N.R. 

HMAXD 

CKl 

HOC) 

R*A 

R»A 

R«A 

N.R. 

N.R. 

N.R. 

kHORHO 

OELHF 

ROD 

K=!‘A 

R*A 

R*A 


H| 

— Sr^ 

TOO 

ELVLOA 

TCK 


R#4 

R=f=4 

R<=4 

N.R. 

N.R. 

GAPl 

GAP2 

TCT 

R*4 

R*4 

R#4 

N.R. 

N.R. 

N.R. 

SGTINU 

AR 

SLM 

R#A 

R*A 

R*A 

N.R. 

N.R. 

N.R. 

ELHLQA 

WS 

ARHT 

R*A 

R=s=A 

R=i‘A 

IS. K. 

N.R. 

N.R. 


•vi 

TCHT 

TCVT 

6LGT 


R*4 

R»4 

K*‘4 

N.K. 

N.R. 

N.R. 

VBARH 

ViJARV 

ELDOA 

R*4 

R*4 

R*4 

N.R. 

N.R, 

N.R. 

SLMH 

SLMVT 

OLSWSH 

R#A 

R>KA 

R#A 

N.R. 

N.R. 

N.R. 

ARVT 

ELON 

DSRET 

R>f:A 

R«A 

R’XA 

M. R. 

N. R. 
N.R. 


1 

H 

U 

H 

GLVLHL 

»kVA 

IIAM^ 


R*4 

K*4 

R^4 

N.R. ' 

N.R. 

N.R. 

GVOL 

GAMl 

CLEYE 

R*4 

R*4 

R#4 

N.R. 

N.R. 

N.R. 

C8YLOA 
DA M2 
THETMR 

R*A 

R*A 

R«A 

N.R. 

N.R. 

000138 

6NK 

BMR 

xc 

R*A 

R*A 

R*A 

OOOllC 

00012C 

000I3C 



XKR 
TVH 
ET AP4N 


R'*'4 

R#4 

R’«‘4 

N.R. 

000150 

N.R. 

TVCMR' 

HES 

TBEM5 

K*4 

R*4 

R*4 

N.R. 

N.R. 

N.R. 

VT 

TINY 

TB8APA 

R«A 

R#A 

R»A 

OOOIA8 

N.R. 

N.K. • 

CTSIGH 

ETAP2 

GAPS 


1^ 



0AM4 

VC 

DAMS 


R=«'4 

R*4 

N.R. 

N.R. 

N.R. 

ENP 

ATMIY 

OLTAFE 

R<-4 

R44 

R=«'4 

N.R. 

N.R. 

N.R. 

ETAT 

COVT 

FEOKAG 

R*A 

R*A 

K^^A 

000198 

N.R. 

N.R. 



M 



CGC 
CKF 
TBCL 1 


R^A 

R*4 

R*4 

N.R. 

N.K. 

N.R. 

CLALPH 

CKW 

TBCOWI 

R^'A 

R*4 

R#4 

N.K. 

N.R. 

N.R. 

CKVT 
RE LI 
GAP A 

R*A 

R*A 

R*A 

N.R, 

N.R. 

N.R. 


WM 

B 

■■ 


WFUE 

SKCC 

SKTM 


R’i'4 

R#4 

R'S‘4 

N.R. 

N.R. 

N.R. 

GEL NFC 
SKRC 
SKRCA 

R’XA 

R#4 

R^-A 

N.R. 

N.R. 

N.R. 

GEL WP 
SK SC 
SKSCA 

R^S'A 

R*A 

R«A 

N.R. 

N.R. 

N.R. 

UtLWai 
, SKFW 
SKMC 

R*A 

R’i'A 

IS . n . 

N.R. 

N.,R. 



SKAC 

SKGBl 

SKLG 


K*4 

R*4 

N.R. 

N.R. 

N.R. 

SKHL 

SKGB2 

SKNW 

R«A 

R*4 

R«4 

N.R. 

N.R. 

N.R. 

SKENVl 

SKBLNT 

ELF 

R*A 

R*A 

R*A 

N.R. 

N.R. 

N.R. 

SKENV2 

SKBAL 

RMI 

R* A 
R*A 
R*A 

N . R. 
N.R. 
N.R. 



SKWP 

SKR3F 

SKPA 


R*4 

k*4 

K«4 

N.R. 

N.R. • 

N.R. 

SKHT 

SKPH 

SKVTAR 

Rfl^A 

R#4 

R#4 

N.R. 

N.R. 

N.R. 

SKVT 

SKAMO 

SKPOS 

R’«‘A 

R#A 

KO^A 

N.R. 

N.R. 

N.R. 

SKPRB 

SKAR 

SKPOSZ 

m 




iKT 

SKI 

SK5 


K=>4 

R»4 

R’(‘4 

N.K. 

N.R. 

N.R. 

SKPS 

SN2 

SK6 

R^^A 

R#A 

R#A 

N.R. 

N.R. 

N.R. 

SKPEI 

DK3 

SK7 

R*A 

R#A 

R*A 

N.R. 

N.R. 

N.R. 

SKPES 

OKA 

SK8 

R«A 

R*A 

IS . K. 

N.R. 

N.R. 



SK9 


R*4 

N.R. 

SK 10 

R*A 


SK li 

R*A 

N.R. 

SK 12 

R*A 

N.R. 
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SK13 

GAPS 

TWTW 

R>:'4 

R«4 

R«4 

N.R.' 

N.R. 

N.R. 

SK14 

TUUND 

PFET2 

R.*4 • 

R*4 

R*4 

N.R. ■ 
000J20 

N.R. 

SK 15 
XTGTA2 
DELTH 

R*4 

R*4 

,R*4 

N.R. 

N.K. 

N-R- 

■SB 




CKSIND 

R*4 

N.R. 

XTGTA4 

R*4 

N.R. 

T1N4 

R*4 

N.R. 

VIN 

R*4 

N.R. 


DELK 

R=i=4 

N.R. 

RMAX 

R*4 

N.R. 

DcLFCR ■ 

k*4 

N.R. 

ENPCR 

R*4 

N.R. 


DEl.WPL 

R#4 

H.k. 

STPU 

R*4 

N.R. 

HFIN 

R*4 

N.R. 

' GAP6 

R*4 

N-R. 


CYCPRL 

R*4 

N.R. 

FF 

R*4 

N.R. 

SK3 

R*4 

N.R. 

SK4 

R*4 

N.R. 


TBHl 

R 

N.R. 

TBTO 

k*4 

N.R. 

TSH2 

R*4 

N.R. 

TBCRP 

R*4 

N.R. 


TRSFC 


N.R. 

TBPOW 

R*4 

N.R. 

GAP7 

R*4 

N.R. 

ALFOES 

R*4 

N-R- 


ALFDL 

R*4 

000o44 

ALFR 

R*4 

N.R. 

AMU 

R*4 

000&4C 

BHPA 

R*4 

000650 


BHPK 

RX=4 

000654 

0HPSUP 

R*4 

N.R. 

BHT 

R*4 

N.R. 

BLP 

R*4 

N.R. 


RR 

R*4 

M.R. 

BS 

R*4 

N.R. 

HVT 

R*4 

N.R. 

C6ARF 

R*4 

N.R. 


CBARHI 

R’i‘4 

N.R. 

CBARVT 

R*4 

N.R. 

C8ARW 

R*4 

N.R. 

•CCP 

R*4 

N.R. 


CCT 

R«4 

N.R. 

CDV 

R*4 

N.R. 

CLW 

R*4 

N.R. 

CPIND 

R*4 

000690 


r.PNiJi) 

R*4 


CPPAR 

R*4 


CPPRO 

R*4 

00069C 

_ . CP.TOJ 

R*4 

0006 AO 


CRT 

R<-4 

N.R. 

CTP 

R*4 

0006A8 

CV 

R*4 

N.R. 

CX 

R*4 

000680 


CCOES 

R=«’4 

N.R. 

CB 

R*4 

N.R. 

DELRTH 

R*4 

N.R. 

DfcLTA 

R*4 

N. R. 


HH 


N.R. 

OS PI NT 

R*4 

N.R. 

Etc 

R*4 

N.R. 

ELHT 

R*4 

N.R. 


ELN 

R#4 

N.R. 

ELUA 

R*4 

N.R. 

ELT 

R*4 

N.R- 

ELVT 

R*4 

N.R. 


bN 

R*4 

N.R. 

ETAP 

R*4 

N.R. 

FEH 

R*4 

N.R. 

FEHI 

,R*4 

N.R. 


FFHI 


N.R. 

FfHT 

R*4 


FFT 


N.R. 

^^^BB smi JII^B 

R*4 




FEVT 

R*4 

N.R. 

FEW 

R*4 

N.R. 

FEWH 

R*4 

N.R. 

FErtI 

R*4 

N-R. 


FM 

R>!=4 

ooon4 

FP 

R*4 

N.R. 

ETAP4 

k*4 

N.k. 

GAMOll 

R*4 

N.R. 


r,l F 

P«4 

N.R. 

iiWUPJl 

R*4 

N.R. 

H 

R*4 

N-R- 

ICRUS 

1*4 

N.R. 


INOCRU 

1*4 

N.R. 

INODRG 

1*4 

N.R. 

INDDYL 

1*4 

N.K. 

INDETA 

1*4 

N.R- 


INDFIX 

1*4 

N.R. 

INOHUL 

1*4 

N.R. 

INDOPT 

1*4 

N.R. 

INDOSW 

1*4 

N.R. 


INDPflW 

T*4 

N.R. 

INDPRP 

1*4 

N.R. 

INDROM 

1*4 

N.R- 

I PR I NT 

1*4 

N.R. 

c 

LTriL 

1*4 

N.R. 

NOCPP 

1*4 

N.R. 

NOXPJ 

1*4 

N.R. 

□ HE 

R*4 

N-R. 


PEHF 

R*4 

N.R. 

PI 

R*4 

000364 

U 

R*4 

000868 

RHO 

R*4 

00086C 


RFAl .1 

H*A. 

N.R. 

RHP MR 

R*4 

000874 

R 

R*4 

N.R. 

RN 

R*4 

N.R. 


SA 

R*4 

000B80 

SA5 

R*4 

N.R. 

SA6 

R*4 

N.R. 

SA7 

R*4 

N.R. 


SFC 

R#4 

N.R. 

SHPA 

R*4 

N.R. 

SHPR 

R*4 

N.R. 

SHT 

R*4 

N.R. 




N.R . 



N.R. 



N.R. . . 

^I liJ !■ 


N.R- 


ST 

R*4 

N.R. 

STHETA 

R*4 

N.R. 

STMAX 

R*4 

N-R. 

SVT 

R*4 

N.R. 


SVTE 

k*4 

N.R. 

SVTW 

R*4 

N.R. 

SW 

R*4 

N.R. 

SKETH 

R*4 

N.R. 


SWFXP 

R*4 


SWTT 

R*4 

[i,R. 

SWWET 

R*4 

Nj.B* 

S2RH0 

R*4 



T 

K*4 



N.R. 

TAF 

R*4 

N.R. 

TCBAK 

R*4 

N.K. 

THETA 

R*4 

N.R. 


TMAX 

R*4 

N.R. 

TMP 

R*4 

N.R. 

TPROP 

R*4 

N.R. 

TR 

R*4 

N.R. 


IJl.F 

R*4 

N.R. 

VGA SB 

R*4 

N.B-. 

VGA SR 

R*4 

■ N.R. 

VHL 



N.. R., 


V 

k*4 

000910 

W 

R*4 

N.R. 

W6AL 

R*4 

N.R. 

W8ALNT 

R*4 

N.R. 


WCC 

R*4 

N.R. 

WE 

R*4 

N.R- 

WEP 

R*4 

N.R. 

WES 

R*4 

N.R. 


vif 

R*4 


■ WFC 

R*4 

N.R. 

WFR 

K*4 

N.R. 

liF.S 

P.*4 

EiLn-R.*— - 


WFW 

R*4 

N.R. 

WGSB 

R*4 

N.R. 

WHL 

K*4 

N.R. 

WHT 

R*4 

N.R. 


MLG 

R*4 

N.R. 

WMC 

R*4 

N.R. 

WPAYL 

R*4 

N.R. 

WPC 

R*4 

N.R. 


wpn?; 

R*4 

N.R. 

WPFT 

R*4 

N.R. 

WPH 

R*4 



bLE.lil.B_ 

R*4 

M-Ji. 


WPRG 

R*4 

N.R. 

WPKP 

R*4. 

N.R. 

WPSTR 

R*4 

N.R. 

WRC 

R*4 

N.R, 


KRCA 

R*4 

fsi • R • 

wsc 

R*4 

N.R. 

WSCA 

R*4 

N.R. 

WST 

R*4 

N.R. 


WTM 

R*4 

M.R. 

WVT 

A*4 

N.R. 

ww 

R*4 _ . 

N.ft^ 

WPAYLQ 

R*Jt 

CL.JL, 


WAC 

R*4 

N.R. 

WENV 

R*4 

N.R. 

XLALB 

R*4 

N.R. 

XLB 

R*4 

N.R. 


XLBH 

R*4 

M.R. 

XUHL 

R*4 

N.R. 

XLR 

R*4 

0009B8 

XLW 

R*4 

N.R. 


Yi <;? 

ft*4 

N.R. 

TOVW 

R*4 

0009C4 

OMR 

R*4 

000908 

-SIGMR^ 

R*4 

0009CC 


AF 

R*4 

N.R. 

BHPP 

R*4 

N.R. 

SEE 

R*4 

N.R. 






NAME OF COMMON BLOCK * RTPUW» SUE OF BL OCK 00026C HEXADECIMAL BYTES ., 


REL. ADDk. 
000000 
000184 
000244 


VAR. NAME 
THTBLE 
0MDB3 


REL. ADDR. 
000030 
0001D4 


VAR. NAME 

dkhtb 

CK8LH 


REL. ADOR. 
000044 
0001F8 


VAR. NAME TYPE REL. AODR. 
AHUTB R*4 00QL34 

CTT R*4 00021C 



LABEL 

ADUR 

LABEL 

ADDR 

LABEL 

ADDR 

LABEL 

ADDR 

PAGE 010 

10 

000934 

15 

0U093A 

50 

000944 

51 

000978 

, ^ 

60 

000A46 

67 

000878 

65 

000898 

70 

000C24 


100 

000E9C 

110 

000F42 

120 

000F8E 

130 

OOOFA4 



140 OOOFQ4 

*nPT!ntvl?; in effects: NAME= MAIN»QPT=02.LINECNT=54.SI ZE=OOOOK. 


^OPTIONS IN EFFECT* SOUKC E f E6CDI C, NUU ST , NUDE CK, LD AD, MAP , NOED IT , 1 0,N0XK.EF 

WSTATISTIC^ SOURCE STATEMENTS = 156 .PROGRAM SIZE = 4 056 

^STATISTICS* NO D I AGNOSTICS. G.EN£fi4t£D , ^ 

END QF COMPILATION 87K BYTES OF CORE NOT USED 


♦STATISTICS* NO DIAGNOSTICS THIS STEP 


level 21.7 ( JAN 73 ) 


' 0 S’/’36 d ~ FORTRAN H ' 


"DAT'E“ Y 5'; KC7l 5,. 2 5‘. 07“ 


'FILER CFTICNS - NAyE= F A I N',OP T= C 2 » L If^ECNT^S^ ? S I Z E=OC_CCK j' __ . 

“s' CU R cl f E e C C I C » N“C 1 IS tTno'O E CK",LOADtMAP,NCeOITfID,NCXREF 
SUBRCLiUNE SI2TB 


P E R BER NANE B EISIZ.TR 


,PAGE 1 
'CCPMON 
If I MND 
2XLPLA 
BEI-LF 

_ARCC 

EGAFT( 6> 
PACE 2 
CCP MON 
lARFT- 
2VBARV 


“iNliiT 

CPTINC 

_,FCPI,NC 

.Vgecvh 

,CKl 
, T00 

INPUT 

AR _ 

,TCKT' 

,SLF\T 


LCC CCCT’ThRU 0050 
.FLLINC ,0Y 

,FF F INC ' »ET 

;ncc‘ ‘ -7 hk 

,CELNF ,CK 

,CAF115J ,SG 


,OYLINO tCRGINC 

jETAIND ,VvC 

ThKANO" ■ ,PhCRHO 
,CKFF ,VCIVE 

,SGTIND(i2) tELHLOA 


LOC CC5I THRU OlOC 


, VEARH 
. ELCN 
,CVCL 


.,TCR 

■",‘sLmh 

■fELDT 

'tCBYL'QA 


j-TCT _ 
■ , ABVf 
, ELCOA 
,£NR 





4CAM 

5XC 

6FES 

,CAP2 fEPP ,DAM3 , 
,XPP ,1VCPR ,VT , 
,TINV ,ETAP2 ,ETAP4N , 


ISN 0005 

c 

7GAF3 
PAGE 3 
CCPMON 

INPUT LCC ClCl THRU 140 

CAP4 »ENF ,ETAT , 




IATMY 

2EXFDRG 

3CKW 

,CDVT ,CCFT ,DAM5 , 

,CCC ,CLALPF tCKVT , 

,RELI ,KLN ,TECLU8) , 


ISN 0006 

c 

PAGE 4 INFLT LCC 141 TFFL 2CC WtlGHI UflIA 
CCFMON UFE ,NFLL ,,0£LWFC » 

ISKCC ,SKRC ,SK£C ,SKFW , 

1 

-135 

1 



2SKSCA 

3SKCD1 

4ELF 

jSKFC tSKAC ,SKHL , 
,SKGE2 ,'KELNT . ,,SKBAL , 
,RMI ,SKVP ,SKHT , 




5SKRBF 

6SKFDS 

7SK1 

tSKFF ,£KANO ,SKAR , 
.SKPCSZ fSKT ,SKFS , 
,SK2 ,CK3 ,DK4 , 




ESK7 

9SK13 

,SK8 ,£K9 ’ tSKld ■ , 

,SK14 ,JK15 ,PLIN , 



c 

pace 5 

INPUT LOC 201 THRU 3C0 ' 


ISN 0007 


CCPNON 

1CELTHI5) 

20ELRI5) 

TCLINCI5) ,>TCTA2(5) ,TrN2‘(5) , 

,STFI5) ,CR«INC<5) ’,XTGTA4(5) , 

,RPAXi5) ,CELFCRI5) ,ENPCR(5) , 

■ 


c 

SFFINI5) 

PACE-6 

,C-AF6<1C) 

INPUT LCC 301 TFRU 4C0 


ISN 0008 


CCPMON . 
1 f ft fnf e; r 

CYCFFL ,FF ,SK3 , 

.'i'bcrp(£i .tbsfcis) , 


CELWP 


tCSNINO 

fXLBViO 

■;vMc 

,HOC 

,ELVLQA 


fSLf' 

TCVT 
,DLSNSH 
f^'VA __ 

THETMR" 
f TYL 

,Tb8AP4(5) 


■Tfecpag 

,CKF 

,GAP4(4^ 

.DELVsST 
tSKPCA 
, SKENV2 
,SKVvN 
, SKPRB 
”, SK1(TAR 
fSKPES 

_j^SK£ 

,.SK12" 


”,PFET2(5)" 
, VIMS) 
,STHV<(5) 


CCPMON . CYCFFL .tFF LlSH3 !SK4.__ jJBhllS) _ 

ifeTOIsF 7 t’8H2"(5) ,Vb’CPP(5) ,YBSFC18) tTBPOViIB) ,GAP7(60) 
WORKING CCPPCN 

CCNMON ALfCESfALF EL,ALFB,AFU, 

~l bVFA, E>FP ,‘ehFS LPVEHt .'Bl'P ,'BR ,BS, BVT , 

2 CBARF»CEARFT,CEARVT fCEAFVi ,CCP', CCT ,CDV, C LW , C F IND, CPNUD , C PPAR , CPP 

3,CFT0T,CRT,CTF,CV,CX,ClC^SjCE, _ _ _ . 

”4“cTLRT"H,C'£LT7rCFVCS'PTVl , ELC , ELHT ,ELN, ELCA ,ELT , ELVT ,EN ,ETAP, 

5 FEH.FEhI,FEHL,f EM,FE1 ,F ETCT , FEVTvFEK, F EWH, F EW I , FM, FP, ET AF4 

CCPMON GAPDlH3,lS)tCLF,CPDCL(16),H, 


■ COOIOOOC 
CC02C0C0 
0003C00C 
,00040000 
,0CC5CCCC 
■,00060000"“ 
,00070000 
,00080000 
“ CCC9C000 “ 
COICCCOO 
fOOlicccc 
,001200,00" 
,00130000 
,00140000 _ 
■",00150000 
,00160000 
,00170000 
C01800CC ' 
CC19C0CC 
,00200000 
",00210,000 
,00220000 
00230000 
“‘00240000' 
,00250000 
,00260000 
■■',00270000 
,00280000 
,0C'29C000 
“;C0300000 
,00310000 
,00320000 

■ ,00330000 ■ 

00340000 

CO35C0CC 

■ ,00360000 ' 
,00370000 

003800CC 
■C039000C"' 
004CCCC0 
,00410000 
■■■• 00420000” 
00430QCC 
00440000 
G045000C" 
ROC0460000 
0047000C 
0048000C" 
C0490Q0C 
. 00500000 



PAGE C02 


iSN 


0011 

0012- 


ISN 0013 


u 


ISN 0029 
ISN 0030 
IS N 0 031 
ISN 
ISN 
Ji-N, 

ISN 0035 
ISN 0036 
Ji£J_P03_7_ 
ISN 0038 

I SN 0039 


0032 

0033 

00 34 


ISN 

_LS!!L 

ISN 


0040 

0041 


0042 


ISN 

I SN 


004 3 
0044 


7 1 CR US« I NCC RU ,'-U CCRG , U E OL , IKDEJA , INDFI X , I NCPUL ,.IN0QP,T., lAEPJWj,. 005 1 00 CO 

6 IN6P0V.,'IhbPRP» fNCRDP, IP'rINT 005200CO _ 

CCPMON LTPLtNCCFFfNCXF* ,CViE,FEHF,PI.Q»R'HCf REALJ*Rl-PMR,R,RN 00530000 

' CC P MON S AtSA5.SA6»SA7.SFCtShFA,SHPRtSHT;SHTE>SHTW.SlGMA,SSI GWA ,ST,005 4000C. 

ISTFET A , STVa X ,T \Ti S V T e7 S VVv\ S S WETh, SKEXP , SW 1 T , SW UE 1 1 S2 RKC 005 5 CO CO 

CCPMON Tt 1AF,TCE AR,TFETA,7MAX,TPP,TPPCP,TR,ULF,VGAS8,VGASR jVHLtV O056C0CO 



ISN 0015 


1 hGSBtViH ,V>t-T,V>LGtwRC»WFAVL»ViPC»WPCS,WPEI,hPF,WPRB,WPRGf V.p’RP 
2fkPC»WRCA fUSC fi^SCA ,V(ST ,U H , U , WW ,V<PAYLC , WAC ,h ENV 
CCRMDN XLALE, XLE, >L6F,>LFL,XLR,XLW,YUS2,TCVW 

,WPSTR00580CC0 

00600000 

Q061C000 


ISN 0016 
ISN 0017 


CCRNON CPR.SIGFPtAF.BFFF.SEE 

NAPELIST /NSmP/ CPT I NC ,HU L IKD , OYL I NO, CRG I NC , CSW IND » F I X I NC , 
1 PCRUC,PPFIN0,E7AIAC,W0,VGASR, VGASB , VHL , XLALB , DH » 

0061C1CC 

00620000 

0063CCCC 




2 ELN,ELl,£LC,ELCA,SSnETH,CV,EKlf EK2tEK3,EK4,EK5,6K6, 

3 LCl,£U»VFLl,\l-L2,Sh,BS,CRTfDELSW,Bl,E2,TMAX,CeAPI«, 

4 RFCt C.CLCES»ALFCESfTC8AR,SKTP,ShEXP .SWWET.tXLRH .TAF. 

00640000 

0065C00C 

00660000 




5 • £IGAP,CeARhT,£U,Shl,SVTW,SHTW,SHTE,SVTE,OSPLMT. 

6 £LFT,ELVTteHTtBVTiCPHT,CRVT,CTHT,CTVT,CBARHTrCBABVT 

7 SKTH.SRTY 

00670000 
, 0068C00C 

C069CCCC 


ISN 0018 


SViI«ET = C.C 

00700000 


ISN 0019 


PI=3. 14159 

007C01C0 


ISN 0020 


VGASR = (XLei.C*kC) / (C.C7 6474-XLG01 

00710000 


ISN 0021 


VGASB=VGASR/PHCRHC 

00720000 


ISN 0022 


VK=VGASE/VG6CVF 

C073CQC0 


, ISN 0023 


XLAL6 = ( l.C/XLEVO-l.C 

007400C0 


ISN 0024 


IF ( INCHUL.6Q.2) GC 7C 1 

007500C0 

-J 

ISN 0026 


IF(INDH0L.GT.2) GC TC 10 

0075C10C 

1 

ISN 0028 


CHC=( PI*(ELC0Ay4--ELCN/12.-7.*ELDT/60.» *(l.O+CLVLHL) ) 

00760000 


CF = ( I VFL-CVCD/CHC )*>*Q.333 

ELA = ELCR*l'Ch 

£LT=ELCT>^CH 


£LC=ELCCA^CH-£IR-ELT 

ELCA?ELCCA«=CH 

_S ke TH = C h * 1 2 Oil lN+3^14j?ELC+2. 0 7*E L T+O .4 6jyp H J *X1 . 0 + D IJ W SH)'»DSWET 


CV=4.0*VHL/<PI’»CM^2'»eLC<) 

GC TO 6 

A. EK 1=0. 13 4S3-C.C7S 17j» ajC^SLIl)#*i_.5+0. (E21*i 1. C.-SL«i*j!L2. 

EK'2=-b.def42+C.’C2S3=»(l i6-£LPI>»*3-0.6l4"22*( UC-SLH)>KX'4+ ' 
1C.C03383>»(1.C-SLP>»*5 

I ( VH-C\<CL ><A R<»C.£*( 1 . t.SUl.>JSl*2JX<jL0^4£I IJCR* IEKJ.tEKy *_ 


lll.+OLVlhL) n«>»C. 66667 
5 BS=SQRT(SV«AR) 

CRT=2.»SW/(eSUSLP+l,C ) ) „ _ , 

E'K3=4.4 0'i5'i'(l.-SLM‘”»*2-Z.494*tI.-SLM)**2.5-4,17 55*{l.-SLNJ*<‘ 
13.5+2.4115’>(l.-SLM**4.5-C.6695>«-(l.-SLM>«>i'5.5+C.3969’!'(l.-StP> 
2** 3<-1.476S»(l.-£LM»*4-tC.£4S75*( l.-SLM)**5-l .7434*il_-rSLR ) 1#__ 
26+T.26835*( i.- SLR )*»7-C. 4 1225* ( 1 .-SL'm)*>!> 8 + 0 -064394(1. -SLR 1**9 
EK4=5. 49415 

EK5_E7_i4225* ( l.-SL M**2 -1 .4965* ( 1 .- SLM ) ** 2_.5-2 .?82_5*(. 1 ..7 SLR 1 **. 


13.5+1. S7575*( l.-SLP )**4 .£-0.5479*( 1.-SLK1445 .5+0.2646* ( 1 .-SLM) 
2 * 43 + 1 . 1 C7 55*( 1. - SLR )** 4 +C. 5 1S75*(1.-SLM) 4*5- 1.453*1 l.-SLM)**6 
2+1.CB71 5* (l.-SLM*47-C.36074(l.-SLKl 4*8+0.0572* (l.-Sim **9 


C07700CO 

0078CQCC 

007900pC 

0Q8CC0C0 

00610000 

008200CO 

'C084CCC0 

0085C0CC 

CC86CCC0 

00870000 

00880000 

_CC89C000 

C09CC00C 

CC91Q0C0 

G092CO00. 

'00930000 

00940000 

_C09500CC 

0096GG00 

00970000 

.C09800CC 

"00990000 

01000000 

CIOIOOCC 



KAUC UU5 



ISN 0045 

EK6=1. 44513 

01O2CCC0 


ISN 0046 

SV'ETH=6K6>*'(CR7=l»3=t TCR*>«2>*EK3/eS+CPiT>l=3.*BS*SLf'y2.+CRT>‘3.*BS* 
1( l.-SLM)/4.+CRT'iTCR**2’* (EK4-eK5)/BS)#U.+DLSVSh>-»-DSWET 

01C300C0 

01040000 


ISN 0047 

TI'/iX=TCP=f‘CP7 

01.C5COCC 


ISN 0048 

ELCA=CRT 

01060000 


ISN 0049 

CeARW=CRTlC.5«(l.C + SLM 

010700CC 


ISN 0050 

^ CSPLMT=C.C76474<V1-L 

010800CC 


ISN 0051 

IF (INCHLL.GT.l) GC TC 7 

01090000 


ISN 0053 

IF (INCCyL.EC.l.CP.INDCYl.EC.a) GO TO 7 

OllCCOCC 


ISN 0055 

Sk = (l.C-XLRLA)*>LALB>l'XLBVC»hC/WS 

Oil lOOCO 


ISN 0056 

IF< INOCYC ,eC.2 ) SW=XLAlE*XL6y»0*W0/KS 

CU20000 


ISN 0058 

H- = HC 

OU2COCC 


ISN 0059 

V=VC 

01140000 


ISN 0060 

CALL ATPOS(FCtAT«IY) 

C1150000 


ISN 0061 

Q=U42636*RHC=«'\(<*2 

01170CC0 


ISN 0062 

CLCES=V«S/C 

. 011800QC 


ISN 0063 

ALFOES=CLCES/6.28 

0119CC00 


ISN 0064 

6S = SQRT1SV-*AR) 

012C000C 


ISN 0065 

CBARi4 = SV>/eS 

01210C00 


ISN 0066 

TCeAR=C.5*(TCR+TCT » 

0122CCCC 


ISN 0067 

SK 1 P= 1.25 <TCB A R>»« 2+0.2 < ICE AP+2.0 

012300CC 


ISN 0068 

eSTCT=BS+CF 

012400CO 


ISN 0069 

APTOT=BSTCT/CEAPW 

C125000C 


ISN 007C 

SUEXP=SU 

012600CO 


ISN 0o71 

SkTOT=SW+CF*CEARW 

C127C0Q0 


ISN 0072 

SV>hET = ShE>P*SXTF 

01280000 


ISN 0073 

IF UNDRDP.EC.n GC TC 8 

01290000 


ISN 0075 . 

l-P = HES 

013CC00C 

1 

ISN 0076 

CALL ATPC£(FES,TIKY) 

01310CCC 

E-J 

ISN 0077 

XLRH=WO’^( l.C-XLEkC) 

013300C0 

LO 

ISN 0078 

IF(XLBhC.EC.l.C) >LRH=VC>l (TVW-l.O) 

01340CCC 


ISN 008C 

OPP=SORT( 4.C*XLFP/(PI*VVA*ENPn 

013500CC 


ISN 0001 

SIGMR=4.C=*>LR^-’4^V^^/^RI-C■*FI*C^R*#2■»ENR*VT*>i'2*C^SI6H) 

0136C0C0 


ISN 0062 

IF (INOPPF.EQ.l) GC TO 9 

013700CC 


ISN 0084 

SICAR=SIGPR 

01380000 


ISN 0085 

TAF=245C.»S IGAR 

C13900C0 


ISN 0036 

AF=TAF/BPR 

C14CC0CC 


ISN 0087 

C-C to 9 

014100C0 


ISN 0038 

8 IF (INOPRF.EQ.CI TAF=AF»EPR 

C142C0C0 


ISN 0090 

IFdNDPRF.EQ.C ) S I GP R= T A F /24 5C . 

01420100 


ISN 0092 

9 ELht=< l.-(C3YLCA+ELHLCA»l=»ELCA 

01430000 


ISN 0093 

EL\(T=(l.-<CeYLCA+ECVLC A) )>»ELCA 

C144CQ0C 


ISN 0094 

ShTsVBARH^VFiL/ElPT 

01450GCC 


ISN 0095 

SVT=VBARV^»VFL/£LVT 

C146C0C0 


ISN 0096 

BFT=SQRT(ARFT«SFT/2.) 

01470000 


ISN 0097 

8V1 = S0RT( ARVT«£VT/2. ) 

01480000 


ISN 0098 

CRFT=2.*BFT/(APFT^ (1.0 + SLPH) > 

01490000 


ISN 0099 

CRVT=2.>»8\T/tAF\T^(1.0 + SlPVT)) 

015C0000 


ISN 0100 

CTHT=SLf^H=*CRHT 

01510000 


ISN 0101 

CTVT=SLPVT*CRVt 

015200C0 


ISN' 0102 

CBARHT={CRhT+CTFT)/2. 

015300CC 


ISN 0103 

CBARVT=(CRVT+CT\,T)/2. 

0154COOO 



POOR QUAim 


PAGE C04f 


ISN 0104 

SKTh=; 

ISN 0105 

SK7V=: 

ISN 0106 

Sh7w=; 

ISN 01C7 

SVTW=; 

ISN oica 

SHE= 

ISN 0109 

S\iT6=: 

ISN 0110 

GC TO 

ISN 0111 

1C IFIINI 

ISN 0113 

CPT=2 

ISN 0114 

BS = 1 

ISN 0115 

Tf'AX : 

ISN 0116 

XPEE ^ 

ISN 0117 

XFE = i 

ISN 0116 

SUETH 

ISN 0119 

SVk = PI 

ISN 0120 

ELCA= 

ISN 0121 

CEARW 


ISt^ 0122 

ISi!L0123. 

ISN 0124 
ISN 0125 

.ISX_P.1.26_ 

ISN 0127 
ISN 0123 
IS1'L_0125)_ 

ISN 013C 

ISN 0131 

ISN 0132 
ISN 0133 

ISii.gi3.4_ 

ISN 0135 
ISN 0136 

I.S.NJ1UJL 

ISN 0138 


PI ^ AR>f CfI/4. 


1. - {TPAX/'eS)*x2 


SL^=0,0 

GC T0_6 

11 CRT=2.*U3.#( VhL-CVCL» )/ (4 .*P I*TCR*( 1.«-0LVLHL1 ) )«‘>#0. 333 
BS=CRT 

.A R_=_ 1.2722.4 

TFAX=TCR*CRT 

XECC={l.-nCR)*>»2J»‘*C.5 

SU ETH= ( PI / 2 , *CPI» '»24P1 / 4 .» TN AX**2 /X£CC*A L0 G I ( I .4XEC C ) /( 1 .-XECC) 

ill.+DUSHSl-)+DSkET 

SV=PI/4.<CRT**2 

CEARh =__S»>/JB§ : 

ELCA=CPT 

SLP=O.C 

_GC TO 4 

12 CCNTINLE 
Ce=ei.OA*C EYLOA 

BllU&M 

EAC 


__ C15500G0 
C15600C0 
015700CC 
_ C15800CC 
" C15500CC 
016C0000 
__ 0161C100 
01610200 
0161C300 
_0161C4C0 
01610500 
0161C600 

0161070C 

"01610800 ‘ 
C161C9C0 
__ 01611000_ 
01611100 
0161111C 

016 11200 

“016H3CO” 

01611400 

01611500 

016116CC 
01611700 
U *01611800 
01611900 
016120CC 

01612100 

01612200 
C161221C 
_ 01612300 
01612400 
01612500 

^01620000 

0163C0C0 



i 


5IZTR 



NAME 

TAG 

TYPE 

' AOD. 

NAME 

TAG 

TYPE 

■ACD. ' 


H 


C 

R>»A 

N.R. 

0 

SF 

C 

R*<4 

000863 


. V, 

SF 

c 

R<4 

OOOg 10 

h 


c 

R«4 

N.R. 


BR 


c 

R><4 

N.R. 

BS 

SF 

c 

R’*4 

000668 


C5 

s 

c 

R*4 

000668 

CV 

s 

c 

R^4 

0006AC 


EK 


c 

Rt4 

N.R. 

FF 


c 

R^4 

N.R. 


HC 

SFfl 

c 

R=>4 

00019C 

HH 

< 


R«4 

000250 


SA 


c 

R*4 

N.R. 

• ST 


c 

R'#4 

N.R. 


VC 

F 

c 

p»4 

OOOIAO 

VT 

F 

c 

R«4 

000143 


V.C 

F 

c 

R«4 

000024 

■ kS 

F 

c 

R«4 

OOOOCC 


AMU 


c 

R«4 

N.R. 

EHT 

SF 

c 

R*4 

00065C 


BVT 

SF 

c 

P>t4 

00066C 

CCP 


c 

R»4 

N.R. 


CDV 


c 

R*4 

N.R. 

CKF 


c 

R*4 

N.R. 


CLK 


c 

R>*4 

N.R. 

CRT 

SF 

c 

R*4 

0006A4 


DK3 


c 

R>!4 

N.R. 

CK4 


c 

R*4 

N.R. 


SKZ 

SF 


R>«4 

00025C 

EK2 

SF 


R*4 

000260 


EK6 

SF 


P»4 

00026C 

EUC 

SF 

c 

R*4 

OOOOCC 


ELT 

SF 

c 

P=*4 

0006CC 

ENP 


c 

■R*4 

N.R. 


FET 


c 

R=»4 

N.R. 

FEW 


c 

R>>4 

N.R. 


HOC 


c 

R*4 

N-R. 

LCl 



1*4 

000270 


RMI 


c 

fi#4 

N.R. 

PCO 


c 

R*4 

N.R. 


SA7 


c 

P*4 

N.R. 

SEE 


c 

R*4 

N.R. 

- 

SKT 


c 

R’«4 

N.R. 

SKI 


c 

R*4 

N.R. 


SKA 


c 

P»4 

N.R. 

SK5 


c 

R*4 

N.R. 


SK8 


c 

R=*4 

N.R. 

SK9 


c 

R*4 

N.R. 


SVT 

SFA 

c 

RA4 

00088C 

Sk 1 



R*4 

000274 

•<0 

TCT 

F 

c 

R>»4 

000004 

TMP 


c 

R*4 

N.R. 

I 

ULF 


c 

R>«4 

N.R. 

VFL 

SF 

c 

R*4 

OOC90C 


hAC 


c 

R*4 

N.R. 

kCC 


c 

R*4 

N.R. 


WFC 


c 

R*4 

N.R. 

kFE 


c 

R*4 

N.R. 


WFh 


c 

B’*4 

N.R. 

khL 


c 

R*4 

N.R. 


WMC 


c 

fi#4 

N.R. 

■ kFC 

* 

c 

R*4 

N.R. 


WSC 


c 

B*4 

N.R. , 

kST 


c 

R*4 

N.R. 


WVT 


c 

B*4 

N.R. 

XEE 

SF 


R*4 

00C273 


XLK 


c 

R=(4 

N.R. 

XMR 


c 

R*4 

N.R. 


ARVT 

FA 

c 

R^*4 

ooocec 

EHFA 


c 

R*4 

N.R. 


CDHT 


c 

PX4 

N.R. 

CCVT 


c 

A *4 

N.R. 


CKVT 


c 

R«4 

N.R. 

■ CRHT 

SF 


R*4 

00027C 


CTVT 

SF 


R«4 

000288 

CAM 


. c 

R*4 

N • R • 


OAMA 


c 

R>»4 

N.R. 

CAMS 


c 

R*4 

N.R. 


cLDN 

F 

c 

RX'4 

OOOCFC 

ELDT 

F 

c 

R*4 

000,100 


ecvT 

SF 

c • 

R f4 

0006E0 

EMLF 


c 

R*4 

N.R. 


FEHl 


c 

B<4 

N.R. 

f EFL 


C ■ 

R*4 

N.R. 


FEWH 


c 

B>*4 

N • R • 

FEkI 


c 

R*4 

N.R. 


GAP3 


c 

R>«4 

N.R. 

GAP4 


c 

R*4 

. N.R. 


GA?7 


c 

R»4 

N. R. 

FFIN 


c 

R*4 

N.R. 


PLIN 


c 

R*4 

N.R. 

RELI 


c 

R*4 

N.R. 


SHPR 


c 

R»4 

N.R. 

Sl-TE 

< 

c 

R*4 

OC08A0 


s'kar 


c 

R’i‘4 

N.R. ■ 

SKCC 


c 

R*4 

N.R. 


SKHL 


c 

RA4 

N.R. ■ 

• SKHT 


■ c 

R*4 

N.R. 


SKPA 


c 

R#4 

N.R., . 

SKPH 


c 

R*4 

N.R. 


Size OF PRCGRAM CCU'OA HEXAOECTmA'L By TES“P'AGE ' 005 


' name' ' 

tag""' 

TYPE 

'■ ACD. 

NAMF • 

TAG 

■ TYPE 

ADO. ■ - 

R 


C 

R*4 

N.R. 

•T 


C 

R*4 

N.R. , 

AF 

SF 

C 

R#4 

00C9C0 

AR 

'SFA 

C 

R*4 ■ 

0C00C8 

B1 



R*4 

000248 

B2 



r*4 

0C024C 

CX 


C 

R*4 

N.R. 

CH 

SF 

C 

R*4 

0006C4 

FM 


c 

R«4 

• N.R. 

FP 


c 

R*4 

, .N.P. 

PI 

SFA 

c 

R*4 

00C864 

' PN 


C 

R*4 

N.R. 

SW 

SFA 

C 

R*4 

00C8C8 

TR 


c 

R*4 

N • R • 

WE 


c 

R*4 

N • R • 

kF 


c 

R*4 

N.R. 

WW 


C 

R*4 

N.R. 

XC 


c 

R*4 

N.R. 

BLP 


C- 

R*4 

N.R. 

8MR 

F 

c 

R*4 

0CO12C 

CCT 


C 

R*4 

N.R. 

CDC 


c 

R*4 

N.R. 

fcKW 


c 

R*4 

N.P. 

CKl 


c 

R*4 

N.R . 

CTP 


C 

R*4 

N.R. 

DhD 

SF 


R*4 

0C0254 

OMR 

SF 

c 

R*4 

OOC9C8 

EKl 

SF 


R*4 

0CO258 

EK4 

SF 


R*4 

000264 

EK5 

SF 


R*4 

0CO268 

ELF 


c 

■ R*4 

N.R. 

ELN 

SF 

c 

R*4 

CC06D4 

ENR 

FA 

c 

R*4 

OOCllC 

FEH 


c 

R*4- 

N.R . 

GLF 


c 

R*4 

N.R. 

HES 

SFA 

c 

R*4 

0C0154 

OWE 


c 

R*4 

N.R. 

RHC 

F 

c 

R*4 

CCC86C 

SA5 


c 

R*4 

N.R. 

SA6 


c 

R*4 

N.R . 

SFC 


c 

R*4 

N.R. 

SHT 

SFA 

c 

R*4 

0CC89C 

SK2 


c 

■R^A 

N.R. 

SK3 


c 

R*4 

N.R. 

SK6 


c 

R*4 

N.R. 

5K7 


c 

R»4 

N.R, 

SLM 

SF 

c 

R*4 

00 CO 08 

STH 


c 

R*4 

N.R . 

TAF 

SF 

c 

R*4 

0008E4 

TCR 

F 

c 

R*4 

000000 

TOO 


c 

R*4 

N.R. 

TVk 

F 

c 

R*4 

OC0150 

VIN 


c 

R*4 

N.R. 

VMO 


c 

R*4 

N • ^ ■ 

WEP 


c 

R*4 

N.R. 

WES 


c 

R*4 

N.R. 

WFR 


c 

-R*4 

N.R. 

W'FS 


c 

R*4 

N.R. 

WHT 


c 

R*4 

N.R. 

kLG 


c 

R*4 

N.R . 

WPH 


c 

R*4 

N.R. 

WRC 


c 

R*4 

N .R. 

WTM 


c 

R*4 

N.R. 

WVA 

FA 

c 

R*4 

0C0120 

XL8 


c~ 

R*4 

' N.R. 

xLr 


"c 

' R*4 

N.R , 

ALFR 


c • 

R*4 

N.R. 

ARHT 

FA 

c 

R*4 

OOOOCC 

BHPP 


c 

R*4 

N.R. 

BhPR 


c 

fi*4 

N.R. 

CKFF’ 


'c 

R*4 

N.R. 

CKHT 


c 

R*.4 

N.R. 

CRVT 

SF 


R.«4 

OOC280 

CTHT 

SF 


R*4 

000234 

CAM2 


c 

R*4 

N.R. 

CAM3 

• 

c , 

R*4 

N.R. 

OELR 


c 

R*4 

N.R. 

"CVCL" 

F 

c 

P.>»4 

000114 

ELHT 

SF 

c 

R*4 

00C6DC 

ELOA 

SF 

c 

R*4 

0C06D8 

ETAP 


c 

Rv4 

N.R. 

ETAT 


c 

R*4 

N.R . 

FEHT 


c 

R'f'A 

N-.R. 

FEVT 


c 

R*4 

N.P. 

GAPl 


c 

R*4 

N.R. 

GAP2 


c 

R*4 

N.R. 

GAPS 


c 

R«4 

N.R. 

GAP6 


c 

R*4 

N.R. 

■ lt'hL 


c 

1*4 

N.B. 

PEHF 


c 

R*4 

N.R. 

RMAX 


c 

R*4 

N.R. 

SHPA 


c 

R*4 

N-R. 

SHTW 

SF 

c 

R>K4 

00C8A4 

SKAC 


c 

R*4 

N .R . 

SKFS 


■ 'C " 

ft*4 

N.R. 

SKFW 


c 

R*4 

N.R . 

SKLG 


c 

R*4 

N.R. 

SKMC 


c 

R*4 

N.R. 

SKRC 


c 

R*4 

N.R. 

SKSC 


' c 

R*4 

N.R., 



SKTH SF 



00028C 

SKTH 

C 

R*4 

N.R. 


SKVT 

C 

R«4 

N.R. 

SKV.P 

C 

R*4 

N.R. 


SKU 

C 

R>»A 

N.R. 

SK12 

C 

R*4 

N.R. 


SK15 

c 

R*A 

N.R. 

SLHF F 

c 

R*4 

OOOOE8 


SVTV« SF 

c 

R>«A 

0008C4 

SWTT 

c 

R*4 

N.R. 


TBTC 

c 

R=«-^ 

N.R. 

TCFT F 

c 

R*4 

OCCOEC 


TINY SFA 

c 

P*4 

000158 

T IN2 

c 

R*4 

N.R. 


TQVW 

c 

Rj»4 

N.R. 

TkTW 

c 

R#4 

N.R. 


WBAL 

c 

Ri*4 

N.R. 

VsENV 

c 

R*4 

N.R. 


WPDS 

c 

R>>4 

N.R. 

V«PEI 

c 

R*4 

N.R. 


WPRP 

c 

R<4 

N.R. 

VRCA 

c 

R*4 

N.R. 


XLBH 

c 

R*4 

N.R. 

XLCD F 

c 

R*4 

000034 


XMSE SF 


R>!4 

0002A8 

YLS2 

c 

R*4 

N.R. 


ATKIV SFA 

c 

R*4 

0001A4 

AlMCS JF 

XF 

RT4 

OCOQOO 


CBARU SF 

c 

R=»4 

00067C 

CLC6S SF 

c 

R*4 

0006B4 


CPNUO 

c 

R^4 

N.R. 

CFPAR 

c 

R*4 

N.R. 


CELSU 


R*4 

0002E4 

CELTA 

c 

R*4 

N.R. 


CEIWP. 

c 

RX4 

N.R. 

CSVfcT F 

c 

R*4 

OOOiOC 


6TAP2 

c 

P*4 

N.R. 

ETAF4 

c 

R*=4 

N.R. 


hMAXD 

c 

R“*4 

N.R. 

ICRLS 

c 

1*4 

N.R. 


FFET2 

c 

R#4 

N.R. 

REALJ 

c 

R*4 

N.R. 


SIGMA 

c 

R*4 

N.R. 

SICHR SF 

c 

R*4 

0009CC 


SK6AL 

c 

P>t4 

N.R. 

SKGBl 

c 

R*4 

N.R. 


SKPEI 

c 

B=»4 

N.R. 

SKFES 

c 

R*4 

N.R. 


SKRCA 

C R*4 

N.R. 

SKSC A 

c 

R*4 

N.R. 


SWETH S 

c 

R*4 

oooacc 

Sk^EXF SF 

c 

R*4 

OOOBOO 


S2FtHC ■ 

c 

R*4 

N.R. 

TECLl 

c 


N.R. 

t 

16POV, 

c 


N.R. 

TESFC 

c 

R*<4 

N.R. 


TPROP 

c 

R*4 

N.R. 

TVCMR 

c 

R*4 

N.R. 

•1^ 

VDl VE 

c 

R*4 

N.R. 

\>GASa SF 

c 

R*4 

OOC904 

^3 

ViPSTR 

C R’fA 

N.R. 

XLALB SF 

c 

R*4 

0CC9A8 


ALOG 

XF 

R*4 

000000 

SORT 

XF 

R*4 

000000 


BHPSUP 

C 

P’*4 

N.R. 

CE/RFT S 

c 

R*4 

000674 


CLALPH 

c 

R»4 

N.R. 

CRSIND 

c 

R*4 

N.R. 


QELFCR 

c 

R*4 

N.R. 

EELRTH 

c 

R*4 

N.R. 


OELWST 

c 

R*4 

N.R. 

CLShSH F 

c 

R*4" 

ooclca 


DRGINO 

c 

R^4 

OOOCCC 

CSFIHT S 

c„ 

R*4 

0006C8 


ELVLOA F 

c 

R*4 

OOOOAC 

ETAIND 

c 

R*4 

000020 


FEDRAG 

c 

R>»4 

N.R. 

FIXIND 

c 

R*4 

000014 


INDCRL 

c 

I»4 

N.R. 

l^CCfiG 

c 

1*4 

N.R. 


lADFIX 

c 

1*4 

N.R. 

INCFUL 

c 

1*4 

000834 


INOPQW 

c 

1*4 

N.R. 

INCFRP 

c 

1*4 

000844 


NSIZTR 



000000 

CPIIND 

c 

R*4 

000000 


RCMINO 

c 

R*4 

000018 ■ 

PHCRHO F 

c 

R*4 

00003C 


SKENVl ■ 

c 

R*4 

N.R. 

SKENV2 

c 

R*4 

N.R. 


SSIGMA 

c 

R*4 

N.R. 

STFETA 

c 

R*4 

N.R. 


TFETMR 

c 

R*4 

N.R. 

TCLIND 

c 

R*4 

N.R. 


WPAYLO 

c 

R*4 

N.R. 

XTGTA2 

c 

R*4 

N.R. 


CCf'MGN INFQRM/TI 
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NAME CF 

CCNNCN 

BLOCK * 

*' -SI2E 

CF BLOCK 00090C 

FEXAOECIMAL 

BYTES 


• 


- 


VAR, NAf'E 

TYPE 

PEL. ACCR,’ 

VAR.. NAFE 

TYPE 

REL. AOOR. 

VAR. NAME 

TYPE 

REL. AOOR. 

VAR. NAME 

TYPE 

REL. ADDR. 


OPTI^D 

PfA 

000000 

KJLINC 

R»A 

0000 OA 

DYLIND 

RAA 

00C008 

DRGIND 

RAA 

CCOOOC 


CSkINC 

P»A 

OOOCIO 

FIXING 

RAA 

OOOOIA 

RDMIND 

RAA 

00CQ13 

PRPIND 

R*A 

cccoic 


ETA I^C 

R*A 

000020 

V(C 

R*A 

0C002A 

XLBWO 

RAA 

00CC28 

XLRLA 

RAA 

OOOQ2C 


VC-ECVH 

P*A 

000030 

XLGC 

P*A 

00003A 

HMAXD 

BAA 

, N.R. 

RHORHO 

raa 

CC003C 


V^C 

R=»A 

M.P. 

EMLF 

R*A 

N.R. 

CKl 

RAA 

N.R. 

CELViF 

RAA 

N.R. 


CKFF 

R=»A 

N.R. 

VDIVE 

R=l'A 

N.P. 

HOO 

BAA 

N.R. 

RCO 

R*A 

N.R. 


TCC 

R'f'A 

N.R. 

GAP 1 

RAA 

N.R. 

SGTIND 

R*A 

N.R. 

ELHLCA 

RAA 

0C00A8 


ELVLCA 

R*A 

OOOCAC 

■ GAP2 

Rl-A 

N.R. 

AR 

RAA 

0CC0C8 

V.S 

raa 

OOOOCC 


TCR 

R#A 

OOOOCG 

TCT 

R*A 

OOOOOA 

SLM 

RAA 

000008 

APHT 

RAA 

OOOODC 


■ rCFT 

R^A 

OOOOEO 

VEARF 

R’S'A 

OOOOEA 

■sLmh 

RAA 

OCCCEB 

ABVT 

RAA 

OCOOEC 


TCVT 

R#A 

OOOORO 

VGARV 

R=>A 

OOOOFA 

SLHVT 

B*A 

00CCF8 

ELCN 

R*A 

0000 FC 


ELCT 

RAA 

OOOICO 

ELCOA 

RAA 

OOOlOA 

CLSWSH 

RAA 

000108 

DSNET 

R*A 

cooioc 


OLVLFL 

P*A 

ooono 

CVCL 

R»A 

0001 lA 

cbyLoa 

RAA 

000118 

ENR 

RAA 

COOllC 


WVA 

p#A 

000120 

CAI^l 

RAA 

N.R. 

DAM2 

RAA 

N.R. 

BMR 

raa 

00012C 


CA.^a 

P«A 

N.R. 

CLEYE 

P»A 

N.R. 

THETHR 

RA4 

N.R. 

XC 

R*4 

N.R. 


XFR 

P*A 

N.R. 

TVCMR 

R*A 

N.R. 

VT 

RAA 

00C1A8 

CTS IGH 

RAA 

OC014C 


TVW 

R» A 

000150 

FES 

R*A 

00015A 

TINY 

RAA 

OOC158 

ETAP2 

RAA 

N.R. 


ETAPAN 

R»A 

N.R. 

TBEF5 

R»A 

N, R, 

T68APA 

RAA 

N.R, 

GAP3 

raa 

N.R. 


CANA 

R>KA 

N.R. 

ENF 

B*A 

N.R. 

ETAT 

RA4 

N.R. 

HC 

RAA 

00019C 


VC 

Kf A 

OOOIAC 

ATMIV 

R^A 

OOOIAA 

CDVf 

■ RAA 

N.R. 

CDHT 

RAA 

N.R, 


CANS 

F’»A 

N.R. 

CLTAFE 

P»A 

N.R. 

FEDRAG 

paa 

N.R. 

EXPCRG 

RAA 

N.R. 


ccc 

P«A 

N.R. 

CLALPF 

, R*A 

N.R. 

CKVT 

RAA 

N.R. 

CKHT 

raa 

N.R. 


CHF 

RAA 

N.R. 

CKV 

P*A 

N.R. 

REH 

raa 

N.R. 

TCLN 

RAA 

N. R. 


T8CU 

R*A 

N.P. 

TECCV I 

R»A 

N.R. 

GAPA 

RAA 

N.R. 

kPE 

RAA 

N.R. 

1 

WFU 

P*A 

N.R. 

CELWFC 

R*A 

N.R. 

DELWP 

RAA 

N o R • 

DELkST 

RAA 

N.R. 

H* 

‘ SKCC 

RwA 

N.R. 

SKRC 

P*A 

N.R. 

SKSC 

raa 

N.R. 

SKFW 

RAA 

N.R. 

>F=> 

SKTN 

R* A 

N.R. 

SKRCA 

RAA 

N.R. 

SKSCA 

• B*A 

N.R. 

SKRC 

RAA 

N.R. 

H 

SKAC 

R*A 

N.R. 

SKFL 

P*A 

N.R. 

SKENVl 

RAA 

N.R. 

SKENV2 

RAA 

N.R. 


SKGEl 

P*A 

N.R. 

SKGB2 

B^A 

N.R. 

SKSLNT 

RAA 

N.R. 

SKBAL 

RAA 

N.R. 


SKLG 

R*A 

N.R. 

SKVik 

B*A 

N.R. 

ELF 

raa 

N.R. 

RMI 

RAA 

N.R. 


SKVP 

R»A 

N.P. 

SKHT 

fi*A 

N.R. 

SKVT 

RAA 

N.R. 

SKPRB 

RAA 

N.R. 


SKREF 

P>»A - 

N.R. 

SKFF 

BAA 

N.R. 

SKAMO 

RAA 

N.R. 

SKAR 

raa 

N.R. 


SKFA 

P*A 

N.R. 

SK'VTAF 

RAA 

N.R. 

SKPOS 

RAA 

N.R. 

SKPCSZ 

RAA 

N.R. 


SKT 

R*A 

N.R. 

SKFS 

fi*A 

N.R, 

SKPEI 

RAA 

N.R. 

SKPES 

RA.A 

N • • 


SHI 

R#A 

N.R. 

SK2 

RAA 

N.R. 

DK3 

RAA 

N.R. 

CKA 

R*A 

N.R. 


SK5 

R*A 

N • A • 

SK6 

PAA 

N.R. 

SK7 

RAA 

N.R. 

SK8 

RAA 

N.R. 


SH9 

R’^A 

M • R ♦ 

• SKIC 

RAA 

-N.R. 

SKll 

RAA 

N.R. 

SK12 

RAA 

N.R. 


SK13 

R*A 

N.R. 

SKIA 

raa 

N.R. 

SKIS 

BAA 

N.R. 

PLIN 

RAA 

N.R, 


SAFE 

RAA 

N.R, 

TCLINC 

raa 

N.R. 

XTGTA2 

RAA 

N.R. 

' T I-N2 

RAA 

N.R. 


TVTK 

R«A 

N.R. 

PFET2 

RAA 

N.R. ' 

DElTH 

RAA 

N.R. 

STH 

RAA 

N.R. 


CFiSINC 

• R^A 

N.R, 

XTGTAA 

RAA 

N.R. 

TINA • 

RAA 

N.R. 

■VIN 

R*A 

N • R • 


CELP 

R*A 

N.R. 

RMAX 

RAA 

N.R. 

CELFCR 

RAA 

N.R. 

ENPCR 

Raa 

N.R. 


DELWFL 

. R*A 

N.R, 

STPV 

RAA 

N.R. 

HFIN 

RAA 

N.R. 

GAP6 

RAA 

N.R. 


CYCFFL 

P*A 

N.R. 

FF 

RAA 

N.R. 

SK3 

RAA 

N.R. 

SKA 

RAA 

N.R. 


TEH 

RWA 

N-'B. 

' TETC 

RAA 

N.R. 

TBH2 

RAA 

N.R. 

TBCRP 

raa 

N.R. 


TBSfC 

P*A 

N.P. 

TBPCk 

• RA^ 

N.R. 

GAP7 

RAA 

N.R. 

ALFCES 

raa 

0C06AO 


ALFCL 

R*A 

N.R. 

ALFF 

■ • RAA 

N.R. 

AMU 

RAA 

N.R. 

BHPA 

raa 

N.R. 


BhFR 

R«A 

N.R. 

BHFSLP , 

RAA 

N.R. 

BHT 

RAA 

00C65C 

BLP 

RAA 

N.R. ■ • 


ER 

• B*A 

N.R. 

BS 

'RAA 

0CQ668 ' 

BVT ' 

' RAA 

00066C 

CBARF 

•RAA 

N.R. 


!,7-li42 


_Q006H._ 

N ♦ R # 

N •R • 

0006 

000634 

0006C4 

_M06C^ 

N,P. 

N.R. 

N.R. 

N.P. 

N.B._ 

N.R. 

M . R. 

N. R. 
N.R. 

N.R^ 

n'.r. 

00O8A0 

N . B^._ 

oobuco 

0008CC 
_ N.B._ 

00O8F0 

N.R. 

000910 

N.R. 

N.R. 

^N.R._ 

N.R. 

N.R. 

N-..II*- 

N.R. 

N.R. 

N_.R_,_ 

N.R. 

N.R. 

00 C 9 C 0 


C'6ARVL_ 

CCV 

CPPAF 

CTF 

“ce" 

CSFLN1 

ELCA_ 

ETAF 

FEl-7 

FEV> 

FF 
GNDC 1 
JNDDRG 
INCHUL 
INCFRF 

NDCFF 

P i 
BHPRF 

SA£ 

SFPA 

SHTh 

SThETA 

SVTk 

SV>T1 

TAF_ 

TPP 

VGASE 



KE 

hFC 

kGSE.. 

WMC 

WPEl 

kPJ-£_ 

V»SC 

hVT 

b.ENV_ 

xlVl 

TCVW 

EHPF 


PAGE 008 


CBARW 


0CC67C 

CCP 

, R*4 

N.R. 

CLW ■ 

' B>14 

'.N.R. 

CPINU 

•R*4 

N.R. 

CPPRO 

P*4 

N.R. 

CPTOT 

, P»4 

N.R. 

CV 

R*4 

00C6AC 

CX 

R*4 

N.R. 

DELRTH 

R»4 

N.R. 

DELTA 

R*4 

N.R. 

ELC 

R*4 

00C6CC 

ELF.T 

B*4 

OCQ6DO 

SUT 

R>^4 

00C6DC ' 

ELVT 

B*4 

000660 

FEH 

■r44" 

N.R. 

FEHI 

R*4 

N.R. 

FET 

B=t4 

N.R. 

FETCT 

P*4 

N.R. 

F Evi H 

R*4 

N.R. 

FEViI 

R*4 

N ■ R » 

ETAP4 

R»4 

N.R. 

GAMDH 

R*4 

N.R. 

H 

R*4 

N.R. 

ICRUS 

1*4 

N.R. 

INODYL 

I>*4 

000828 

INDETA 

1*4 

N.R. 

INDOPT 

I»4 

N.R. 

INDOSW 

1*4 

N.R. 

INDROH 

1*4 

00C848 

IPRINT 

1*4 

N.R. 

NOXPJ 

1*4 

N'.R. 

OWE 

B*4 

N.R. 

Q 

R*4 

0CC868 

RhO 

R*4 

00086C 

R 

R*4 

N.R. 

RN 

R*4 

N.R. 

SA6 

. R*4 

N'.R. 

SAT 

R*4 

N.R. 

SHPR 

R*4 

N.R. 

ShT 

R*4 

00089C 

SIGMA 

P*4 

N * R ♦ 

SSIGMA 

R*4 

N.R. 

STMAX 

R*4 

N.R. 

SVT 

R*4 

0008BC 

SW 

R*4 

00C8C8 

S'nETh 

R*4 

0008CC 

SWU'ET 

B*4 

0008D8 

S2RH0 

R*4 

N.R. 

TCBAR 

ft*4 

0CC8E8 

THETA 

R*4 

N.R. 

TPROP 

R*4 

N.R. 

TR 

R*4 

N.R. 

VGASR 

R*4 

OCCSOO 

VhL 

R*4 

OCC90C 

WBAL 

P*4 

N.R. 

KBALNT 

R^‘4 

N.R. 

*^EP 

R*4 

N.R. 

WES 

R*4 

N.R. 

WFR 

B*4 

N.R. 

WFS 

P*4 

N.R. 

Whl 

R*4 

N.R. 

WHT 

R*4 

N.R. 

HPAYL 

R*4 

N.R. 

WPC 

R*4 

N.R. 

WPH 

R*4 

N.R. 

WPR8 

R*4 

N.R. 

WPSTR 

R*4 

N.R. 

WRC 

R*4 

N.R- 

ksSCA 

R*4 

N.R. 

WST 

P*4 

N.R. 

wu 

R*4 

N.R. 

KPAYLO 

R*4 

N.R. 

XLALfi 

R*4 

0009A8 

XLB 

R*4 

N.R. 

XLR 

P*4 

N.R. 

XLW 

R*4 

N.R. 

OMR 

R*4 

0CC9C8 

SIGMR 

R*4 

0Q09CC 

SEE 

R*4 

N.R. 






label" a'CCR label "ACCB label"" ACDR ■ 'LABEL ADDR” "'PAGE’COg 

_Q.CCi£2 ^i^ CCCGCE 6 CCOC 7 OOOD38 _ _ 

8' CCCECe ' ■ '8 "CCC"E3A “ " " '"lb '"OCOFS'S ” ' "il'"0bl080 

12 OC1IA6 

♦c?tToTs'Tn "effect* n^e t'^c 27uTe^^^^ Tt ^fZE'ibb cck 7 ^ 

*CP71 0NS IN EFFECT* SOURCE tE aCCIC r C_L I_S,1 * A C C E CK , LC AC , HAP , NOED IT > 1 0 , N OXR EF 


*STATISTICS* SCURCE STATEMEMS = 137 , PROGRAM SIZE = A57C 

*Tt7tI ST ICS* Ko C I A G NC $T‘fCS"G EK ER"riTc 


<***** END CF CCMFILATICN ****** 


83K BYTES CF CORE -NOT USED 



TSN 0050 


ISM 0051 
ISM 0052 
ISM 0053 
ISM 005A 
ISM 0055 
ISM 0056 
ISM ■005"'? 
ISM 0058 
ISN 0059 
ISM 0060 
ISM 0062 
ISM 0063 
ISN 006-4 
ISN 0065 
ISM 0066 


ISM 0068 

ISM 0069 
ISM 007C 
ISM 0071 


ANUN = AM JN >> 


ADcX’^ ^/lCeN (XTAE ( I)-XIAB(M) J 

13 COMIMjE 

11 T^BLE = » ’iT/Et n /ACEN * TABLE 

iTTfURN 
10 J= 1 

K= M0R0 + 1 ____ 

GC ftr“"8‘ 

9 J = J-1 

K= K-1 

rnTTriTiorpi s) gc to s 

GC TO 14 

171 CC^TINL'g 

182 J = I - NCRC/2 
K = I + NCRC/2 

IF ( L.NE.C ) >1= J»1 


GC TO 14 

argument in table 

16 TABLE = YT ABU ) 

RETURN 

ENC 


PAGE 


0C5 ICCCC 
'C05 2X0CC 
OC53COCC 
OO54C0CO 

CQ56CCC0 
O057C0CC 
•T5ir3iS'075'C7r 
CC5900CC 
006CCOCC 
Tra61"C0'Q'C‘ 
C062CCCC 
OO63C0OC 
“Gtf5'47;o‘(r(3“ 
C065C00C 
0066CC0C_ 
~C7)67 CO 07) 
CC63CCCC 
C069CC0O 
—-''GTCCocl” 


0071CCCC 



SIZE OF PPCGRAH 0C046E HEXADECIMAL bYlbb PAbc UC'i 


TABLE / 


NAME TAG 
I SF 
P SF 


TYPE ADD. 
I«4 OOOC8C 
I«4 OOOCSC ' 


AAPE TAG 
J SF 
X F 


TYPE ADD. 
I«4 000090 

R*4 OCOOAC 


NAME TAG 
K SF 
I ER S 


TYPE ACC. 
I’i'4 00C094 

1*4 OOOOA4 


NAME TAG 
L S 

NNN SF 


TYPE ADO. 
1*4 0C0098 

1*4 OCOOA8 


ADEN SF R*4 OOOOAC 

YTAB F XR R*4 OOOOCO 


ANUK SF 
NXPTS F 


R*4 OOOOSO 
1*4 OCOOB8 


NORD, FA 
TABLE SF 


1*4 0CCCB4 
R*4 OOOOBC 


XTA8 F XR R*4 CCOOOC 








LABEL 


ACC« 


label 


AUCR 


LABEL ADDH 


LABEL 


AOOR 


PAfiE^DoT" 


18 GCC19E 
15 GCC266 

8 0CC2BE 

9 0CC276 


2 1_^01AJ_ 
n" CC'C2‘7e 
13 CC032E 
171 CCC38E 


20 CCCIEO 
ItiC CCC2"7C NR 
11 000338 

182 CC0392NR 


19 000200 

lA 0002A^ 
10 000366 

16 C003C6 
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LEVFL 21.7 ( JAN 73 ) 


OS/360 FORTRAN H 


DATE 75-128/16.06.15 


COMPILER OPTIONS - NAME= MAIN, OPT=02f L1NECNT=5A, S I2E=OOOOi4 , 

SOURCE. E3COIC,NOLIST,NOOECK,LOAD,MAP,NOcDIT, ID.NOXREF 


ISN 0002 


SUBROUTINE THRUST ( TPROP) 




00010000 



MEMBER NAME 881THRST 





00020000 . 


c 

page 1 

INPUT LOG 

0001 THRU 0050 



00030000 

ISN 0003 


COMMON 

OPTING 

.HULIND 

.OYLINO 

.DRGINO 

.OSWIND 

,00040000 



IFIXIND 

.ROMIND 

.PRPINO 

, ETAIND 

.WO 

.XLBWO 

. C0050C00 



2XLRLA 

.VG8QVH 

,XLGD 

.HMAXD 

.RHQRHO 

,VMQ 

,00060000 



3EMLF 

.CXI 

.DELWF 

,CKFF 

.VOIVE 

,H00 

,00070000 



4RG0 

.TOO 

.GAPU5) 

.SGTIN0I12) 

.ELHuUA 

.ELVLOA 

,00030000 



5GAP2(6I 






0 0093 COO 


c 

PAGE 2 

INPUT LOC 

0051 THRU 0100 



00100000 

ISN 0004 


COMMON 

AR 

,WS 

,TCR 

,TCT 

.SLM 

,00110000 



lARHT 

.TCHT 

.VBARH 

,SLMH 

,ARVr 

,TCVT 

.00120000 



2VBARV 

.SLMVT 

,ELDN 

, ELDT 

.ELOJA 

.OLSWSH 

,00130000 



3DSWET 

.OLVLHL 

,DVOL 

.CBYLOA 

,ENR 

,WVA 

,00140000 



4DAM1 

.DAM2 

,BMR 

,DAM3 

.CLEYE 

.THETMR 

,00150000 



5XC 

.XMR 

.TVCMR 

, VI 

.CTSIGH 

,TVW 

,00160000 



6HES 

.tiny 

.ETAP2 

.ETAP4N 

,TBEM5I5) 

,TB3AP4(51 

,00170000 



7GAP3 






00180000 


c 

PAGE 3 

INPUT LOC 0101 THRU 140 



00190000 

ISN 0005 


COMMON 

DAM4 

,ENP 

,ETAT 

,HC 

.VC 

,00200000 



lATMIY 

.COVT 

.CDHT 

,0AM5 

,OLT,tFE 

.FEORAG 

,00210000 



2EXP0RG 

.CDC 

.CLALPH 

,CKVT 

.CKHI 

,CKF 

,00223.000 



3C KW 

.RELI 

.TCLN 

,TBCL1(3) 

.TBCUWI (81 

,GAP4(4) 

00230000 



PAGE 4 ; 

INPUT LCC 141 THRU 200 

WEIGHT DATA 


00240000 

ISN OCOo 


COMMON 

WFE 

,WFUL 

.DELWFC 

.OELrtP 

.OELWST 

,00253000 



ISKCC 

.SKRC 

,SK5C 

,SKFW 

,SKTM 

.SXRCA 

,00260000 



2SKSCA 

.SKMC 

,SKAC 

.SKHL 

.SXENVl 

.SKENV2 

,00270000 



3SKG81 

-.SKGB2 

.SKSLNT 

.SKBAL 

,SKLG 

.SKWW 

,00280000 



4ELF 

,RMI 

.SKWP 

.SKHT 

,SKvr 

.SXPRB 

,00290000 



5SKRSF 

,SKPH 

.SKAMD 

.SKAR 

,5XPA 

.SKVTAR 

,00300000 



6SKPDS- 

.SKP0S2 

.SKI 

,SKFS 

.SKPcI 

.SXPES 

,00310000 



7SK1 

.SK2 

,DK3 

,DK4 

,SK5 

,SX6 

,00320000 



8SK7 

.sxa 

,SK9 

♦ SXIO 

,SKli 

,SK12 

,00333000 



9SK13 

.SK14 

,SK15 

.PLIN 

,GAP5(31 


00343000 


c 

PAGE 5 

INPUT LOC 201 THRU 300 




00350000 

ISN 0007 


CCHMON 

TOL INDI5) 

,XTGTa2(5> 

,TIN2(5) 

;TWTW(51 

,PFET2(51 

,00360000 



1DELTHI5) ,STH(5> 

,CRSIN0(5) 

.XTGTA4I51 

,T1N4(51 

,VIN(51 

,00370000 



20ELR( 5) 

.RMAXI5) 

♦0ELFCR(5) 

,ENPCR(5) 

.OtLWPUSl 

,STPW(5l 

,00380000 



3HFINI5) 

»GAP6 (10) 





00393000 


c 

PAGE 6 

INPUT LOC 301 THRU 400 




00403000 

ISN OC08 


COMMON 

CYCPBL 

,FF 

,SK3 

,SX4 

,TBH1(51 

,00410000 



1TBT0(5) 

,TBH2(5) 

,TBCRP<5) 

,TBSFC(8) 

,TBP0WI8> 

,GAP7(601 

00420000 


c 

WORKI NS 

COMMON 





00430000 

ISN 0CC<5 


COMMON 

ALFOES.ALFDL 

, ALFR.AMU. 




00440000 



1 

BHPA.BHPR.BHPSUP.8HT.BLP.BR.BS.BVT 

t 


00450000 



2 C8ARF. 

CBARHT .CBARVT 

.CBARW.CCP, 

CCT.COV.CLW 

, CPINU.CPNUD.CPPAR.CPPR000460 000 



3.CPT0T, 

CRT.CTP.CV.CX 

.CLDES.CB, 




00470000 



'4 DELRTH 

.DELTA, OH, DSPLMT. ELC . ELHT , ELN , 

ELQA.cLT.ELVT.EN.ETAP. 

00480000 



5 FEH.FEHI .FEHL.FEHT, 

FET.FETOT.FEVT.FEW.FEWH.FEWi .FH,FP,ETAP4 

00493000 

ISN 0010 


COMMON 

GAMD1K3.15) . 

GLF.GMDOK 161 ,H, 



00500000 



PAGE 002 


ISM OCll 
ISM 0012 

ISN 0C13 
■ ISM OCIA 


ISN 0015 
ISM 0C16 
ISN 0017 


ISM 0018 


ISM CC19 
ISM 0020 
ISN 0C21 
ISN 0C22 
ISM 0023 
ISN 0024 
ISM 0C25 
ISN 0026 
I ISN 0C27 
ISN 0C28 

ISM 0C29 
ISN 0C30 
ISN 0C32 
ISN 0033 
ISN 0035 
ISM 0036 
ISN 0037 
ISM 0039 
ISN 0041 
ISN 0C4? 
ISN 0C43 
ISM 0C44 
ISN 0045 
ISN 0046 
ISN 0047 
, I SM 0048 
ISN 0049 
ISM 0050 
ISM 0C51 
ISN 0C53 
ISN 0054 
ISM 0056 
ISN 0057 


7 rCRUS, IM0CRU,IN00RG, INDOYL, INOETA, INDFIX . I NDHUL, INDOPT, INOOSWf 00513000 

8 IiMOPOW. INDPRP, IMORDM,IPRINT 00520000 

CCMMON LTHLfNDCPPfNOXPJ,OWE,PEHF,PI,0,RHa,REALJ*RHPMR,R,RN 00530000 

CCHNON S A, S A5, S A6 , S A7, SFC. SHPA, SHPR, SH T, S HT Ef SHI W, SIGMA, SSI GMA, ST, 00540 000 

lSTHeTA,STMAX,SVT,SVTE,SVTW,SW,SWETH,SHEXP,SWTT,6WWET,S2RH0 C0550000 

CCMMON T,TAF,TCEAR,THETA,TMAX,THP,DUM2,Trl,ULF,V0ASB,VGASR,VHL,V 0 0560 000 

CCMMON W,W8AL , W8ALNT , V*CC , WE , WEP ,WES , WF , WFC , WFR , wF S , WFW , 005 70 000 

1 WGSa ,WHL,WHT ,WLG,WMC,WPAYL , WPC , WPDS , WPEI , W PH, WPR 8 , WPRG, WP RP , WPSTR00580 000 

2,WRC,WRCA tWSC ,WSCA,WST,WTH,WVT,WW,WPAYLO,WAC,WENV 00590000 

CCMMON XLALB,XL8,XLBH,XLHL,XLR,XLW,YLS2,TOVW 00600000 

COMMON DMR,S1GMR,AF,8HP?,SEE 00600001 

COMMON /OOD/ A0(3, 15) ,A1(3, 15), A2{3, 15) ,3B0{16),BBH16), 362(161, 00600002 

1 RJ3( 10) ,CP0W3{ 10) ,ETAI3(i0,10) ,RJ4(10) ,CPDW4(10) , 00603003 

2 ETAI4I 10,10) ,AMACH(3) .CLLL115) ,CLGAM(16) ,CPQW33{20) , 00600004 

3 Cn3(20) ,CTI4(20) 00600005 

MAMECIST /NTHRST/ RE AU , ETAP.NQXP J ,NOCPP, CC P,CCT, ETAI , EMH75, 00610000 

1 GAM02,TANP,PHIT,SINP,CUK,CH,GAH01,DELGM1,CL2, 00620000 

2 CELGM2,ITER,Cl.3,CTIN0,V 00630000 

M0XPJ=XPJ^0^•0. 1 00640000 

M0CPP=CPPN0+0. 1 00650000 

PI=3. 14159 00660000 

DTOR=0.0174532S 00650100 

RT0D=57. 2957795 00660200 

SIGS=0.5*SI6HR 00660300 

SHPA=BLP 00660400 

EM=V/SA 00660500 

REALJ = i,689f‘PI*V/VT 00670000 

CCP=2200.*( PI *STHETA)#»3*BHPP*YLS2#SHPA*ETAT/ ( 0. 009507#VT**3 00680000 

l#DM«*“t=2*ENR ) 00693000 

ITER=0 00700000 

7 IF (REALJ.EQ.0.0) GO TO 19 00710000 

EMH75 = EM«S0RT( (C.75*PI/REALJ)**2H.O) 00720000 

IF (EMH75.lt. 0.70) EMH75=0-70 00730000 

GAM02=1.0 00740000 

TANP=4.0*REALJ/(3.0’»PI) 00750000 

IF IBMR.E0.3.Q) ETA I = 81 V ( RE AL J , CCP , RJ3 , CPOW 3 , ETAI 3 , 10 , 10, 10 , 10) 00760000 

IF (BMR.EO.4.0) ETA I=BI VIREAL J.CCP ,RJ4 ,CPaW4,ETAI4, 10 , 10,10 ,10) 00773000 


PH1T=ATAN(TANP/ETAI ) 

SINP=SIN(PHIT) 

CLIK=4.0*CCP/ (S IGS*SINP*(COS( PHIT)+SINP*TANP)<‘*2«‘(0.75*PI)**4) 
CLl=CLIK/( l. + TAMGAMU2*DT0R)*CaTAN(PHIT)) 

GAH01=B IV(EMH7 5 ,CL1, AKACH,CLLL,GAMD11,3,15,3,15) 

DEL GM1=6AK01-GAMD2 

CC2=CLlK/< l.O+TAN(GAMDl'i‘DTOR)*COTAN(PHIT) ) 

23 GAMDl=BIV(EMH75,CL2,AMACH,CLLL,GAM011,3,i5, 3,15) 

GAM02=ATAN (TAN ( PHI T ) * {CLIK/CL2-1. 0) )*RTOO 
DELGM2=GAMDl-GAf'D2 
IF (ABS(DELGM2) .LE.0.02) GO TO 3 
1 TER=ITER+1 

IF (ITER. GT. 20) GO TO 16 

C L3={ CL 1 '(‘DE LGM2-CL2 * DEL GM 1 ) / ( DELGM2-0 ELGM 1 ) 

CLl=CL2 


00780000 

00790000 

00300000 

CQ310000 

00320000 

00830000 

00840000 

00850000 

00860000 

00873000 

00830000 

00893000 

00900000 

00910000 

00920000 


ORIGINAL PAGE IS 
OE POOR QUALITXi 
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ISN 0053 
ISN 0059 
ISN 0C60 
ISN 0C61 
ISN 0C62 
rSN 0C63 
ISN 0C64 
ISN 0C65 
ISN 0C67 
ISN 0C69 
ISN 0071 
ISN 0072 
ISN 0073 
ISN 0C7A 
ISN 0C75 
ISN 0076 
ISN 0077 
ISN 0C76 
ISN OC80 

ISN 0C81 
ISN 0C82 
ISN CC33 
ISN 0C8A 

ISN ocas 

I ISN 0C87 

f ISN CC63 

ISN 0090 
on ISN 0C91 

o I SN 0093 

ISN COS'!- 
ISN 0CS5 
ISN 0096 
tSN CC97 
ISN 0093 
ISN 0C99 
ISN 0100 
ISN 0101 
ISN 0102 
TSN 0103 

ISN OlOA 
ISN 0105 


CL2=CL3 00930000 

DEI-GM1=DELGM2 00940000 

GO TO 23 00950000 

3 ETAP=TANP/TAN(GiMDi*DTOR+PHIT) 00960000 

CCT=£TAP*CCP/REALJ 00970000 

21 TPRQP = 0. 009507*510114* (0MRWn*«2*ENR*CCT/ (4. >KPIJ 00980000 

GO TO 36 OlOOOOCO 

19 If I3MR.E0.3.0J CT I ND=XL I NT ( CP0W33 ,CTI 3 ,CCP , 10 > 010X0000 

IF I3MR.E0.4.0) CTINU=XL I NT (CP0W33 ,CT 14 , COP , 10,ri) 01020000 

IF (M.NE.O) WRIT£(6t45) 01030000 

45 F0RMAT(9X,52HTHIS ERROR IS IN THE CT/CP TABLE - SUBROUTINE THRUST ) 01040000 

PHIT=ATAN(CCP/IC.75*PI*CTIND) ) 01060000 


SINP=SINIPHIT) 01070000 

GAMD2=1.0 01080000 

CLIK=4.0*CCP/ I (0.75*PI)**4*SIGS*SINP*COS{PHIT)**2) 01090000 

CL1=CLIK/ (l.i-TAMGAMD2*DT0R)*C0TAN(PHIT) J 01100000 


G AMO 1=T ABLE (CL 1 »CLGAM »GMODi >llt2«MI 01110000 

IF (M.NE.O) WRITE(6,47) 01120000 

47 FQRMAT(9X.83HTHIS ERRCR IS IN THE PROPELLER EQUIVALENT LIFT/ORAG P01130000 
lOLAR TABLE - SUBROUTINE THRUST ) 01140000 

OELGM 1=GAM0 1— G AP02 01150000 

CL2=CLIK/(1.0+TAN(GAM01*OTOR)*COTAN(PHITJ ) 01160000 

14 GAH0l=TA3LB(CL2,CLGAK,GM0Dl,ll,2,M) 01173000 

IF (M.NE.OJ WRITE(6,47I 01133000 

GAMD2=ATAMTAN(FHIT)*(CLIK/CL2“i.O) >*RTOD 01190000 


OELGM2=GAMOl-GAH02 

IF (A8SIOELGM2J.LE.0.02) GO TO 12 

ITER=ITER+1 

IF (ITER. GT, 20) GO TO 16 

CL3=(CLl*DELGM2-CL2*DELGMn/(DEL6M2-DELGMl) 

CH=CL2 
CL2=CL3 
0ELGM1=0ELGM2 
GO TO 14 

12 CCT=CCP*(COTAN(GAMD1*OTOR+PHIT)/{0.75*PI)] 
ETAP=0.793*CCT**l.5/CCP 
GO TO 21 
16 «PITc(6.43> 

WRITE (6.NTHRST) 

43 FOPMAT( lOXt65HGAMMA FAILED TO CONVERGE IN TXENTT ITERATIONS 
lOUTINE THRUST/J 
36 RETURN 
END 


01200000 

01210000 

01220000 

01233000 

01240000 

01250000 

01260000 

01273000 

01280000 

01290000 

013OQ0OO 

01310000 

01323000 

01330000 

-■SUBR01343C00 

01350000 

01360000 

01370000 
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THRUST / SIZE OF PROGRAM OOOC7C HEXADECIMAL BYTES PAGE 004 


NAME 

TAG 

TYPE 

ADO. 

NAME 

TAG 

TYPE 

ADD. 

NAME 

TAG 

TYPE 

ADO. 

NAME 

TAG 

TYPE 

ADD. 

’h 


C 

R*4 

N.R. • 

M 

FA 


1*4 

000314 ' 

Q 


C 

R*4 

N.R. 

R 


C 

R*4 

N.R. 

T 


c 

R*4 

N.R. 

V 

F 

C 

R*4 

000910 

W 


c 

R*4 

N.R, 

AF 


c ■ 

R*4 

• N.R. 

AR 


c 

R*4 

N.R. 

AO 


C 

R*4 

N.R. 

A1 


c 

R*4 

N.R. 

A2 


C 

R*4 

N;R. 

BR 


c 

R#4 

N. R. 

as 


c 

R*4 

N.-R. 

CB 


c 

• R*4 

N.R. 

CV 


c 

R*4 

N.R. 

CX 


c 

R>>4 

N.R. 

OH 


c 

R*4 

N.R. 

EM 

SF . 


,R*4 

000313 

EN 


C 

R*4 

N.R. 

FF 


c 

R*4 

N.R. 

FM 


c 

R*4 

N.R. 

FP 


c 

R*4 

N. R. 

HC 


C 

R*4 

N.R. 

PI 

SFA 

c 

R*4 

0J0864 

RN 


c 

R*4 

N.R. 

SA 

F 

c 

R*4 

000880 

ST 


c 

R*4 

N.R. 

S>J 


c 

R*4 

N.R. 

TR 


c 

R*4 

N.R. 

VC 


• c 

R«4 

N.R. 

VT 

F 

. c 

R*4 

000148 

HE 


c 

R')‘4 

N.R. 

WF 


c 

R>!‘4 

N.R. 

wo 


c 

.R*4 

N.R. 

ws 


c 

R*4 

N.R. 

WW 


c 

R#4 

N.R. 

XC 


c 

R*4 

N.R. 

AMU 


c 

R*4 

N.R. 

830 


c 

R*4 

N.R. 

EBl 


c 

R#4 

N.R. 

BB2 


c 

R*4 

N.R. 

BHT 


c 

R*4 

N, R. 

BIV 

F 

XF 

R*4 

000000 

BLP 

F 

c 

R=!‘4 

000660 

BMR 


c 

R*4 

00012C 

BVT 


c 

R*4 

N.R. 

CCP 

SFA 

c 

R*4 

000680 

CCT 

SF 

c 

R*4 

00 0 6 8 4 

coc 


c 

R*4 

• N.R. 

cov 


c 

R*4 

N. R. 

CKF 


c 

R*4 

N.R. 

cxw 


c 

B*4 

NiR. 

CKl 


c 

R*4 

N.R. 

CLW 


c 

R*4 

N. R. 

CLl 

SFA 


R*4 

00031C 

CL2 

SFA 


R*4 

000320 

CL3 

SF 


R*4 

000324 

CRT 


c 

R*4 

N.R. 

CTP 


c 

R*4 

N.R. 

CK3 


c 

R#4 

N.R. 

0K4 


c 

R*4 

N.R. 

DMR 

F 

c 

R*4 , 

0009C8 

ELC 


c 

R*4 

N.R. 

ELF 


c 

R*4 

N.R. 

e'ln 


c 

R*4 

N.R. 

ELT 


c 

R*4 

N.R. 

ENP 


c 

R*4 

N.R. 

ENR 

F 

c 

• R*4 

OOOllC 

FEH 


c 

R*4 

N.R. 

FET 


c 

R*4 

N. R. 

FEW 


c 

R*4 

N.R. 

GLF 


c 

R»4 

N.R. 

HES 


c 

R*4 

■ N.R. 

HOD 


c 

R*4 

'N- R. 

OWE 


c 

R*4 

N.R. 

RHO 


c 

•R^4 

N.R. 

RJ3 

FA 

c 

R*4 

0G02DC 

RJ4 

FA 

c 

R*4 

0004 BC 

RHI 


c 

R*4 

N.R. 

PCD 


c 

R>i'4 ' 

N.R. 

SA5 


c 

R*4 

N.R. 

SA6 


c 

R*4 

N.R. 

SA7 


c 

R*4 

N.R. 

SEE 


c 

P«4 

N.R. 

SFC 


c 

R«4 

N.R. 

SHT 


c 

R*4 

N. R. 

SKT 


c 

R*4 

N.R. 

SKI 


c 

Rw4 

N.R. 

SK2 


c 

R*4 

N.R. 

SK3 


c 

R*4 

■N. R. 

SK4 


c 

R*4 

N.R. 

SK5 


c 

R*4 

N.R. 

SK6 


c 

R*4 

N.R. 

SK7 


c 

R*4 

N, R. 

SK3 


c 

R*4 

N.R. 

SK9 


c 

R#4 

N.R. 

slm 


c 

R*4 

N.R. 

STH 


c 

R*4 

N. R- 

SVT 


c 

R*4 

N.R. 

TAF 


c 

R*4 

N.R. 

TCR 


c 

R*4 

N.R. 

TCT 


c 

R*4 

N. R. 

• TMP 


c 

R«4 

N.R. 

Ten 


c 

R>f4 

N.R. 

TVW 


c 

R*4 

N.R. 

ULF 


c 

R*4 

' N.R. 

■ vhl 


c 

R*4 

N.R. 

VIN 


c 

R»4 

N.R. 

VMO 


c 

R*4 

N.R. 

WAC 


c 

R*4 

N, R. 

wee 


c 

R*4 

N.R. 

■VsEP 


c 

R>^4 

N.R. 

WES 

' 

c 

R*4 

N.R. 

WFC 


c‘ 

R*4 

N.R. 

WFE 


' c 

R*4 

N.R. 

WFR 


c 

R*4 

N.R. 

WFS 


c 

R*4 . 

N.R. 

WFW 


c 

R*4 

N. R. 

WHL 


c 

R*4 

N.R. 

KriT 


c 

R*4 

N.R. 

WLG 


c 

R*4 

N.R. 

WMC 


c 

R*4 

N. R. 

wPC 


c 

R*4 

N.R. 

«PH 


c 

R’«<4 

N.R. 

WRC 


c 

R*4 

N.R. 

wsc 


c 

R*4 

N.R. 

WST 


c • 

R*4 

N.R. 

UTM 


c 

R^4 

N.R. 

HVA 


c 

R*4 

N.R. 

WVT 


C ■ 

R*4 

N. R. 

XLB 


c 

R*4 

N.R. 

XLS 


c 

R«4 

N.R. 

XLW 


c 

R*4 

N.R.' 

XMR 


c 

R*4 

N. R. 

ALFR 


c 

R*4 

N.R. 

ARHT 


c 

R’l'A 

N.R. 

ARVT 


c 

R*4 

N.R. 

6HPA 


c 

R*4 

N. R. 

8HPP 

F 

c 

R*4 

0009D4 

8HPR 


c 

R’*'4 

N.R. 

CDHT 


c 

R*4 

N.R. 

CDVT 


c 

R*4 

N. R. 

CKFF 


c 

R*4 

N.R. 

CKHT 


c 

R*4 

N.R,. 

■CKVT 


0 

R*4 

N.R. 

CLIK 

SFA 


R*A 

000328 

CLLL 

FA 

c 

R*4 

0006A8 

CTI3 

FA 

c 

R>C4 

000774 

CTI4 

FA 

c 

R#4 

0007C4 

DAMl 


c 

R*4 

N.R. 

DA M2 

' ' ’ 

c 

R*4 

N.R. 

0AM3 


c 

ROA 

N.R. 

0AM4 


c 

R*4 

N.R. 

0AM5 


c 

R*4 

N. R. 

DELR 


c 

R»4 

N.R. 

OTOR 

SFA 


RX'A 

00032C 

DUM2 


c 

R*4 

N.R. 

OVOL 


c 

R*4 

N.R. 

ELDN 


c 

R*4 

N'.P.. 

ELOT 


c 

R*4 

N.R. 

ELHT 


c 

R*4 

N.R. 

ELOA 


c 

R*4 

N. R. 

SLVT 


c 

R*4 

N.R. 

EMLF 


c 

R’»'4 

N.R. 

ETA I 

S'F'A 

' 

R*4 

0C0330 

ETAP 

SF 

c 

R*4 

0006E8 

ET at 

F , 

c 

R*4 

000198 

FEHI 


c 

R#4 

N.R. 

FEHL 


c 

R*4 

N.R. 

FEHT 


c 

R*4 

N..R. 

FEVT 


c , 

R*4 

n.r'. 

FF«'H 


c 

R*4 

N.R. 

' FEW I 


c 

R*4 

N.R. 

GAPl 


c 

R*4 

N. R. 

GAP2 


■ C 

R*4 

N.R. 

G AP3 


c 

R*4 

N.R.' 

GAP 4 


c 

R*4 

N.R. 

GAPS 


c 

R*4 

N. R. 

GAP6 


C 

R*4 

N.R. 

GAP? 


c 

R*4 

N.R. 

HFIN 


c 

R*4 

N.R. 

ITER 

S'" 


1*4 

000334 

LTHL 


c 

1*4 

N.R. 

PEHF 


c 

R=»4 

N.R. 

i=HI T 

SFA 


R*4 

000338 

PLIN 


c 

R*4 

N. R. 

RELI 


C 

R*4 

N.R. 

RMAX 


c 

R«=4 

N.R. 

RTOO 

SF 


R*4 

00033C 

SHPA 

SF 

c 

R*4 

000894 

SHPR 


c 

R*4 

N.R. 

SrTE 


c 

R*4 

N.R. 

SHTW 


c 

R*4 

N.R. 

SI6S 

SF 


R*4 

00 03 40 

SINP' 

SF 


R*4 

000344 

s:<AC 


c 

R=»=4 

N.R.- 

SKAR 


c 

R*4 

N.R. 

SKCC 


c 

R*4 

N.R. 

SKFS 


c - 

R*4 

■ N.R'. 
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DA^P 


SKFvl 


C 

p«4 

N.R. 

SKHL 


C 

R*4 

N.R. 

SKHT 


C 

R*4 

N. R. 

SKLG 


C 

R*4 

N.R. 

SKMC 


C 

R’t‘4 

N.R. 

SKPA 


C 

R*4 

N.R. 

SKPH 


c 

R*4 

N.R. 

SiSRC 


C 

R*4 

N.R. 

SKSC 


c 

R*4 

N.R. 

SKTM 


c 

R#4 

N.R. 

SXVT 


c 

R*4 

N. R. 

SKWP 


C 

R*4 

N.R.' 

S KWVi 


c 

R*4 

N.R. 

SKIO 


c 

R*4 

N.R. 

SKll 


c, 

R*4 

N.R. 

SK12 


c 

R*4 " 

N.R. 

SK13 


c 

R*4 

N.R. 

SK14 


c 

R*4 

N.R. 

SK15 


c 

R*4 

N. R- 

SLHH 


C 

R*4 

N . K. 

STPW 


c 

ft«4 

N.R. 

SVTE 


c 

R*4 

N.R. 

svrw 


c 

R*4 

N. R. 

SKTT 


c 

R*4 

N.R. 

TA,\P 

SFA 



000348 

T3H1 


c 

R*4 

N.R. 

T6H2 


c 

R*4 

N.R. 

TBTO 


c 

R*4 

N.R* 

TCHT 


c 

R*4 

N.R. 

TCLN 


c 

R*4 

N.R. 

TCVT 


c 

R*4 

N. R. 

TINY 


c 

R*4 

N.R. 

T I,N2 


c 

R#4 

N.R. 

TIN4 


c 

R*4 

N.R. 

TMAX 


c 

R*4 

N. R. 

TOVW 


c 

R*4 

N.R. 

Ti^T'W 


c 

R*4 

N.R. 

WBAL 


c 

R*4 

N.R. 

WENV 


c 

R*4 

N. R. 

WrUL 


c 

R*4 

N.R. 

WGSB 


c 

B=i=4 

N.R. 

WPOS 


c 

R*4 

N.R. 

WPEI 


c 

R*4 

N.R. 

WPR8 


c 

R*4 

N.R* 

WPRG 


c 

R«4 

N.R. 

WPRP 


c 

R*4 

N.R. 

WRCA 


c 

R*4 

N. R. 

V<SCA 


c 

R*4 

N.R. 

XLSH 


c 

R*4 

N.R. 

XLGD 


c 

R*4 

N.R. 

XLHL 


c 

R*4 

N.R. 

YLS2 

F 

c 

R*4 

0009CO 

ALFDL 


c 

R>^4 

N.R. 

AHACH 

FA 

c 

R*4 

00069C 

ATMIY 


c 

R*4 

N. R. 

C8ARF 


c 

R*4 

N .R. 

C8 ARW 


c 

R«4 

N.R. 

CLOES 


c 

R*4 

N.R. 

CLEYE 


c 

R*4 

N.R. 

. CLGAM 

FA 

c 

R*4 

0006E4 

CP IND 


c 

R*4 

N.R. 

CPNUO 


c 

R*4 

N.R. 

CP0W3 

FA 

c 

R*4 

000304 

CP0W4 

FA 

c 

R*4 

0004E4 

CPPAR 


c 

R*4 

N.R. 

CPPNU 

F 


R*4 

00034C 

CPPRO 


c 

R*4 

N. R. 

CPTOT 


c 

R*4 

N.R. 

CT I NO 

SPA 


R*4 

030350 

DELTA 


c 

R*4 

N.R. 

DELTH 


c 

R*4 

N.R. 

DEU«F 


c 

R*4 

N.R. 

DEliiP 


c 

R'«‘4 

N.R. 

DSWET 


c 

R*4 

N.R. 

ELDOA 


c 

R*4 

N. R. 

EMh75 

SFA 


R*4 

000354 

ENPCR 


c 

Rt<4 

N.R. 

ETAI3 

FA 

c 

R*4 

00032C 

ETAI4 

FA 

c 

R*4 

0005 OC 

ETAP2 


c 

R*4 

N.R. 

ET AP-t 


c 

RX<4 

N.R. 

FETDT 


c 

R*4 

N.R. 

GAMOI 

SFA 


R*4 

000358 

GAM 02 

SFA 


R*4 

00035C 

GMCOl 

FA 

c 

R«4 

000708 

HMAXO 


c 

R#4 

N-R. 

ICRUS 


c 

1*4 

N. R. 

NOCPP 

S 

c 

1*4 

000854 

NOXPJ 

s 

c 

1^4 

0J0858 

PFET2 


c 

R#4 

N.R. 

REAUJ 

SFA 

c 

R*4 

000870 

RHP NR 


c 

R *4 

N.R. 

SIGMA 

F 

c 

R*4 

0J08A8 

SIGMR 

F 

c 

R*4 

0009CC 

SKAMD 


c 

R*4 

N. R. 

SKBAl 


c 

R*4 

N.R. 

SKCBl 


c 

R*4 

N.R. 

SXGB2 


c 

R*4 

N.R. 

SKPOS 


c 

R*4 

N. R. 

SXPE5 


c 

R*4 

N.R. 

SKPES 


c 

B*4 

N.R. 

SKPR8 


c 

R*4 

N.R. 

SKRBF 


c 

R*4 

N. R. 

5KRCA 


c 

R*4 

N.R. 

SKSCA 


c 

R*4 

N.R. 

SLHVT 


c 

ft *4 

N.R. 

STMAX 


c 

R*4 

N. R. 

SWETri 


c 

R*4 

N.R. 

SWEXP 


c 

R*4 

N.R. 

SWWET 


c 

ft *4 

N.R. 

S2RH0 


c 

R*4 

N. R. 

TABLE 

F • 

XF 

R*4 

OOOOOO 

TSCLI 


c 

R’i'4 

N.R. 

TBCRP 


c 

ft*4 

N.R. 

TBEM5 


c 

R*4 

N.R. 

TBPOW 


c 

R*4 

N.R. 

TASFC 


c 

R«4 

N.R. 

TCBAR 


c 

ft #4 

N.R. 

theta 


c 

R*4 

N.R. 

TPROP 

S 


R*4 

000360 

TVCVR 


c 

R»4 

N.R. 

VBARH 


c 

ft *4 

N.R. 

VBARV 


c 

R*4 

N. R. 

VDl Vt 


c 

R*4 

N.R. 

VGASS 


c 

R*4 

N.R. 

VGASR 


c 

ft *4 

N.R. 

HPAYL 


c 

R*4 

N.R. 

WPSTR 


c 

R*4 

N.R. 

XLAL3 


c 

R*4 

N.R. 

XLBWO 


c 

R#4 

N.R. 

XLINT 

F 

XF 

R*4 

OOOOOO 

XLRLA 


c 

R*4 

N.R. 

XP JNO 

F 


R=»4 

03 0384 

FRXPR# 


XF 

R*4 

OOOOOO 

COTAN 


XF 

R*4 

OOOOOO 

tan 


XF 

R*4 

OOOOOO 

COS 


XF 

R=!‘4 

OOOOOO 

SIN 


XF 

ft *4 

OOOOOO 

ATAN 


XF 

R*4 

OOOOOO 

SORT 


XF 

R*4 

OOOOOO 

ALFCFS 


c 

R*4 

N.R. 

EHPSUP 


c 

R*4 

N.R. 

CBARHT 


c 

R*4 

N. R. 

CBARVT 


c 

R*4 

N.R, 

CRY LCA 


c 

R*4 

N.R. 

CLALPH 


c 

R*4 

N.R. 

CPO-J33 

FA 

c 

R*4 

000724 

CRSIN3 


c 

R*4 

'N.R. 

CTSIGri 


c 

R*4 

N.R. 

CYCPRL 


c 

R*4 

N.R. 

OELFCR 


c 

R*4 

•N.R. 

DEL&Ml 

SF 


R*4 

000368 

OELGM2 

SFA 


R*4 

0303&C 

DELRTH 


c 

R*4 

N.R. 

OELWFC 


c 

R*4 

N. R. 

DELKPL 


c 

R*4 

N.R. 

DELVvST 


c 

R*4 

N.R. 

CLSWSH 


c 

R*4 

N.R. 

OLTAFE 


c 

R*4 

N.R. 

OLVLHL 


c 

R*4 

N.R. 

OKG INO 


c 

R#4 

N.R. 

CSPUMT 


c 

ft *4 

N.R. 

OYLINO 


c 

R*4 

N. R. 

ELHLOA 


c 

R*4 

N.R. 

ELVLCA 


c 

R=*‘4 

N.R. 

ETAIND 


c 

ft *4 

N.R. 

tTAP4N 


c 

R*4 

N.R. 

eXPORG 


c 

R*4 

N.R. 

FEORAG 


c 

R*4 

N.R. 

FIXIND 


c 

R*4 

N.R. 

FWRNL# 

F 

XF 

1*4 

OOOOOO 

GAMDU 

FA 

c 

R*4 

000720 

HO L I NO 


c 

H=»4 

N.R. 

I8C0M# 

F 

XF 

1*4 

OOOOOO 

iNDCRU 


c 

1*4 

N- R. 

INOORG 


c 

1*4 

N.R. 

INOOYL 


c 

l«4 

N.R. 

INOETA 


c 

1*4 

N.R. 

iNOFIX 


c 

1*4 

N.R. 

[NDHUL 


c 

1*4 

N.R. 

INOCPT 


c 

1*4 

N.R. 

INOOSN 


c 

1*4 

N.R- • 

INOPOW 


c 

1*4 

N.R. 

INOP ftp 


-c 

- 1*4 

■ N.R. 

I NO POM 


c 

1*4 

N.R. 

IPRINT 


c 

1*4 

N.R. 

iMTHRST 

F 



000001 

OPTIND 


c 

R*4 

■ N.R. 

DSiJlND 


c 

R*4 

N.R. 

PRPIND 


c 

R*4 

N.R. 

ROMIND 


c 

R*4 

N.R. 

RHORriO 


c 

R*4 

N.R. 

SGT INO 


c 

B*4 

N.R. 

SK6LNT 


c 

R*4 

N.R. 

SKENVl 


c 

R*4 

N.R. 

SKENV2 


c 

R*4 

N.R. 

SKPDSZ 


c 

R*4 

N.R. 

SKVTAR 


c 

R*4 

N.R. 

SSIGMA 


c 

■R*4 

N.R. 

STHETA 

F 

c 

R*4 

000364 

TRCCWI 


c 

R*4 

N.R. 

T88AP4 


c 

R*4 

‘ N.R. 

THETHR 


c 

R*4 

N. R. 

THRUST 



R*4 

000370 

TQL INO 


c 

R*4 

N.R. 

V680VH 


c 

R*4 

N.R. 

WBALNT 


c 

R*4 

N.R. 

WPAYLQ 


c 

• R*4 

• N.R. 
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XTGTA2 C N.R. 


XTGTA4 C R*4 N.R. 


#*i(t** COMMON INFORMATION 




name of common slock * 


ift. name 

TYPE 

REL- AOOR 

CPTINO 

R=i<4 

N.R. 

CSWINO 

R’C'4 

N.R. 

ETAINO 

R*4 

N.R. 

VGBOVH 

R*4 

N.R. 

VMO 

R*4 

N.R. 

CKFF 

R*4 

N.R. 

TOO 

R*4 

N.R. 

ELVLOA 

R»4 

N.R. 

•TCR 

R*4 

N.R. 

TCHT 

R*4 

N.R. 

TCVT 

R=»4 

N. R. 

ELDT 

R^4 

N.R. 

DLVLHL 

R’»4 

N.R. 

WVA 

R*4 

N.R. 

0AM3 

R*4 

N.R. 

XMR 

R’l'A 

N.R. 

TVW 

R>>4 

N.R. 

ETAP4N 

R*4 

N. R. 

DAM4 

R+4 

N.R. 

VC 

R#4 

N-R- 

cams 

R#4 

N.R. 

COC 

R*4 

N.R. 

CKF 

R*4 

N.R. 

TBCLl 

Ri‘4 

N.R. 

WFUL 

R>('4 

N.R. 

SKCC 

R#4 

■ N.R. 

SKTM 

R*4 

N.R. 

SKAC 

R*4 

N.R. 

SKGSl 

R*4 

N.R. 

SKLG 

R*4 

N.R. 

SKNP 

R*4 

N.R. 

SKR3F 

R«4 

N.R. 

SKPA 

R*4 

N.R. 

SKT 

R*4 

N.R. 

SKI 

R*4 

N.R. 

SK5 

R#4 

N.R. 

SK9 


N.R. 

SK13 

R=^4 

N.R. 

GAPS 

R*4 

N.R. 

TNTW 

R-C4 

N.R. 

CRSINO 

R>!'4 

N.R. 

DELR 

R^A 

N.R. 

OELWPL 

R'f4 

N.R. 

CYCPRL 

R«4 

N.R. 


# SIZE OF SLOCK 00090C 


VAR. NAME 

TYPE 

REL. AOOR 

HUL I NO 

R*4 

N.R. 

■ FIXING 

R=(‘4 

N.R. 

MO 

R*4 

N.R. 

XLGO 

R*4 

N.R. 

EMLF 

R*4 

N.R. 

VDI VE 

R*4 

N.R. 

GAPl 

R#4 

N.R. 

GAP2 

R*4 

N. R. 

TCT 

R*4 

N.R. 

VBARH 

P*4 

N.R. 

VBARV 

R*4 

N.R. 

ELDOA 

R«4 

N.R. 

OVCL 

R*4 

N.R. 

DAMl 

R*4 

N.R. 

CLEYE 

R<‘4 

N.R. 

TVCMR 

R^4 

N. R. 

HES 

R*4 

N.R. 

TBEM5 

R*4 

N.R. 

ENP 

R*4 

N.R. 

ATMIY 

R*4 

N.R- - 

DLTAFE 

R<'4 

N.R. 

CLALPH 

R*4 

N.R. 

CKM 

R#4 

N.R. 

TBCOHl 

R<‘4 

N.R. 

DELWFC 

R*4 

N.R. 

SKRC 

R*4 

N.R. 

SKRCA 

R*4 

N.R. 

SKHL 

R’i‘4 

N.R. 

SKGB2 

R*4 

N.R. 

SKWM 

R*4 

N.R. 

SKHT 

R*4 

N.R. 

SKPH 

R=«‘4 

N,.R. 

SKVTAR 

R*4 

N.R. 

SKFS 

R*4 

N.R. 

SK2 

R*4 

N.R. 

SK6 

R*4 

N.R. 

SKIO 

R*4 

N.R. 

SK14 

RV4 

N.R. 

TOLINO 

R*4 

N.R. 

PFET2 

R#4 

N.R. 

XTGTA4 

R*4 

. l^l.R. 

RMAX 

R*4 

N.R. 

STPW 

R*4 

N.R. 

FF 

R^4 

N.R- 


hexadecimal 

BYTES 


VAR. name 

TYPE 

REL. AOO 

OYLIND 

R*4 

N.R. 

ROMINO ■ 

R^4 ■ 

■' N.R. 

XLBWQ 

R#4 

N.R. 

HMAXD 

R*4 

N.R. 

CKl 

R*4 

N.R. 

HOO 

R*4 

N.R. 

iGTINO 

R*4 

N.R. 

AR 

R*4 

N.R. 

SLM 

R*^4 

N.R. 

SLMH 

R«‘4 

N.R. 

SLMVT 

R'i‘4 

N.R. 

OLSwSH 

R*4 

N.R. 

CBYLOA 

R*4 

N.R. 

DAM2 

R<‘4 

N.R. 

THETHR 

R*4 

N.R. 

VT 

R*4 

000148 

TINY 

R*4 

N.R. 

T88AP4 

R*4 

N.R. 

ETAT 

R»4 

000198 

CDVT 

R*4 

N.R. 

FEOPAG 

Rv4 

N.R. 

CKVT 

R#4 

N.R. 

RELI 

R*4 

N.R. 

GAP4 

R*4 

N.R. 

OELWP 

R*4 

N.R, ' 

SKSC 

R*4 

N.R. 

SKSCA 

R*4 

N.R. 

SKENVl 

R*4 

N.R. 

SKBLNT 

R«=4 

N.R. 

ELF 

R5<4 

N.R. 

SK^T 

r.*4 

N.R. 

5KAM0 

4- 

N.R. 

SKPOS 

R = 4 

N.R. 

SKPEI 

R*4 

N.R. 

DK3 

R*4 

N.R. 

SK7 

R*4 

N.R. 

SKll 

R#4 

N.R. 

SKIS 

R*4 

N.R. 

XTGTA2 

R*4 

N. R. 

DELTH 

R*4 

N.R. 

TIN4 

R*4 

N.R. 

UELFCR 

R*4 

N.R. 

HFIN 

R^=4 

N.R. 

SK3 

R*4 

N.R. 


,R. NAME 

TYPE 

REL. ADD 

ORGINO 

R*4 

N.R. 

PRPIND 

R<“4 

N.R. 

XLRLA 

R»4 

N.R, 

RHORHO 

R*4 

N.R. 

OELWF 

R*4 

N.R. 

RCO 

R«4 

N.R. 

ELHLOA 

R*4 

N.R. 

WS 

R*4 

NiR. 

ARHT 

R«4 

N.R. 

ARVT 

R*4 

N.R. 

EL ON 

R*4 

N.R. 

dswet 

R>»4 

N.R. 

ENR 

R*4 

OOOIIC 

BMR 

R*4 “ 

-00012C 

XC 

R*4 

N.R. 

CTSIGH 

R>!'4 

N.R, 

ETAP2 

R*4 

■ N.R. 

GAP3 

R*-4 

N.R. 

HC 

R<=4 

N.R. 

COhT 

R*4 

N.R. 

eXPORG 

R*4 

N.R. 

CKHT 

R*4 

N.R. 

TCLN 

R*4 

N.R. 

WFE 

R*4 

N. R. 

OELWST 

R#4 

N.R. 

SKFW 

■ R*4 

• N.R. 

SKMC 

Rt=4 

N.R. 

SKENV2 

R*4 

N.R. 

SKBAL 

• R*4 

• N.R. 

RMI 

R#4 

N.R. 

SKPF5 

R*4 

N.R. 

SKi» 

R#4 

- N.R. 

SKPOSZ 

R*4 

N.R. 

SKPES 

R*4 

.N.R. 

0K4 

R«4 

N.R. 

SK8 

R*4 

N.R. 

SK12 

R*4 

N.R. 

PLIN 

R*4 

~N.R. 

TIN2 

R*4 

N.R. 

STH 

R“<'4 

N.R. 

VIN 

R<^4 

N.R. 

ENPCR 

R*4 

N.R. 

GAR6 

R*4 

N.R. 

SK4 

■ • R^4 

N.R. 
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TBHl 

R*4 

N.R. 

T6T0 

R*4 

N.R. 

TBSFC 

R«4 

N.R. 

TBPQVJ 

R*4 

N.R. 

ALFDL 

R«4 

N.R. 

ALFR 

R*4 

■ N.R. 

BHPR 

R«4 

N.R. 

BHPSUP 

R*4 

N.R, 

3R 

R*4 

N.R. 

as 

R*4 

N.R. 

CBARHT 

R*4 

N.R. 

CBARVT 

R*4 

N.R. 

CCT 

R*4 

000634 

CDV 

R*4 

N.R. 

CPNIJD 

R«4 

N.R. 

CPPAR 

R*4 

N.R. 

CRT 

R*4 

N.R. 

CTP 

R*4 

N.R. 

CLDES 

R=i=4 

N.R. 

CB 

R*4 

N.R. 

DH 

R»4 

N.R. 

D5PLMT 

R*4 

N.R. 

ELN 

R*4 

N.R. 

ELGA 

R*4 

N.R. 

EN 

R’i'A 

N.R. 

ETAP 

R*4 

0006E8 

FEHL 

R«4 

N.R. 

FEHT 

R*4 

N.R. 

FEVT 

R*4 

N.R. 

FEW 

R*4 

N.R. 

FM 

R>i=4 

N.R. 

FP 

R*4 

N.R. 

GLF 

R*4 

N.R. 

GMDDl 

R*4 

0007D3 

INDCRU 

1*4 

N.R. 

INOORG 

1*4 

N.R. 

I.SDFIX 

I *4 

N.R. 

INOHUL 

1*4 

N.R. 

INOPOW 

1*4 

N.R. 

INOPRP 

1*4 

N.R. 

LTHL 

I *4 

N.R. 

NOCPP 

1*4 

000854 

PEHF 

R*4 

N.R. 

PI 

R*4 

000864 

REALJ 

R*4 

000870 

RHPMR 

R*4 

N.R. 

SA 

R*4 

000830 

SA5 

R*4 

N.R. 

SFC 

R*4 

N.R. 

SHPA 

R*4 

000894 

SHTE 

R*4 

N.R. 

SHTW 

R*4 

N.R. 

ST 

R*4 

N.R, 

STHETA 

R*4 

000684 

SVTE 

R*4 

N.R. 

SVTW 

R*4 

N.R. 

SWEXP 

R*4 

N.R, 

SWTT 

R*4 

N.R. 

T 

R*4 

N.R. 

TAF 

R*4 

N.R. 

TMAX 

R*4 

N.R. 

TMP 

R*4 

N.R. 

ULF 

R*4 

N.R. 

VGASB 

R*4 

N.R. 

V 

R*4 

000910 

W 

R*4 

N.R. 

WCC 

R*4 

N.R. 

WE 

R*4 

N.R. 

WF 

R*4 

N.R. 

WFC 

R*4 

N.R. 

WrVJ 

R*4 

N.R. 

WGSB 

R*4 

N.R. 

WLS 

R*4 

N.R. 

WMC 

R*4 

N.R. 

WPDS 

R*4 

N.R. 

WPEI 

R*4 

N.R. 

WPRG 

R*4 

N.R. 

WPRP 

R*4 

N.R. 

WKCA 

R*4 

N.R. 

WSC 

R*4 

N.R. 

WTM 

R*4 

N.R. 

WVT 

R*4 

N.R. 

MAC 

R*4 

N.R. 

WENV 

R*4 

N.R. 

XL3H 

R*4 

N.R. 

XLHL 

R*4 

N.R. 

YLS2 

R*4 

0009C0 

TOVW 

R*4 

N.R. 

AF 

R*4 

N.R. 

BHPP 

R*4 

000904 


TBH2 

R*4 

N.R. 

TBCRP 

R*4 

N.R. 

GAP7 

R*4 

N.R. 

ALFues 

R*4 

N.R. 

AMU 

R*4 

N.R. 

BHPA 

•R*4 

N.R. 

BHT 

• R*4 

N.R. 

■ BLP 

R*4 

000660 

6VT 

R*4 

N.R. 

CBARF 

R*4 

N.R, 

CBARW 

R*4 

N.R. 

CCP 

R*4 

000680 

CLW 

R*4 

N.R. 

CPI NO 

R*4 

N.R. 

CPPRO 

R*4 

N.R. 

CPTOT 

R«4 

N.R. 

CV 

R*4 

N.R, 

CX 

R*4 

N.R. 

OELRTH 

R*4 

N.R. 

DELTA 

R*4 

N.R. 

ELC 

P.*4 

N.R. 

ELHT 

R*4 

N.R. 

ELT 

R*4 

N.R. 

ELVT 

R*4 

N.R. 

FEH 

R*4 

N.R. 

FEHI 

R*4 

N.R. 

FET 

R*4 

N.R. 

FETOT 

R*4 

N.R. 

FEWH 

R*4 

N.R. 

f ewi 

R*4 

N.R. 

ETAP4 

R*4 

N.R. 

GAHOll 

R*4 

000720 

H 

R*4 

N.R. 

ICRUS 

1*4 

N.R. 

INDOYL 

1*4 

N.R. 

INDETA 

1*4 

N.R. 

INDCPT 

1*4 

N.R. 

INOOSW 

1*4 

N.R. 

INORDM 

1*4 

N.R. 

IPftINT 

1*4 

N.R. 

NOXPJ 

1*4 

000858 

owe 

R*4 

N.R. 

Q 

R*4 

N.R. 

RHC 

R*4 

N.R. 

R 

R*4 

N.R. 

RN 

R*4 

N.R. 

SA6 

R*4 

N.R. 

S A7 

R“4 

N.K. 

SHPR 

R*4 

N.R. 

SHT 

R*4 

N.R. 

SIGMA 

R*4 

0008A3 

SSIGMA 

R*4 

N.R. 

STMAX 

R*4 

N.R. 

SVT 

R«4 

N.R. 

SW 

R*4 

N.R. 

SwETH 

R*4 

N.R. 

SWWET 

R*4 

N.R. 

S2RH0 

R*4 

N.R. 

TCOAR 

R*4 

N.R. 

THETA 

R*4 

N.R. 

0UM2 

R*4 

N.R. 

TR 

R*4 

N.R. 

VGA SR 

R*4 

N.R. 

VHL 

R*4 

N.R. 

W8AL 

R*4 

N.R. 

WBALNT 

R*4 

N.R. 

WEP 

R*4 

N.R. 

WES 

R*4 

■ N.R. 

WFR 

R*4 

N.R. 

WFS 

R*4 

N.R, 

WHL 

R*4 

N.R. 

WHT 

R*4 

N.R. 

WPAYL 

R*4 

N.R. 

WPC 

R»4 

N.R. 

WPH 

R*4 

N.R.' 

WPR8 

R®4 

N.R. 

WPSTR 

R*4 

N.R. 

WRC 

R*4 

N.R. 

WSC A' 

R*4 

N.R. 

WST 

R*4- 

N.R. 

WM 

R*4 

N.R. 

WPAYLO 

R«4 

N.R. 

XLALB 

R*4 

N.R. 

XL8 

R*4 

N.R. 

XLR 

R*4 

N.R. 

XLW 

R*4 

N.R. 

OMR 

R*4 

0009C8 

SIGMR 

R*4 

0009CC 

SEE 

R*4 

N.R. 





NAME OF COMMON BLOCK * ODD*' SIZE OF BLOCK 000814 HEXADECIMAL BYTES 


VAR. NAME TYPE REL. ADOR. 
AO R*4 N.R. 

B81 R>i>4 N.R. 


VAR. NAME TYPE REL. AODR. 
A1 R’i‘4 N.R. 

B62 R*4 N.R. 


VAR. NAME TYPE REL. ADDR. 
A2 R*4 N.R. 

ROB R*4 00020C 


VAR. NAME TYPE REL. ADDR. 
B80 R=*=4 N.R. 

CP0W3 •■'R*4 — 000304 
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ETAI3 

R*4 

00032C 

RJ4 

R*4 

00046C 

CP0W4 

R*4 

0004E4 

ETAI4 

R*4 

AMACH 

R*4 

00069C 

CLLL 

R#4 

0006A8 

CLGAM 

R*4 

0006E4 

CPQW33 

R*4 

CTI3 

R*4 

000774 

CTI4 

R*4 

0007C4 







00050C 

000724 



LABEL 

ADDR 

LABEL 

ADDR 

LABEL 

AUDR 

LABEL 

ADDR 

7 

00063E NR 

23 

000B24 

3 

00U3C8 

21 

000902 

19 

35 

000930 , 
OOOC40 

14 

OOOAF6 

12 

0008BE 

16 

OOOCIC 
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i^OPTIONS IN EFFECT'!' 
^OPTIONS IN EFFECT'!' 


SAME= MAIN,CPT=02,LINECNT=54,SI2E=0000K» 

SOURCE, EBCDIC, NOL I ST t NODECK, LOAD, MAP. NOE OIT,iD,NaXREF 
'I'STATISTICS* SOURCE STATEMENTS =' 104 .PROGRAM SIZE = 3196 

^STATIST res'*- NO DIAGNOSTICS GENERATED 

«**>!<#:# E^c OF COMPILATION 9IK BYTES OF CORE NOT USED 

♦ STATISTICS'*' NO DIAGNOSTICS THIS STEP 


"J 

I 

H* 

tn 

<n 



LEVEL 21.7 ( JAh 73 ) 


CS /260 FORTRAN H 


?/ll.L1.04 


rri»FILFR CFTICNS ~ NAfE= ^AI^^OP^=C2^ Ll^EC^T = 5 4tS[ZE = OCOCK ^ 

— ^‘lTFC E ','e'EC C I C » n'C L I’ST f NODECKf LOAOrMAP tN'CEDITt iOt NOXREF 

ISN 0002 SUBRCL1INE TCFLllTCI-Ll 

^^EP8EP. NAPE BanCFL 


ISN 0003 


ISN 0004 


ISN 0005 


ISN 0006 


ISN 0007 


ISN 0008 


ISM 0009 


PACE 1 
CCPMQN 
IFiy IND 
ZXLRLA 
’EPLF 
4RCC 

£GFF2( 6) 
PAGE 2 
__CU|;NCN_ 
lAKFT- 
2VEARV 
3DSl»ET 
4CA>1 
SXC 
6FES 
7GA‘F3 
PAGE 3 


"TKPrT L'CC fCCl TFPL 005C 


OPTING 

,RCMNC 

.VGE'CVH 

,CK1 

,TCC 

INPUT I 
AR 

■,7CFT 

,SLPU 

,CLVLFL 

,CAF2 

tXPR 

tTINV 


, FILING 
, PR F I NC 
,>LTC 
tCELNF 
,C AFl ( 5 ) 


,OYLINO 
_,eiAj_t^ 
, HFAXD 
,CKFF 


, CRGIND 

,UG 

, RHCRHO 

, vcive 


,SGTIND( 12> ,elfloa 


LOG CC51 THRU 0100 

j V s 

Tvearh ,sTmh 

T t L CN t E LOT 

tCVCL tC OYLCA 

TETF T'D a M 3 

tlVCNR rVT 

,ETAP2 tETAPAN, 


input LCC CXCl THRU 140 


CCFMON 

CAF4 

,ENF 

f 

lATFlY 

,CDU 

,CCFT 

* 

2EXFDRG 

,CCC 

tCLALPF 

t 

3CKW 

,RELl 

,ICLN 

t 


“PAG'E 4 INPUT LCC 
CCNMON FFE 
ISK C C >SKRC 

TTK'S'CA’ ,SKFC 

2SKC61 ,SKGE2 

4 ELF t£MI 

5SKR8F" tSKPF 

ASKPOS ,SKFCSZ 

1 Sja liK 2 

6SK7 »SK8 

SSKI3 »SK14 

page 5 UP UT L C 

CCFMON TCLINt 

IDELTHtS) fSTF(£) 
2CELRI5> tRF O(5 
2FFIN(53 ,GAPdll 
PACE 6 UPLT LC 
CCFPON CY.CFFL 

-TrB“TeTT5 — Ti’^rrrs 


,FFLL 
t SKSC 

TS'K'^C — 

tSKELNT 

,'KVP 

"TiK'ArD 

,iFT 
.CK2 
,'KS 
, £ K15 


UPUT LCC 201 TFRU 3^0_ 
TCLINnS) ,)«trTA2(5l 

,STF(£) ,CPSINC15) 

,RFi>(5» , CELFCP(51 

,GAPd HO 

UPLT LCC 301 TFRU 400 
CYCFFL fFF 

— Tr-^FrrST B-CTTriTl- 


,GELrtFC 

,SKFW 

tS'KHL 

,SF8AL 

,SRHT ^ 

, Sl<.‘AR 

tSKFS 

,DK4 

,SK10 

,PLIN 

■7TTN'2T51 
,XTGTA4( 5) 
,ENPCRI5i 


, TCT 
, APVT 
, ELDOA 
, ENP 
TtTWE 

tCTSlGH 
,TEEf'5 (5) 


,CKFT 

, TeCDN’KS) 

t CcLhP 
, SKTM 
,ShEn'?I 
, SKLG 
, SKVT 
TTkP'a 
, SFPEI 
t SK5 


,GAP5(3) 

~rnnrw(5'” 

,TIN4(5) 


,CSNINC 
,XLaFQ 
, vf'C 

, HCC 
, ELVLCA 


♦ SLj;; 

TTcvt 

tCUSFSK 

r^\/A 

-nvnm 

,TVF 

,TB8AP4(5) 


,CKF 

,GA F 4(4) 

tDELVST 

fSKPCA 

“r^rETTvr 

, SKVN 
tSKPPB 
-'SRVTZTF 
,SKPES 
,SK6 


K 


, VIMS) 


,CELWPL(5) ,STPF(5) 


,T[3F1<5) 


NCRKING CCFFCN 

CCPMON ALFCESjALFCL ,ALFR tAFL, 

1 bFf"a reTFfTTTrf T t"F7 E "hT , 6 L PteRtiiStBvi » 

2 CEARFtCEARFT»CEARVT,CEAFk,CCPtCCT ,C0 V, CLW, C F IND, CPNUD» C PP AR ,CP 

3 iC PTOT f.CPT f CTF # CV tCX rCLCESt C E t — u» j . i . . m ml h ^ i 

4 CELRTHTcTLT a • C F f'C*S FlT T , ” E L C r E L FlT*ELN»ELCAtELTtELvi»ENfEIAH 

c FEF)«FEF!l»FEFL»fEFTfFETrFETCTtF6VT »FEWf FEWH, FEWltFM,FP,ETAF4 

CCKNON GAFDll<3«15),GLF,GFDCUI6)rFt 


000 ICOOO 
00020CC0 

,00040000 

,00050000 

-TTj'oorcro'cr" 

, 0007000C 
,00080000 
— CCC-JCc^” 
CO 1C 00 00 
,001 lOCCO 
,OO12C0'CO 
,001 300CC 
,00140000 

-rmjrsGTCiT" 

,00160000 

,C017CCCC 

— ^oortioco'c 

C019COCC 

,0C2CCCCC 

“TDOZTCfOW 

,00220000 

00230000 

■Oo'2'4'C7riTC 

,00250000 

,00260000 

,CC2fCCC0 
,0^90000 
-~7 Cu3'CXC'0IT" 
,00310000 
,00320 000 
— 7XOT3T(HrO~ 
C034C0C0 
C035C0CC 
-TtTC3'&TTC"0C“ 
,00370000 
,00380 000 
C C 3 9 07) C 0 
004CC000 
,004 ICCOC 

5'04'70CG‘Gr 

C043CCOC 

C044GCC0 

— 'cr0FETRnro" 

PRCC046COOO 
C047C0C0 
, (JXTHXO'CC“ 
CC49C00C 
C05C00C0 


tf 

& ft"- 


PAGE C02 


ISN 0011 
ISM 0012 


ISM 0013 
ISM 0014 


7 ICivUSt I NCCPU > I^CCKG,^^CCVL, INOETA, IMDF I X 1 1 N TELL , INDOPT, IN COSH, 005 ICC CO 

8 INOPOWfINDPPP, INCPDPt'lFF InY' "" COSTo'C^ 

CCNMON LTK ,NCCFF ,NCXFv , C V E , FEHF , P 1 ,0 , RhC , R E AU , RHPMR , R , RN CC53CCC0 

_C^HgN_SA,SA5,SA6,SA7,EFC,SEPA,ShPR,SHT,SHTF,SHTW,$IGf'A,SSIGMA,ST,C05 4C0C0 
lSTEETA,STNAX,”<\'r,SVTT,l\lN;SE,S'H£TH,SHEXP,SH7T,SWWtT,S2REC 0O5 5COCO 

CCRMOM T ,TAF,TC£AR ,TEE1A ,TMAX,TMP,TPROP,Tft ,U1F, VGAS!i,VGASR,VHL,V OC560CCO 
CCNM ON H,Vt!A L,ViEALNT,li'CC,HE,V'EP,H£S,HF,W FC,WFR,VvFS,WFH, _ 00570CCC 


1 HGS0,hK ,kET ,ELG ,«PC ,VFAVL,ViFC,'/.PCS,rtPEI ,WPE,hPRB,WPRG,WPRP,WPSTR00580C'CO 


2,NRC,WRCA,VvSC,V>£CA.UST,V7R,E\,T, WH , HP AYLG , h AC , NENV 


CC5900CC 



ISN 

0015 

CCPMON XLALB,X1E,XL8E,>LFL,XLP,XLW,YLS2,T0VW 

C06CC000 


ISM 

0016 

CCEMON CPP,SIGFF,AF,EFfF,SEE 

ooBcoo'iii 


ISM 

0017 

NAPELISI /MCK/ US2 , L TE 1 , H , STMAX ,XLBH , 8 IP , S FC , BHPA , TR , 

GC61CCC0 




1 IFRCF,£EiFR,FF,TCVH,XLR,PEEF,HF,ST,LC2,TDT,BHPSUP, 

00620000 




2 £hPR,El,E2,CTCVH,3P 

C063C000 


ISN 

0018 

UCT0L = TCL1NC( ITCEL) 

CC64CQCC 


ISN 

0019 

ICC FCFMAT(22>4CEiTEIS ERRCR IS lA THE TAKECFF PCEER TABLE) 

0065CO0C 


ISN 

0020 

1C3 FCPE-AT I2X,F (.2,2X,F8.1 ,3X,F9.C, 3X, FIO.O, 3X,F£.C,3X,F7.2,2X, 

C066CCC0 




1F6.1,2X,F6.3,2X,F6.3,2X,FS.C,1X,F5.2,1X,F6.3,2X,F7.0,2X,F8.0) 

C067CGCC 



ISM 

002 1 

6959 FCPMATI 7X34ETAKECFF, hCVER, CR LANE AT PEHF = ,F5.3,5H FOR , 

0068C0CC 




lFt.3,5h EPS.) 

OCoSCOCO 


ISN 

0022 

9CCC FCPMATI/7X34ETAKECFF, ECVER, CR LAND AT T/W = ,F5.3,5H FCR , 

C07C00CC 




1F6.3,5H HRS.) 

C07100C0 


ISN 

0023 

9CC1 FCRMAT{2X,*TIEES7X, • R ANC £ ' , 5X, • FUEL USEC< , 5X , ' WE IGHT ' , 6X , 

C072CCC0 




1 • ALT. ' ,6X ,‘TEEF • , 5X, «TAS • ,5X , *B.R. ',4X, ’PEMF S5X, '3HPR» ,4X, 

00730CC0 




2'FE',4X,M/W',3X, ‘THRLST 3X, 'FUEL FLCW* /2X, 'ECURS' , 5X, • (N.MI.) • 

,40C74CCCC 




2X, '(POUNCS) • ,5X,' (FCLNCS ) • , 4 X , • FEET' , 5X , • ( Oc C . F J * , 2X , ' ( KT S ) ' ,40X 

, 'CCTSCOCC 




4(PCUNDS)* ,3X, ' (LB/ER »*//) 

C07600C0 


ISN 

0024 

IF (IPRINT.EC.C.) GC TC 27 

C077CCCC 

1 

ISN 

0026 

IF (INDTCL .EQ.U PR ITE ( 6 ,9000) Tv,TW ( I TOHLI ,STHII TCEL J 

007fi00“00 


ISM 

002 8 

IF UMCTCL .EC. 2) WB ITE(6,8999) PFET2 UTCHL J , STH( I TCEL > 

CC79C0i;0 

Ul 

ISN 

0030 

WRITE(6,9C01) 

aoBccccc 


ISN 

0031 

27 STEA)(=£T + STE( nCEL) 

Q03I00CC 


ISN 

0032 

PI=3. 14159 

CC820000 


ISM 

0033 

LC2=0 

0C8300C0 


ISN 

0034 

HE = H 

008400C0 


ISN 

0035 

L7EL=1 

CC8500CC 

■ 

ISM 

0036 

■ V=C. 

G036CCCG 


ISM 

0037 

AE'L=0. 

0C87C0CC 


ISN 

0038 

cx=o. 

CC88CCCC 


ISN 

0039 

IF (INCTCL .EC.l) TCVW=TWTW< ITOHL) 

CC89O0C0 


ISM 

0041 

IF IINCTGL .EC. 2) TCVW=1.0 

009CCOCO 


ISN 

0043 

tCT=XTGTA2< ITCEL ) 

CC91C0C0 


ISN 

0044 

35C call ATP'0E(EH,TIN21ITCEL)) 

CO<)2COGO 


ISN 

0045 

1 IF(TOT.EC.l.O) XLHH=XLEWC*WC 

CC93COOC 


ISN 

0047 

IF (TOT. NE. 1,0) XL6H=({C.C764 74>i={TDT-l.O)/(O.C76474-XLGD) ) + 1 .0 ) *XLBCC930 1 CO 





IWC^wO 

C093C2CC 


ISM 

0049 

XLP=W-XL8E 

CC9400CC 


ISN 

005C 

IFlXLBUC.EC.l.C 1 >Lfi = V.C>MTVW-1.0) 

C094C1CC 


ISN 

0052 

XLA=ABS(XLR ) 

00940200 


ISN 

0053 

TP=XLA*TC\<W 

CG95C0CC 


ISN 

0054 

BLF=XLUT(TBHl,IBTC,hh,S,r') 

C0960000 

, — 

ISN 

0055 

BLF=FACTR(eLP.EE,TE£TA,FF) 

00970Q00 



PA'G‘5 003 


cc^aoocc 


ISN OUS 

TCM m 1 A 


BI-FR=BhPA 

BR=XLBH/W 


0148C000 

C1490000 



IS.N Ol>i 6 
ISM 0058 
ISN 006C 
ISN 0061 

IF riNCTCL .60.2) CC TC 5 

e(“FSUP = ELF<' 6 HFf>tCEt.f<Th 

IF ( n 4 CCYL. GT .2 1 GC TC 2 


CC99CCCC 

cioccooc • 
01010000 



ISN 0063 
ISN 0065 
ISN 0066 

IF ( INCeTA.ESTCT“GC TC 2 

TPROP=TR 

CALL PCIvER 


0102COCO 

010300C0 

ClC-iCCCC 



ISN 0067 
ISN 0068 
ISN 0069 

0 FFR = SFPR'taHPF»YLS 2 ’!‘CELRTF 

GC TO 4 , ^ 

RHPH=tTrvi.l>c>(<l.‘=’<>LA»»>1.5/(2I5.*ETAT*ETAP2’KDFR*SQRT( 2.*RFC* 

oiOf^ijOcc 

01060000 

C1C7CCCC 



ISN 007 C 
T<;w 

^PI’^ENR) » 

GC TO 4 
2 CALL RCTPCU 


01 08OOOO 
CICSCCCC 
CllCOOCC 



ISN 0072 
ISN 007^ 
ISN 0075 

“4 IF (BHPSLF.lt. EFP fi) ViR I T E ( 6 , 1 C2 ) 

1C2 FCPMAT (7X ,4CHC4LT ICM * FEhF IS 

BLF = BHPR/ (0FPF*C£LRTI-) 

GREATER THAN 1.0 

oil ICOGG 
01120000 
01130CCO 



ISN 0076 
ISM 0077 
ISN 0079 

S F C = X L f TTiTP C w , rsTrc, BLP» 8 »n 
IF (M.ME.C) V<PnE< 6 .Kl) 
iCl FCPMAT(22X3CHThIS ERRCF IS IN THE 

SFC TABLE) 

01 1 'VCocc 
GU5C0CC 

01 lecocc 



ISM 008C 
ISN 0031 
ISN 0082 

■ FF=SFC><'eHFR*CKf F 
GC TO 6 

5 PEFF=PFET 21 ITCFL ) 


(JLI / LliUU 
C11800CC 
OllSOOCO 



ISN 0033 
ISN 008A 
ISN 0LS5 

SFFR=BLP*FEFF 

BHPA = SFPR’<eFPF>»C£LRT(- 

0LF=SHPB 


Ul. 

C1210Q0G 

0^220000 SS 


ISN 0086 
ISN 0087 
ISN 0089 

SFC=XLlNT(TBPCW,TESFC,ELf . 8 ,M 
IF (H.NE.C) ViRnE{6.1Cl) 
FP=SFC* 8 HFA+CKFF 


01230000 

01260000 

01250000 

►d 

gs 

'J 

1 

H 

ISN 0090 
ISN 0092 
ISM 009 A 

IF ( INCCVL.GT.21 GC tG 7 
IF (INDETA.EQ.CJ GC TG 8 
LC2=0 


012 6 COCO 1 

012700C0 

012COOCC 'i 


■"KJI ■■■ 

ISN 0095 
ISN 0096 
i5:w nnq7 

TR=XLR*TC\«k 
TPRGP^^TR 
10 LC5=LC2-*1 


■'012 9 0000 1 

C13C00C0 

C131C000 1 



ISN 0098 
ISM 0099 
ISN 0100 

CALL PCViEF 

BFFR=SHPR<BFPP*VL £2fDELBTH 

TF (ARS(IPHPA-EHPR)/EHFA).LT.O.OU go r,Q 6 

0U2C0CC J 
C13300C0 ■' 
C134CC0C 

im 


ISM 0102 
ISN 0109 
t c M m n A 

IF (L(i2.Lt.2) GC TC 12 
B2=8MPR-8FFA 
0TCVW=B2«CTCVN/ (B1-E2) 


01350000 

01360000 

0137C00C 



ISN 0106 
ISN 0107 
1 1 ; ."j n 1 r. r 

Bl=32 
GC TO 13 
12 B1=BHPR-BFPA 


Ol3fj0CCC 

013900CC 

C14CC0CC 



ISN 0109 
ISN 0110 
TRM nl t 1 

DTCVW=-C.£ 

13 TCVN-TOlih-CTOVK 
GC TO 1C 


01410000 

01420000 

0143CCCC 



ISN 0112 
ISN 0113 
ISN 0114 

7 CALL RCTPtVi 

0 77R.*PHFA<PTAT«ETAF2>i<Cf«R*SQRT(2.4RF04<PI#£NB)/XLA»41.5> 

C1h4 0000 
01450000 
01^60000 






OlA 7CCCC 




PAGE C04 


ISN 

0117 


Tf'F=THfcTA>fS18.6S-4SS .69 

O150OCCO 

ISM 

O’lU 


IF (IPRIM.eC.C) CC TC £21 

C1510CG0 

ISN 

012C 


IF (IMCTGL.EQ.l ) f EFF=EhFK/ehPSUP 

015200CC 

iSN 

0122 


IF ( INOETA .EC.C ) F^ = ETA^2 

0152C1CC 

ISM 

0124 


KP ITE(6,iC3 )S7,P,l'F,H,F,TNP,V,BRf PEHF,BHPR,Ff'tTOVh,XLR,FP 

01530000 

ISM 

0125 

521 

Ci.TTH = L£Llh(ITCFL) 

0154C0C0 

ISM 

0126 


IF tST.GE.SlPAX) CG TC £41 

0155CO0C 

ISN 

0128 


IF (ST.LT.ISTPAX-ELTTH)) GC TC 369 

015600C0 

ISN 

0130 


CLTTH=STMAX-ST 

C157COCC 

ISN 

0131 


GC TO 369 

0158CCCC 

ISN 

0132 

£41 

LTI-L=0 

C15900CO 

ISM 

0133 


RETURN 

C161CC0C 

ISM 

0134 

36S 

V.= !ft-FP*DLTTh 

0162CC0C 

ISN 

0135 


V(F=WF + FP*CLTTF 

C163COOO 

ISM 

0136 


ST=ST+CLTTh 

C164COOO 

ISN 

0137 


GC TO 350 

C165C0CC 

ISN 

0138 


EMC 

01660000 


74161 


TOHl / 


NAME Tj 
H f 
T 
AR 

P,2 SF 
OH 

FP SF 
RN 

TR SF 
WF SF 

xc 

BMR 

C-3C 

CM 

DK3 

EL.F 

6MR FA 
F 


AOC. 

000818 

N*R . 

N.'R. 
00035C 
_N . R 
Ob 07 Tb 

N-R. 
MOBFC_ 
COOS 3b 

N.R. 

N«P. 

N • R • 

N.P. 

N"B. 

OOOllC 

N.R. 


SK2 

SK6 

SLP 

TCR 

TOT SF 
VI N 
WEP 
y;FR 

__WHT 

WPH 
WTM 
XL8 
ALFR 
5HPP F 
CKFF F 
0AM2 
OELR 
ELHT 
ETAP 
FEHT 
GAPl 
GAPS 
LTHL S 


N.R. 

N.R. 

N.R. 

nVrT“ 

000368 

N.R. 

N.R. 

N.R. 

N.R. 

n 1 "b. 

N.R. 

N.R. 

N.R. 

0009CA 

00005C 

R.R. 

N.R. 

N.R. 

N.R. 

N.R. 

N.R. 

N.R. 

000850 

R - 


^ANE 1 
M F^ 
V SF_ 
BR SF 
C6 
EN 
hC 
SA 

yc ^ 

AMU S 
BVT 
”bov 
CLh 
OKA 
ELK 
FEH 
FES 


; TYPE 
1*A 
C R<-A 
C R<=A 
C R'i'A 
C R’i'A 
~Z — (TvTT 
C R«A 
C R*A 
n: R'’f''A“ 

C R’i'A 
C R>!'4 
C R*=‘T' 
C R*A 



S 

SK7 

STH F 
TC'T 

TV'rt F 

VMC 

ls"E§ 

FFS 

FiLG 

“uRl: 

UVA 

XLP SFA 
J'RHf 
EHPR SFA 
CKHT 
fAP 3 
CVCL 
ELGA 
TTa'T f 
FEVT 
GAP2 
GTP"6 
FEHF SF 
S HP A 


C R=»A 

C R «4_ 

~C R'i'A 
C P*A 
C R'i'4 
C R’f'4 
C R*4 


C R*4 
“C ft«4 
C R’f-A 

C R’i'4 
C R*4 
~C R»4 
C R*4 
C R^'4 
T ^4 
C R’I'A 
C R"4 


ACD. 

000354 

COC910 

“000664" 

N.R. 

N.R. 


00064C 

N.R. 

nTR . 

N.R. 

N_^R. 

N . 

N.R. 
M. R. 


N.R. 

N.R. 

“ITlP. 

N.R. 

000398 

n 7 r . 

000150 

N.R. 
N~7B . 
N.R. 
N.R. 
n 7RT“ 
N.R. 
000S88 
N.R. 
000654 
N.R . 
N. RT“ 
N.R . 

N.R . 

■“00019 8 
N.R. 
N.R . 
'nTR. 
000660 
N.R- 











SLMH 

C 



SKTT 

C 

R»4 

N.R. 

TCHT 

C 

B*4 

N.R. 

TIN2 SFA 

C 

B>!4 

000348 


TOVl< SF C R*4 0009C4 

HFUL C N.fl. 

HPR8 C N . R.^_ 

V/SCA C R*4 nVbT 

YLS2 F C 0009CC 

C BARF C R*A N. ^ 


CPINC 

C 

p#4 

N.R. 

CPTOT 

C 

R«4 

N.R . 

DELUP 

c 

P<4 

N.R. 


ELDOA 

C 

B*4 

N.R. 

FACTR F 

XF 

R*4 

cooccc 

ICRUS 

C 

144 

N.R. 


MUHL OOOGCO 

RHPMR C P*4 N.R. 

S!<6AL C P*A N. R,. 


SKPEI 

c 

R44 

N.R 

SKRCA 

c 

R44 

N.R 

SKETH 

c 

R44 

N.R 


T3CL I C N.R. 

TBSFC FA C R*A 00051C 

TVCMfi C R’>4 N. R . 



VGASB 

C 

R44 

N.R. 


XLALB 

c 

B44 

N.R. 


SORT 

XF 

R»4 

OOOCCO 

■oj • 

C BARHT 

c 

R44 

N.R. 

1 

CRSIND 

c 

R*4 

N.R. 

F-* 

DELPTH F 

c 

R*4 

0006BC 

■at — 
to 

DLSKSH 

c 

R«4 

N.R. 


OSPLMT 

c 

R44 

N.R. 


ETAINC 

c 

R44 

N.R. 


FIXINC 

c 

R*4 

N.R. 


IKDCRU 

c 

1*4 

N.R. 


INDFIX 

c 

1*4 

N.R. 


INOPQW C I>»4 N.R. 

IPRINT C I»4 OOOS^C 

RCHINC C R<A N.R. 


SKBLNT C R*4 N.R. 

SKVTAR C R*4 N.R. 

TE6AP4 C R-«4 N.R. 

WeALNT C P*>4 N.R. 


STPw 


C 

R*4 

N.R. 

SVTE 


C 

R*4 

N.P. 

SVTK 

C 

R*4 

N.R. 

IriHl 

FA 

C 

R*4 

OCO4C0 

TBH2 


C 

R*4 

. N.R. 

■ T8TC FA 

c 

P*4 

0004D4 

1CLN 


c 

R*4 

N.R. 

TCVT 


c 

R*4 

N.R. 

TINY 

c 

R*4 

N.R. 

IIN4 


c 

R.*4 

N.R. 

TMAX 


c 

R*4 

N.R. 

t(;FL 


R*4 

0C0370 

UTl. 

— p 

c ‘ 

R*4 

00035C 

wr-AL 


c 

R*4 

N.R. 

NENV 

L 

B ^4 

• R • 

ViC-SB 


c 

R*4 

N.R. 

RPOS 


c 

R*4 

N • R • 

NPEI 

C 

R*4 

N.R. 

>iPRG 


c 

R*4 

N.R. 

HPRP 


c 

R*4 

N.R. 

KPCA 

C 

R*4 

N • R • 

>LBK 

SF 

c 

R>i'4 

00G98C 

XLGD 

F 

c 

R*4 

000034 

XLHL 

c 

R*4 

N . R . , 

ALFCL 


c 

R*4 

N.R. 

ATMI Y 


c 

R*4 

N.R . 

ATMCS SF 

XF 

R*4 

OCOOOO 

CEARh 


r 

R*4 

N.R. 

CLOES 


c 

R*4 

N.R. 

CLEYE 

C 

R*4 

N.R. 

““C F NU D 


c 

R*4 

N.R. 

CPPAR 


c 

R*4 

N.R. 

CPPRO 

L 

R*4 

N • R • 

DELTA 


c 

R*4 

N.R. 

DELTH 

F 

c 

R*4 

000364 

CELwF 

C 

R*4 

N * • 

CLTTH 

SF 


R*4 

000374 

OSWET 


c 

P*A 

N.R. 

DTCVN SF 


R*4 

000373 

EKPCR 


c 

R*4 

N.R. 

ETAP2 

F 

c 

R*4 

00C15C 

ETAP4 

c 

R^4 

I't * R • 

FETOT 


c 

R*4 

N.R. 

6MD01 


c 

R*4 

N.R. 

FMAXD 

c 

R*4 

N * R • 

ITCHL 

SFA 


1*4 

00037C 

NCCPP 


c 

I >'4 

N.R. 

NCXPJ 

c 

1*4 

N.R. 

p'Fcfy 

F 

c 

R*4 

000370 

POWER 

SF 

XF 

R«4 

COCCOO 

PEALJ 

L 

R*4 

iN.R . 

SIGMA 


c 

R*4 

N.R. 

SICMP 


■c 

R*4 

N.R. 

SKA, VO 

c 

R*4 

• N • 

SKCe 1 


c 

R*4 

N.R. 

SKGB2 


c 

R*4 

N.R. 

SKPCS 

c 

R*4 

M • R • 

skpe’s 


c 

R*4 

N.P . 

SKPRB 


c 

R*4 

N.P. 

SKRBF 

c 

R*4 

N.R • 

SXSCA 


c 

R*4 

N.R. 

SLMVT 


c 

R*4 

N.R. 

STKAX SF 

c 

R*4 

0C08B8 

SWEXP 


r 

R*4 

N.R. 

SWNET 


c 

R*4 

N.R. 

S2RHC 

c 

R*4 

N • R • 

f ECR~P 


c 

R»4 

N.R. 

TBSM5 


c 

R*4 

N.R. 

T8P0W FA 

L 

R*4 

0C053O 

7CBAR 


c 

R«4 

N.R. 

ThETA 

FA 

c 

R*4 

0CC3EC 

TPPGP S 

C 

R*4 

CC08F8 

VEARH 


c 

R*4 

N.R. 

VEAR V 


c 

R*4 

l\ • R ♦ 

VCi Vt 

C 


N.R . 

vgasr" 


c 

R*4 

N.R. 

NPAYL 


c 

R*4 

N.P . 

NPSTR 

L 

R'~4 

l\ - ♦ 

XLBKO 

F 

c 

R*4 

000028 

XL I NT 

F 

XF 

R*4 

oocooo 

XLRLA 

C 

R*4 

N.R. 

FFXPR;^ 


XF 

R*4 

000000 

ALFOES 


c 

R*4 

N.R. 

BMP SUP SF 

c 

R*4 

0C0653 

C §7 R V t 


C 

R*4 

N.R. 

CSYLQA 


c 

R*4 

N.R. 

CLALPH 

L 

R*4 

K • R • 

CIS IGH 


C 

R*4 

N.R. 

CYCPRL 


c 

R*4 

N.P. 

OELFCR 

c 

R*4 

N.R. 

CELaFC 


c 

R*4 

N.R. 

DELi-iPL 


c 

R*4 

N.R . 

OELwST 

c 

R*4 

N.P , 

cLt aff 


c 

R*4 

N.R . 

DLVLHL 


c 

Rw4 

", N.R. 

CRGIND 

c 

R*4 

N.R. 

C YL INC 


c 

R*4 

N.R. 

ELHLOA 


c 

R*4 

N.R. 

ELVLCA 

c 

R*4 

N.P. 

ETAP4N 


r 

R*4 

N.R. 

EXPORG 


c 

R*4 

N.R. 

FEDRAG 

c 

R*4 

N.R* 

G AKCI 1 


c 

R*4 

N.R. 

HULIND 


c 

R*4 

N.R, 

IBCOM* F 

XF 

I 

OGOOOO 

INCDRG 


c 

1*4 

N.R. 

INCD-YL 


c 

1*4 

00C328 

INCETA 

c 

1*4 

Q0082C 

INCFUL 


r 

1*4 

N.R. 

INDOPT 


c 

1*4 

N.R. 

INCOSN 

C 

1*4 

N.R. 

jncprT 


c 

1*4 

N.R. 

INDRDM 


c 

1*4 

N.R. 

INCTCL S 


1*4 

u uO 3 0 

CPT IND 


c 

R*4 

N.R. 

CSVvINP 


c 

R*4 

N.R. 

PfiPIND 

C 

R*4 

N.R. 

FFCPhO 


c. 

R*4 

N.R. 

ROTPOW 

SF 

XF 

R*4 

OOCOOO 

SGTIND 

C 

R*4 

N.R. 

SKENV L 


c 

R*4 

N.R. 

SKENV? 


c 

R*4 

N.R. 

SKPDSZ 

L 

R*4 

N.R. 

SS I6MA 


c 

R*4 

N.R. 

STHETA 


c 

R*4 

N.R. 

TECDUI 

c 

P*4 

N.R. 

TFBTMR 


c 

'R*4 

N.R. 

TOUNO 

F 

c 

R*4 

000320 

VGBOVH 

c 

R*4 

N.R. 

KFAYLD 


c 

R*4 

N.R. 

XTGTA2 

F 

c 

R*4 

00C334 

■ XTGTA4 

L 

R*4 

N.R , 


itifUi,* CCFMON INFORMATION 


NAME CF CCFFCN BLOCK ^ * SI2E CF BLOCK OCC9DC HEXADECIMAL 8VTES 

VAR. NAPE TYPE PEL. AOCR. \.AR. NAME TYPE REL; ADDR. VAR. NAME TYRE R£L. ADCR. VAR. NAME — _TYPE — -REL. AO OR 










5 
■ V. 

CRSI^C 

CElfi 

OELWFL 

CYCPFL 

TBH 

TBSfC 

ALFCL 

BFFR 

EP 

CEABFT 

CCT 

CPMC 


N.P. 

N.P. 

n7r . 

N.R. 

00035C 

N.R. 

N.R. 

N.P. 

N.ft. 

OOO^CO 

000510 

N.R. 

00065 ^^ 

OOOBE^ 

N.R. 

‘N.R. 

N.R. 


SKi 

_SK1C_ 
“ skTa 

7CLINC 

PFET2 

RMAX 
STFP 
f F 
TBTC 
T6PCV 
aTfT' 
eHFSUP 

es 

cearyT 

CDV 

CPPAP 


N.R. 
N.R. 

N.R. 

N. fi .” 
0C0320 
OC0370 

N.R. 

N.R. 

N.R. 

0C04Ti4" 

OOOAOA 

OC0530 

N. R. 
0C0653 

N.R. 

N.R. 

N.R. 

N.R. 
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CYLINO 

R«4 

N.R. 

DRGINO 


N.R. 

BDF'INO 


N.R. 

PTFInU 


N . • 

XUBWO 

R>>4 

OOC028 

XLPLA 

R«4 

N.R. 

HMAXD 

R#4 

N.R. 

PhCRHO 

R«4 

N.R. 

CK 1 

KT5 

N.R. 

OELNF 

k»4 


HfJQ 

R#4 

N.R. 

PCD 

P*4 

N.R. 

SGTtNO 

R*4 

N.R. 

ELHLCA 

R“4 

K.P. 

AK 


Km 

KS 

R«4 

t'i t K * 

SLM 


N.P. 

APHT 

P-‘4 

• R ♦ 

SLMH 

fi’*4 

N.R. 

AP VT 


N.R. 

ST7WT — 


N.K. 




CLS'vSH 

p>t4 

N >R • 

DSUET 


N.R. 

CBYLOA 

RA4 

N.R. 

ENP 


OOOUC 

CAfT2 

P*4 

— K’^r: 

DyK 

WSM 


THETNR 

R'»4 

N • K • 

xc 

■SI 


VT 

R»4 

N.R. 

CTSIGH 



rm? — 

RTa 

PiTRI 




TBSAPA- 

R*4 

N.P. 

GAP3 

KE^I 

N.P. 

EYAT 


OOC198 

hC 



CUVT 


N.K. 

CCTP 


n . s . 

FECPAG 

P>t4 

N.R. 

EXPCRG 

P*4 

N.P. 

CKVT 

R>t4 

N.R. 

CKHT 

R'-4 

N.R. 

RELI 


fTTP. 

rcuTi 


N.R. 

GAP4 

P*4 

N.R. 

WFS 

P'-4 

N.R. 

OELNP 

R«4 

N.R. 

DELviST 

R*4 

N.R. 

sksc 

T<!»4 

N.R. 

SRTw 

R«-4 

N • K « 

SKSGA 

R*4 

N.R. 

SKNC 

K*4 

N.R. 

SKENVl 

R=t4 

N.R. 

SKENV2 

R*4 

N.R. 

SKBLKTT 

RT5-2T" 

N.R. 

STTBTSt 



ELF 

P«4 

N.R. 

RM 

R»'4 

N.R. 

SKVT 

R>F4 

N.R. 

SRPRE 

pi-4 

N.P. 

BkahD 

J5TJ+ 

fr;*t. 

SKAR 


N.R. 

SKPDS 

R*4 

N.R. 

SKPCSZ 

R*4 

N.R. 

SKPEI 

R^4 

N.R. 

SKPES 


N.R. 

DK.3 

, r#4 

RTR. 

It) K ^4 


FJ7R. 

SK7 

P'*4 

N.k. 

SK8 

Rv4 

N.R. 

SKll 

R«4 

N.R. 

SK12 

i:*4 

N.P. 

SKIT” 

P«4 

ntic 

FT'IK 

R-4 

(N« • K • 

XTGTAE 

R«4 

000334 

T1N2 

RK4 

0C0348 

DELTH 

P*4 

0CC384 

STh 

R*4 

000398 

Mm‘4“ 

R*4 

ktft: 

^rn^i 


. >< • 

DELFCR 

P#4 

fs ♦ ft * 

ENPCP 

P“4 

N.R. 

HFIN 

R>1<4 

N.R. 

CAPo 

R*4 

N.R. 

5R'3 


KTR. 

b 


N* f<« 

TBH2 

R#4 

N.R. 

T6CPP 

R>S<4 

N.R. 

GAP? 

P#4 

N.P. 

ALFOES 

P*4 

N.R. 




■“()'0C64'C 

BTTP? 

B“4 

U CU650 

tSHT 

P’«4 

N.R. 

SLP 

R»'i4 

0C0660 

BVT 

P#4 

N.R. 

CBARF 

K>'-4 

N.P. 

Cba'rw 

RW 

N.R. 

CCP 

PT!% 

N.k. 

CLW 

R*4 

N.R. 

CP INC 

R«4 

N.R. 

CPPRO 

R*4 

N.R. 

CPTCT 

R«4- 

N.R. 
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CRT 

R*4 

N.R. 

CTF 

P*4 

N.R. 

cv 

R*4 

N.R. 

CX 

P*4 

0CC630 

CLCES 

P*4 

N.R. 

CE 

.R*4 

N.R. 

DELRTH 

P*4 

00068C 

' DELTA 

R*4 

• N.R. . 

• CF 

P*4 

N.R. 

CSFLNl 

P*4 

N. R. 

ELC 

P*4 

N.R, 

ELHT 

R*4 

N.R. 

ELN 

P*4 

N.R. 

elca 

■ R*4 

N.R. 

ELT 

R*4 

N.R. 

FLVT 

R*4 

N.R. 

EN 

P*4 

N.R. 

ETAF 

R*4 

N.R. 

FEH 

P*4 

N.R. 

FEHI 

R*4 

N.R. 

FEU 

P*4 

N.R. 

FEFT 

R*4 

N.R. 

FET 

R*4 

N.R. 

FETCT 

R*4 

N.R. 

FEV7 

R*4 

N.R. 

FEk 

R*4 

. N.P. 

FEWH 

R*4 

N.R. 

FENI 

R*4 

N.R. 

FN 

R*4 

000714 

FF 

P*4 

000710 

ETAP4 

fi*4 

N.R. 

C AMD 11 

R«4 

N.R. 

GIF 

F*4 

N.R. 

GNCCl 

P*4 

N.R, 

H 

R*4 

OOC018 

ICRUS 

1*4 

N.R. 

INDCPL 

1*4 

N.R. 

INDDRC 

1*4 

N.R. 

INODYL 

1*4 

0008^8 

INDETA 

1*4 

0C082C 


INOF IX 
INOFCW 
LTFL 
PEFF 
REAU 
<: 


N.R. 

N.R, 

Q008S0 

000860 

N.R. 

N.R 


INDhUL 

INOPRF 

_NGCFF_ 

---• p j- 

RFPh'P 

SA£ 


SFC 

P*4 

000890 

SFPA 1 

SFTE 

R*4 

N.R, 

ShTW 1 

ST 

R*4 

0008BO 

STFcTA 1 


N.R. 

N.R. 

N.R. 

CCOSO^f 

N.P. 

N.R. 


INDGPT 
INCRDM 
NCXP J 
0 
R 

66 


1*4 N.R. 
1*4 0CC84C 
R*4 ■ N.o. 










LABEL 

ACER 

LABEL 

ACER 

LABfl 

ADOR 

LABEL 

ADUR 

7 7 

r,c c f-uc. ' 

35C 

,CCC6BC 

1 C006D6 NR , 

3 

0007F0 

2 

12 

6 

CCCE7C 

CCCSDE 

'cccAse 

k 

13 

531 

CCC87C 

CCC5F2 

CCCB6E 

5 

7 

. 5A1 

CC08FQ 
CCOA02 
000B9C . 

1C 

8 

■ 369 

000A12 

OOOBA8 


*CFTIONS IN EFFECT* NAMG= ^ IN ,CFT = 02» L I ^EC^T = 5^ »S IZE=OQCOK t 

*CFTIONS IN effec t* SOURCE ,EECC IC ,NCL ill , NODE C K t LEAD t MAP t NCtL) ] T , 1 0 , NO XR E F 

»STATrSTICS* SOURCE ST&TEF'EMS = 137.tFPOGPAH S12E = 2C,]Q ,, 

*S1ATISTICS* NC C UGNCSTICS GENERATED 

ENO CF CCRFIUATICN ****** ~ ^ 95KBY 


95K BYTES CF CURE NC1 
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ISN 0011 
ISN 0012 


iSN 0013 
ISN OOIA 


ISN 0015 
ISN 0016 
ISM 0017 
I SN 001 8 
ISN 0019 
ISN 0021 
ISN 0022 


ISN 0023 
ISN 0024 


ISN 0025 
ISN 0026 
ISN 0027 
ISN 0028 
ISN-0029 


005100CC 

00520000 

0053CCCC 


7 ICRUSt UCCROt INCCRG .UCCVL. IADETAtlNOFlXTlNCmLflNDOPT, INCQSV^f 
£ INCPOVsTlMOP'R'FTiMOROP'i IP'fInT 

CCPMON LIH.»ACCFPfNCXP» rCkE»F£t-FtPKQfRHCtREALJtRhPMRtR»RR 
f.CPMON «A.SA5,SA6,SA7»£FCfSFPA,SHPR, SHT » SHT E > SHTW t S I GRAtS SlGNA,STt^^C5400CC 
TTf FETTrsTP AXTS \"7 rS V T E^'S \1‘U, S W . S W ETH , SwFX'P ,SW71,SWWtT,S2RHC 0 C5500C (T 

CCFMON Ti1AF,TCEAF,TF£1AiTMAX,TPP , TPP.CP ,TRTULF rVGASB»VGASfitVHLrV 0C56CCC0 

CCPMO.N Ut V.HAL .REALNT.hCC ,^>E >j'E P»wES t WF,WFC,HFR tkPS>i^;Frit ^ 

TT'C'St! VVFL »5.’hT jVLCTluPC't'kP'F 7L ,V.pCrWPCS I r hP F * l\PRB f WPRG » PH » W^THTOLS 80^^ 

5 , HRC, WRCA ,U SC .V SC A ,Vs ST T V^I P * VVT »WW, UPAYLO f WAC fluENV C0590C>^0 


CCPMON XJ^Aie_^XLe>)qj^hj^> LH T XLRtXLW.YlS2»TCVW 

ccpkon"cp R rs I gTfTa f , eh f p TsTe 
hCLO = H 

F = HFIM ITRALl ) 

TC 3CC‘ 


AlTITUCE FROM *,Frt«0.2Xt‘FEET'/18X,«T0»,4X, 


IF ( IPRIM .ME. 1 ICC 
KRITE(6,1CCUFCLC,K 
ICCl FCFMATI 7X,'TFAASFER 
iTeToTI'X , CTE'eT“*TT“ 

I0C2 FCRMAT (7X » • T IPE • » 8Xf 'R ARC E* , 6X * ' FtEL USEO* ,6 X,*wEI 6HT*,7Xt*ALT*/ 

nirr'THCTRT7^5Tr'Tlv7p!'i J • ,6X , ■ (pound's) ' fSXi • I FCUNOS) ' t6X » “ If ETTJ * / )0W9C(Kra 

KtITE(«,lC03IM.R.l.f.k,KlD M'JMCO 


006CCOOO 

Trc'ercccT" 

C061C000 

0062C0CC_ 

C(563“C‘C'CC 

0064COCC 

C065CC00 

"C'OTTTrcccro- 

C067C0CC 

oof,aocoo 


RRlTE<6>IC03)SItRtUFth,F 

1CC3 FCFMAT l7XtF7-2»4X,F8.1,4X,FS.C,4X,F10.0,4X,Fe-0) 

3 CO RETURN 

EP C 


00720000 

OC73CCC0 

0074CCCC 


0 0 2 : 


SIZE CF PRCGUAM 00026C HEXADECIMAL BYIES HACt UUJ 


VtPe AOC. 
P»4 OOOB18 


c 

RY 

c 

R* 

c 

R>1 


TYPE APO 
C R*4 N.R. 
C R*4 -000914 

C R*4 
C R*4 
C R’t'4 


C R’t=4 
C R’i'4 
C R’P4 


R* 

R* 

R* 


C R><=4 
C R*4 
C R*4 


>04 

*4 


TYPE ACD 
C R*4 OOC878 
C R*4 N.R. 


C R*4 
C R*4 


C R*4 
C R*4 


C R*4 


R*4 OOC8RO 
R 4 N * R • 


C R’f 


C R=* 
C R<= 


C R*4 


.R. 

SFC ( 

.R. 

SK2 ( 

.R. 

SK6 1 

.B . 

SLM ( 

• R. 

TCR ( 

.R . 

TVV. i 


C 

RY4 

C 

RK4 

C 

R’i'4 




C 

R*4 

c_ 

R’I'4 


C R*4 
C R»4 
C R*4 


C 

R’i‘4 

C 

R’K4 

C 

RY4 

C 

R’»4 

C 

R*4 

C 

R*4 


C 

R=»4 

N.R. 

GAPl 

C 

P.'!'4 

N.R. 

C 

B*4 

N.R. 

CAPS 

C 

R>«4 

N.R. 

c 

B*4 

000474 

hCLC SF 


R>!<4 

000148 


C Rt-4 N.R. 

C R*4 N.R. 

C R#4 N.R. 


C 

R’i‘4 

C 

R’i'4 

C 

R’K4 

C R*4 
C R’i‘4 
C R*4 

C 

R’i‘4 

C 

R’i'4 

C 

R’I‘4 


u: hi cc etn la: ac oc 


























PTT.S 004 




r 

P ^4 

rv| - R . 

18TC 

C 

R*4 

N.R. 

TCHT 

C 

R*4 

N.R. 

TCLN 

C 

&-!=4 

l < . R . 

' 1* 




TCVT 

TMAX 

C 

c 

Q 

R>!4 
R«4 
F ^ 4 

N.R. 

M.P. 

N»R. 

T INY 
KVU 
kFLU 

C 

c 

c 

R*4 

R*4 

R*4 

N*R . 
^ . P • 
N • R • 

T1N2 
TNTw 
WGS E 

t 

c 

c 

R*4 
P «4 
R*4 

N.R. 

N.R. 

N.R. 

. T 1 N4 
HEAL 
HPDS 

c 

c 

" ' r'““ 

k>'s4 

— 

N.R. 

N.R. 

' 


WPEI 

WRCA 

XLHL 

C 

C 

r 

R*4 

R14 

R*4 

N.R. 

N.R. 

N.R. 

V.PRB 

LSCA 

.YLS2 

t 

c 

c 

R*4 

R*4 

R*4 

N.R. 
N.R. 
N.R . 

Wf>R(! 

XL8H 

ALFDL 

c 

c 

c 

T1*4 

R*4 

R*4 

• K ♦ 

N • S ♦ 

XLGC 

ATMIY 

rr^VT 

C 

r 

\u 

— c — 

Qxc/, 

N.R. 
N.R . 



C6ARF 

CPINC 

t 

c 

c 

R=*4 

R»4 

N.R. 

N.R. 

N.R. 

CE JR'n 
CFNLD 
DELTA 

— 

c 

c 

IT* 4' 
R*4 
R*4 

N . ft . 

N.R. 
N.R . 

C L D E S 
CPPAR 
DELTH 

c 

c 

c 

K*4 
R *4 
R*4 

N . ft . 

N.R. 

N.R. 

CPPFC 

OELHF 

C 

c 

— r — 

R“4 
“IT:a4 ■ “ 

N.R. 
N.P . 



CELWP 

ETAP2 

f- V) V p 

c 

c 

c 

T?4 
R>l=4 
R»4 ’ 

N .R . 
N.R. 

CSV^ET 

ETAP4 

ICPLS 

c 

c 

IT* 4 
R 4 
i *4 

“K.Tc. 

N.R. 

N.R. 

Ernois 

FETOT 

NOCPP 

c 
c 
' c 

R*4 

R>'4 

1*4 

N.P. 

N.P. 

, N.P . 

GMDCl 

NCXPJ 

C 

C 

— — 

S*4 

1*4 

»\ • R • 

- R - 



FFET2 

SIGMR 

CKf;R? 

C 

C 

c 

R*4 

R*4 

3*4 

N.R. 

N.R. 

N.R. 

REAL J 
SKAMO 
<KFCS 

C 

c 

C 

R*4 

R*4 

P*4 

N.R. 
N.R . 
N.R. 

P HP MR 
SKOAL 
SK^El 

c 

c 

c 

R*4 

P*4 

R*4 

N.P. 

N.R. 

N.R. 

SKGDl 

SKPES 

rk* c /' A 

C 

c 

— Z“ 

R*4 
R*4 
"fr:*4 — 

N.R . 
N.R. 

- 



SKPR8 

SLHVT 

'VJft'ET 

c 

C 

c 

B04 

R»4 

B<4 

N.R. 

N.R. 

N.R. 

SKRBF 
STM AX 
S2FFC 

V 

C 

C 

"R*/; 

P*4 

R*4 

N . F . 
N.R. 
N.R. 

SftRCA 

SlvETH 

TBCLl 

c 

c 

■ c 

R*4 

R*4 

R*4 

N.R* 

Sl.EXP 
TbCr'P 
— rm . - 

c 

c 

R*4 

R*“4 

N.R. 

N.P. 



TEEM? 
THETA 
V345 H 

c~ 

c 

c 

R*4 

R*4 

R>«4 

N.R . 
N.R. 
N.R . 

TE'FCW 

TFPCF 

\EARV 

C" 

c 

c 

R'*4 

P*4 

R*4 

N.R. 

N.R. 

N.R. 

ThSTt 
TRALT 
VCI VE 

L 

c 

K''4. 

R*4 

R*4 

N.P. 

00C14C 

N.R, 

TVCMR 
VGA SB 

cT*Tn? 

c 

c 

— r — 

p,«4 

R*4 

— 

N.R. 

N.R. 

8' « k . 



VGASR 
XLRwO 
^ b H T 

c 

C 

c 

R<4 

Rit4 

R«4 

N.R. 

N.R. 

N.R. 

LFAYL 

XLRLA 

CEARVT 

c 

c 

c 

R*4 

R*4 

R*4 

N.P. 

N.R. 

N.R. 

WPSTP 
ALFOFS 
CBYL OA 

c 

c 

, c 

R*4 

R*4 

R*4 

N .K . 
N ♦ • 

N.R. 

A u A L *j 

BHPSUP 

CLALPH 

ntT'i^TV — 

c 

c 

— ^ — 

R“4 

‘t 

Tj • R - 

V.P * 

’k - w 



cfsTnc 
DELRTH 
ni <;w';h 

c 

c 

r 

Ri»4 

R44 

R*4 

N.R. 

N.R. 

N.R. 

“CT'S ICH 
CELUFC 
CLTAFE 

C 

C 

c 

R*4 
' R*4 
R*4 

N.!!. 

N.R. 

N.R. 

"CycOkC 

DELWPL 

CLVLHL 

c 

c 

c 

“R*4 

R*4 

R*4 

N.R. 

N.R. 

N.R.' 

DELHST 
OPG! ND 

c 

c 

— C“ 

R*4 

P*4 

~pv'4-~ 

N * R • 

N-R * 


M 

CTi' 

DSPLMT 

ETAIND 

c 

c 

r 

RK4 

R«4 

R>^4 

N.R. 

N.R. 

N.R. 

CVlInC 
ETAF4N 
GAMCl 1 

c 

c 

c 

R*4 

R*4 

R*4 

N.R. 

N.R. 

N.R. 

fUHlirS 
CXP IRG 
HULl NO 

t 

c 

c 

R*4 

R''4 

R*4 

N . K. 
N.R. 
N.P- 

FECPAG 
IPCOM* F 

c 

XF 

R*4 

1*4 

— f A'4” 

iN* • R * 

ocoooo 

TTt'R’T — 



INDCRU 
■ INDFIX 

C 

c 

c 

I»4 

1*4 

1*4 

N.R. 

N.R. 

N.R. 

INCCRG 

IKCHLL 

IKCPPF 

r 

c 

c 

1*4 

1*4 

1*4 

N715.. 

N.R. 

N.R. 

INDOYL 

INDOPT 

INOROM 

c 

c 

1 *4“ 

1*4 

1*4 

N.P. 

'N.R. 

N.R. 

I Nut 1 “ 
INCCSH 
I PRINT 

c 

c 

7*— 

1*4 

1*4 

— P *‘‘4“" 

N.R. 

00084C 
fTTR*. 



ITRALT f 
RCMI.\C 
SKENV 1 

c 

c 

1*4 

R*4 

R*4 

000150 

N.R. 

N.R. 

CPT IND 
FHCRhO 
SKENV2 

c 

c 

c 

R *4 
R*4 
R*4 

N.R. 
N.R . 
N.P, 

OS N IND 
SGTIMO 
SKPOSZ 

c 

c 

c 

~TT*4 

R*4 

R*4 

N.P. 

N.R. 

N.R. 

SKBLNT 

SKVTAR 

T Ta ii'^rXST — ““ 

o 

c 

c 

R*4 

R*4 

8 ^4 

N.R. 
N.R. 
N * 8 * 



SSIGMA 

ThETMB 

WPAYLC 

c 

c 

c 

R*4 

R*4 

B*4 

N.R. 

N.R. 

N.R. 

STFETA 

TCLIND 

XTGTA2 

c 

c 

c 

R*4 

R*4 

R*4 

N.R. 

N.R. 

N.R. 

T ECO HI 
VGBOVH 
XTGTA4 

c~ 

c 

c 

R*4 

R*4 

R*4 

N . ft . 

N.R. 

N.R. 

WBALNT 

c 

R*4 

N.R. 

. 


CCPMON INFCRMATICN 


NAME CF CCMFCN BLOCK *!* SIZE CF BLOCK Q009DC HEXADECIMAL BYTES 


VAR. NANt'“ 
OPT, INC 

TYPE 

P*4 

R*4 

"TErrrcTRT" 

N.R. 

— rRTTTFE- 
HJLINC 
FIXING 

n(TPT“ 

R*4 

R*4 

R£L. Ai)DR'~ 

N.R. 

N.R- 

— ^-AR.-rr^TTE” 
CYLIND 
RDM IND 

"TYP'E- 

R*4 

R*4 

REL . "A'OCP 

N.P. 

N.R. 

■" VAR- NArMIT" 
DP G IND 
pcpIND 

TTFF“ 
ft *4 

CT>'X — 

-Rm^TraTr: 
N • P. • 

N * P - 

ETA INC 
VGBCVb 
VNC 

R*4 

p*4 

P*4 

N.P. 

N.R. 

N.R. 

WC 

XLGC 

EMLF 

Rx4 

R*4 

R*4 

N.P. 

N.R. 

N.P. 

Xluwo 

HMAXD 

CKl 

R*4 

R«4 

P*4 

N.P. 

N.R. 

N.R. 

XL r Lm 
RHORKO 
CELWF 

R«4 

R*4 

K * R * 
NpR. 



PAGE 005 


HOO 

p*4 

i\.R. 

ROC 

py-4 

N.R. 


SGTIND 

R*A 

K-R. 

ELHLCA 

■ R=!'4 

N.R. 


AR 

R*4 

N.P. . 

hS 

pi-4 

N.R. 


SLM 

P*4 

N.P. 

ARhT 

?»4 

N.R. 


SLMH 

R*4 

A-R- 

AP VT 

p*4 

N.R. 


SL.-1VT 

R*4 

N.R. 

ELCN 

Ri-4 

N.P. 


CLSiiiSH 

R«4 

N.R. 

DSNET 

P*4 

N.R. 


CBYLOA 

R*4 

N.R. 

ENR 

R«4 

N.R; 


0AM2 

R*4 

^.R. 

PVR 

R»4 

N.R. 


THET-AP 

R*4 

^.R. 

XC 

R'-4 

N.R. 


VT 

R*4 

N.R. 

CTSIGH 

R«4 

N.R. 


TINY 

P*4 

N.R. 

ETAF2 

4 

N.R. 


TBCAP4 

R=>4 

N.P. 

GAP3 

Ri-4 



ETAT 

R*4 

N.R. 

hC 




COVT 

R44 

N.R. 

CCHT 




FEDRAG 

R*4 

N.R. 

eXPOPG 




CKVT 

R#4 

N.R. 



N.R. 


REL 1 

P’t'4 

N.R. 

7CLN 

p*4 

N.R. 


GAVA 

P*4 

N.R. 

NFF 

RA4 

N.R. 


OtLWP 

R44 

N.R. 

DELi-ST 

R«4 

N.R. 


SKSC 

R*4 

N.R. 

SKEW 

P*4 

N.P. 


SKSCA 

R*4 

N • ^ • 

SKNC 

R*4 

N.R. 


SKEMVl 

R>i-4 

N.R. 

SKENV2 

P*4 

N.R. 


SKBLNT 

fi”4 

N.R. 

SKEAL 

RT-.4 

M.R. 


rzL F 

P*4 

N.R. 

RP'I 

P*4 

N.R. 




SKll 

SK15 


R »4 


N,R?. 

N^R. 


SK.VT 

P*4 

N.R. 

SKPPb 

R»=4 

N. 

SKAMD 

R*4 

N.R. 

SNAP 

B*4 

N. 

SKPOS 

P>*4 

N.R. 

SKPCSZ 

R*4 

N. 

SKPEI 

B«4 

N.R. 

SKPES 

R*4 

N. 

OK 3 

P>*4 

N.R. 

CK4 

Dl'<4 

N. 

SK7 

R»4 

N.R. 

SK8 

R*4 

N. 


SK12 

PLIN 


R *4 


N. 

N.R. 


OELTH 

R>>4 

\ • 

STh 

R«4 

N.R. 

TIN4 

R*4 

N«K • 

VIN 

Ri‘4 

N.R. 

DEIFCR 

P*4 

N.R. 

ENPCR 

p*4 

N.R. 

HFIN 

R*4 

000474 

GAP6 

R«4 

N.R. 

SK3 

R>»4 

N.R. 

SK4 

Ri-4 

N.P. 

T0H2 

R»4 

N.R. 

TBCPP 

R*4 ' 

N.R. 

GAP? 

R«4 

N.R. 

ALFCES 


N.R. 

AMU 

RR4 

N.R. 

BhFA 


N.R. 

BHT 

PR4 

N.R. 

8LP 



BVT 

P*4 

N.R. 

CBARF 


N.R. 

CEARW 

R'*4 

N.R. 

CCP 

R«4 

N.R. 

CLW 

R*4 

N.R. 

CPINO 

R*4 

N.R. . 

CPPRO 

P>>4 

N.R. 

CPTCT 

R*4 

N.R. 

CV 

R»4 

N.R. 

CX 

R«4 

N.R. 

DELRTH 

R*4 

N.R. 

DrLTA 


N.P. 

c LC 

P*4 

N.R. 

ELFT 

B=-4 

N.P.. 

ELT 

R#4 

N.R. 

SLVT 

R>“4 

N.R. 

■ FEH 

p*4 

N.R. 

FEhl 

R’4‘4 . 

N.R. 


a: o'la: cr rc\ct 



















73 73 3n .73 7 ? 73 73 X* X 73 r.j 7? X X 77 X Xj 73 


“pnm3o6 


FET 

F’>4 

N.R. 

FETCT 

P*4 

N.?. 

F = WH 

R«A 

N.k. 

FES. 1' 

R j=4 

A.R. 

ETAP^ 

R*4 

R.P. 

GAf'CU 

p,*4 

M.R. 

H 

R«4 

00C818 

' ICfliS 

Ti.4 

N. R. 

INDDYL 

1*4 

K.V . 



A » ft . 

INDUPT 

1*4 

K.R. 

IMCOSw 

1*4 

N.R. 

IKOP.OM 

1*4 

N.R. 

IPRIAT 

1*4 

0C084C 

NUXP J 

5 T 4 

A.k. 

C’V,c 

R”4 

FTm 

Q 

p*4 

A.R. 

FhU 

R«4 

N.R. 

R 

P*4 

OOOQ78 

RA' 

P«4 


iA6 


A.ft. 

SA/ 

R*4 


SHPR 

R*4 

A.R. 

SHT 

R*4 

N.R. 

SIGMA 

P*4 

A. ft. 

SSIG.’^A 

R*-4 

N.R- 

STMAX 

R*4 

A.R. 

SVT 

k*4 

N.R. 

SW 

R*4 

A.R. 

SWETH 

R*4 

N.R. 

SV.WET 

R*4 

A.R. 

SZPHu 

P*4 

N.R. 

TcBak 


KTfn 

TRFTA 


N • ^ • 

TPPOP 

R* 4 

A.R . 


R*4 


VGASR 

R*4 

A.R. 

VkL 

R>.= 4 

N . S . 

V<oAL 

STiTzr 

STITi 


K''4 

RTST. 

Wc P 

P*4 

A.R. 

V.ES 

B *4 

N.R. 

wFR 

R*4 

A. ft. 

WFS 

R>^‘4 

N.R. 

whL 

WW7T 

NTft. 

kRT 

■|?7'5 

N.R. 

WPAYL 

R*4 

A-ft. 

'/.-PC 

B*-4 

N.'P.. 

WPH 

R*4 

A . ft . 

».PRB 

P*4 

N.R. 

WPSTR 

R*4 

A . R *' 

V. kC . 

fl^4 

N.R. 

I.SCA 

R*4 

A.R. 

kST 

R*4 

N.R. 

WW 

R*4 

N.R. 

wpaylo 

R*4 

N-R. 

XLALB 




xT5 

B*4 

N • • 

XLR 

R*4 

A.R. 

XL'.> 

P*4 

N.R. 

DMR 

R*4 

A.R. 

SIGMR 

R*4 

N.R. 

^ §^F“ 
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300 CCC23C ^ 

"i-CPTIOLS U EFFECT- NAME= f< A I N , CF T = C2 . 1 I NECM = 54 , S UE =00 COK , 

^CPTIONS IN EFFECT* SOURCE ,EBCC IC , NCLI ST7^TDTCK , LC AC,MAP t NOED IT, IO,NOXREP 

»£TATI STICS» SCLPCE £TATE^^£^TS = ,28 ,FFOGPAM SIZE = 

♦STATISTICS* NO CIAGNCSTICS GENERATEC 

CF CCJ'FILATICA IIIK BYTES CF CORE MOT USED 




LEVEL 21. .7 T JAN "73 ) 
CC^PILeR 


‘dS/360"’ FbRfRAN“H‘ 


■ OAT E ■ i 5""1 C C f\ 572 6 1 0 0 


ISN 0002 


CFTICNS - NANE= ‘NA IN rCPT =C2 f L INECNT=54i SI ZEfOCCOKf 

~ " ^ SCI,’RCE'",T6C'c’ic 7'('C L 1ST iN6DECK,LQAD,MAP',NCEDIT , IC» NOXPEF 

SUeRCOTINE VChIR 


PE NBE R NAPE 6 8 1 ^ C-{- TR 


ISN 0003 


PAGE 1 
CCKMQN 
_1FI>IN0 
2XLPLA "■ 
3ENLF 
4RCC 


eei '/ GFT ^ 

INPIjf““ ICC 
CPTINC 
_,fiCRINC 

jvGecVH " 
,CK1 
,TCC 


005C 
tOYLINO 


ISN 0004 


CCCl TFRU 
tEOLINC 
.FFFINC 
t>LCO' " 

,E£LXF 

,GAflC5) ,SGTINDa2),ELHLQA_ 


, ETAI NO 
■■,HPAXO " 
,CKFF 


i.CRGIND 
, kC 

,RHCRHO" 
, VCIVE 


.OSUINO 
,XLBNQ_ 
",VKC ■ 
,HCC 
, ELVLOA 


ISN 0005 


PAGE 2 

INFLT LCC 

CC51 TFRU 0100 


CCFMON 

AR 

,ES . 

,TCR 

,TCT 

lAPFT . 

,TCFT 

,VEARH 

,SLMH 

, ARVT 

2VEARV 

,SLNVT 

,£LON 

,ELDT 

, ELCOA 

3DSNET 

,CLVLHL 

,CVCL 

,C8YL0A 

, ENR 

4EAM 

,nAP2 

,EFF 

,DAM3 

,C1EYE 

SXC 

,XMR 

, T VCER 

,VT 

tCTSIGH 

6EES 

,TINY 

, ET/P2 

• ,ETAP4N 

,TE£F5(5) 

7GAF3 





PAGE 3 

INPUT LCC 

CIC 1 THRU 

140 


CCEHON 

CAF4 

, ENF 

,EtAT 

rEC 


ISN 0006 


"rATHY 

EEXPORG 

3CKN 

"■ PAGE 4 
CCPMON 


>LUV I 
fCOC 
t RELI._ 
IN FIT ‘ Lee" 
NFE 


.CL/LPF 

,TCIN 

2C0 


141 ThFL 
,EFLL 




ISKCC 

,SKPC ,£K£C , 

— 1 


2SKSCA 

,SKNC ,£KAC , 

H 


3SKCB1 

,SKGE2 ,«K£LNT , 

Ui . 


4ELF 

,PNI ,£KEP .t 



5SKR8F 

,£KP'F ,£K/ED , 



6SKPDS 

,SKFCSZ ,£K1 , 



7SK 1 

,«K2 ,CK3 ,, 

■ 


ESK7 • 

,SK'a ,£KS , 



9SK 13 

• ,SK14 ,SKI5 » 


C 

PACE 5 

INPLT LCC 201 TEFU 3C0 

ISN 0007 


CC'FMON 

TCLINCIS) ,>TGTA2(5) , 



10ELTH(5) 

,STE(£) ,CRSINC15) , 



2DELR( 5 J. 

,RMAX(5) ,eElFCfi(5)', 



3HFIN(5) 

,GAP£(iC) 


C 

PACE 6 

INPLT LCC 301 TERU 400 

ISN 0008 


CCEMON 

CYCFFL ,FF , 



if BtOISJ 

,TBK'2(5j ,TBCPPI5) , 


C 

NCRKING 

CCNKCN 

ISN 0009 


CCFMON 

ALFCES,ALFCL,ALFF ,ANU, 


,CKVT 
,THCLU8]_ 
UEIGHT CAtA 
.DELWFC 
SKEW 

skhl' 


DK4 


ENPCRI5) 


SK3 


,CHFT 

> TBCDMK 8 ) 

,CELWP 

,SKTN 

"rSK ENVI 
, SKLG 
,SKVT 

", skfa’ 

, SKPEI 
, SK5 _ 
■; sKii ■■ 
,GAP5(3) 

", TNTV.<5)""‘ 
,TIN4I5) 

, CELWPLISI 


, SK4 

; T 3 POWI 8 ) 


,SLP 

■;tcvt 

, DLShSH 

, ViVA 

", TFETMR 
,TVW 

,T88AP4<5) 


,VC 

",FECR'AG 

,CKF 

,GAP4(4> 


ISN 0010 


OOOICCOO 

CC02Q0C0’ 

'■ 00030000 ■ 
,00040000 
,00050000 
',00060000 
,00070000 
,00080000 
0CO9COCO 
COICCCCO 
,00110000 
, 00120000 ' 
,00130000 
,00140000 
,00150000 ' 
,00160000 
,00170000 
00180000 
0C15OOCC 
,00200000 
, ‘00210000 
,00220000 
00230000 
"00240000 
,00250000 
,00260000 
,00270000 ' 
,00200000 
,00290000 
,00300000 
,00310000 
,00320000 
',00330000 
C034C000 
0O3500C0 
',00360000 
,00370000 
,00380000 
CC39CCOO 
C04CCOOO 
,00410000 
■ 00420000 
00430000 
__ 00440000 

1 8EFA, BE FR ,01-l-iLK ,tm td-i-, Dh ,Dor Dv 1 , _ C0450CC0 

2 CEARF,CEARET,CEAEVT,CEAFU,CCP,CCT,C0V,CLW,CFIND,CPNUC,CPPAR,CPPR000-,60000 

£ F£H,FEHI ,FEHL , F EE I , F E 1 , f ETCT ,F EVT ,FEW, F EWH , F £H I , FM , F P , £T AF4 00490000 

. CCNMON GARC11(3,1S) , GL F , C-E P'P 1 ( 16 1 , H, 


,OELNST 
_, SKRCA _ 
,'SKENV2 
, SKUi 
SKPR6 
tSKVTAR' 
,SKPES 
,SK6 
VSK12 


,PFE72t5) 
, VIM5)' 
,STPN(5) 


,TBH( 5 ) 

";GAP 7 I' 6 C)' 






005C0OC0 



PAGE 002 


ISM OOU 
JSN. 0.0,1 2_ 

ISM 0013 
IS.M 001<i 


ISM 0015. 

'ism 0016 

ISM 0017 


ISM 0013 
ISM 0019 
ISM 0020 


1 CRUS, IMtCRU, INCCRGr INCCVL, IM)E T A , INOF I X , I M CEU. , INDGPT, INCCSW, OOSIOCCO. 

6"l NDPCW', I XDPPP , lACRDi^, IPF !M 0Q52OOCO' 

CCPMOM LTl-L ,MCCFP ,MCXP» , Ct E , F EHF , P 1 ,0 , RHC , R F A U , R hP MR , R , R N 0C5 3C0C0 

CCRMOM SA,SA5,SA6,5A7, SFC ,ShPA,SHPP, SHT , SHTE , SHTW , S I GMA , S S IGMA , ST , 0054COCC 
■ iSTF£TA,'STFAX',S\l tSMTE, SVIR, SV,SWETI-,SW£XP,SWTT,SWUe.T ,S2RhC 005 500 CO 

COMMON T,IAF,TC£AF ,T(-ETA ,TMA>,TMP,T?R0P,TR,ULF,VGAS3, VGASR,VHL,V CO5600C0 

CCMMON h, VEAL, V>£ALNT,' aCC,V.£,V£P, WES, WF,WFC,V,FR, WPS, WFW,. . . 005700CC 

1 VcSB'iwFL ,wHT,VLG,Wf'C,VFAVL ,WFC,wPCS,WP£I,WPF,WPRe,WPRG,WPRP,WPSTR0058000C 


2,WRC,WRCA,WSC,F'CA ,V> S T , H M , W \ T , KW , V.P A Y LO , W AC , W ENV 

_CCMMOM_XLALa,XLE,XLBh, XLK , X LR,, XLW.YL S2 , TCVW, 

CC'mMQN CKR, SIGFF , AF, BHFP ,SEE 

NAMELIST /NWGMR/ vi E ,0V E , W E F , WPE I , WPR P , WPRG » UFH , WPRB , WPG S , hFS , 


CC5S0CC0 

C06CCOOC 

C06CC001 

C061CO00 


_ 1 V P.S.T P ,yi C .V HT , 7_, v> E S , W W I W S T , W t L , W.G ,S E , W B AL N. T , H C,C.,_V ,S .C, C062COOO 



ISN 

0022 

WCP=WX/ENF 


ISN 

0023 

WEF=SK3«6HPP+SK4«ENP 


ISM. 

0024 

WPEI=SKFE I*WEP 


ISM 

0025 

IF (SKPEI.GT.n GC TO 1 


ISM 

0027 

GC TO 2 


ISM 

0028 

1 WF£I=SKPEI 


ISN 

0C29 

2 IF ( INCCYL.CT.2 J GO TO ■ 


ISM 

0021 

R^'F=0.5*C^R 


ISM 

0032 

SRPR=XPR*CMR/2. 

I 

ISN 

0C33 

PP=3HPF/E^R 


ISN 

0034 

WPFP=ENR’ttSKAR^ ( SRFRx<*C .I 




IVT )*( SIGKP«PI#C^RX■*2A4C. 

IS, 

ISN 

0035 

WFRG=O.C 


ISN 

0036 

V<PF=0-C 


ISN 

0037 

WPRB=O.C 


ISM 

0036 

GC TO 4 


ISM 

0039 

3 SKC=12CC. 


i VPC,VRC,VTM,VfiC A ,WSCA,WFW,WMC,WBAL, VFC,WFE, WFUL, 

3 VPAVL,CIF,LLF ,VAC,V£NV 

WFW=0.0 

ww=b.6 

GLF=O.C 

W>=WO*( l.C-XLEVn 


. ISN 00A0,_ 
ISM OOAl 
ISM 0042 
ISM 0043 
ISM 0044 
ISM 0045 
_ISM 0047_ 
' ISM 0048 
ISM 0049 
_.ISN ,00 5Q_ 
ISN 0051 
ISM 0052 
..ISM 0053. 
ISM 0054 
ISN 0055 
_I5N_m5.6_ 


_PR-BHPF/ENR 

~RMP=0.6=»DPR 

T^'R=TVC^'R♦SIG^'R=♦PI’*R^'R/E^B 

SXCRP = RI'R>*^ 1.6/i£XC*TPF > 

~SRFR=XPR*FF'R 

IF (SKCRP.LT.l.C) SKCRP=1.C 

TPM = PI*WGR*EF'LF*(RMR-SRPPJ^SIGMR*SKRBF*.SJ<0.RFf.RMR’»J‘3 

‘ V,PBB=SKPRE>!' (I'.CE-'CT^TRpi )'*«0.438 
TBM2=9CC.*VT**2XV,FR8“!=PR*'RMR*>!'l.82*BMR’«'>l'2,5*SKAMO>i'1.0E-ll 

_KPF=SKPH* t7RM2_/ (8FR.*,PP.F.’«'F I.l; _■» 2 ) ».** 0 ._3_5_8 

isFfiG=EMRf (£Kl’=*VFRe + SK2XWfF) 

WPRP=0-0 

_PX = RHPP 

WPCS=SKPOS« (PX>i'SKPCSZ«=*C.25»FI«RKRX‘SKT/(30.*\(T) )**0.67 
VFS=SKFS«VFR 

WPSTR=WPRG*CK3*VFFPM-0K4*VF C S-»SK 5«HEP+ WP E I *W FS^ C.E.L W P 


, 00630000 

0064COGO 

00650000 

CQ66CCC0 

0067CC0C 

„Q0&8C0CC 

CC69CCCC 

C07CCOOC 

C071CCC0 . 

C072C000 

G073C0GC 

00740000 

0075CCCC 

007600CO 

0077O0C0 

CC78CC0C 
AB4 CG79CCCC 

ccacpocc 

C08100CO 

0082CCCO 

00830000 

00840000 

0085000C 

CC86C0C0 

008700CO 

0U38C0G0 

C089COCC 

C09C0C00 

C0910000 

C09200C0 

■"C0930COC 
1 C0940CC0 

00950000 

"'“‘C096C00C 
CO97COC0 
___ _ C098000C 

OC990000 

OlOCOOCO 
OlOlOOOO 



PAGT 003 


I 

H 

tn 


■ 

ISN 

JSN 

ISN 

ISN 

ISN 

'ISN~ 

ISN 

ISJL 

"iSN 

ISN_ 

‘Isw 

ISN 

ISN_ 

"ISN 

ISN 

ISN 

"ISN 

ISN 

_I 5 N_ 

is'n 

ISN 

ISN 

ISN 

ISN 

"ISN 

ISN 

i sn" 

ISN 

_ISN_ 

ISN 

ISN 

JSN 

ISN' 

ISN 

JSN 

is'n 

ISN 

ISN 

"is-n' 

ISN 

"Ts'n' 

ISN 

ISN 


0057 _ 
0059 
0061 
0063 
"006A” 
0065 
006 7 _ 

0069 

0070 
007 L 
" 0 ' 0'72 


007 3 _ 

0075 

0076 
007 7 __ 
'0073 
0079 

ooao 

0081 " 

0082 

OOS _3 

0 ' 085 “ 

00 S 7 

_ 00 J 9 _ 

0090 

0091 


0092 


0093 


0099 
009 5 
0097 
009 a" 

0099 

0100 
0101" 
0102 
010^ 
0109 

0105 

0106 
oTC7 
0108 


one 

0112 

0113 


IF_ ( INDDYL.EC: . INDCYL .EC .3 ), GO TO 5 _ 

I F n N D h'iI'l .Tc”. 1 J 'X C 1 = P I i'i F / I 1 . C + S Q R T ( ( P I * A R / 6 . 2 8 1 * >>'' 2 1 . 0 ) J 
• IF IINOHUL.GT.l ) XGl = PI'*AF/{l.C*SQRTt(PI>!‘AR/CLALPH )«*2 + 1 . 0 ) ) 

■ GLF= 1 . 0 +I C. CCS 99 *VPC/(C.C 126 *C aARW+ 0 . 06216 <«W X»£L F/ISW « XDl) ) ) 


ULF = 1 .5*EMF 
IF IGLF.GT.EPLF) 

IF nNCHOL.EQ.l) 

"Eh = BS'- 
GC TO 7 
SH = 0 H 

’FirL'^S"<H'LM ( WC7lCCCC 


UtF=l.S»GLF 
GC TC 6 


.T«rsWETH/1000. )=»W*Er0A*'!‘0.5>i‘ 


lALCG10(VCIV£)*LLF>>*0.3 1>*=iC.6e5 

_IF ISKENVl.AE.C.) WhL=C.C_ 

" WE'AV = SviETF'* (SK£|VVi'>»BH+£K£NV2 » 
hG£6=SKG61«SWeiF + SKGe2‘«fih«*2 

I M EALNT = SKEINT»S V>ETF ; 

UEAL = SKSA L'iSo 
ULG = SKLG*V>C 

_WFT = SKFT’l‘SFT _ „ 

1;V7'=SK'VIVSVT 

li\ES=St<PES’*KEP 

IF I INDCY L.EO.l .CR . INCCYL.JC .3) 
IF"! I'n'DFLU'GT'.iT GC TC 11 
IF ISKUU.EC.C.) GC TO 1C 


GO TO 11 


kU = SK«F.'>( FM’i'IUXfELF/lCCCC. >ASW/10C.*AL0G1Q( ES/DH)>^( ( 1.C+ 

i SLM/ 12 .* 7 Cft))*<C, 5 »bLF"MCV 55 'A LO’ G l' OT V C I~V E ) * A L C G 1 0 ( A R > ) 0 • 5 8 5 

GC TO 11 

1 C kk = SKWP*Sl*EXP 1 

■T^"VsJ=SK6*fl>■F■T+uT^V)+SK7‘t^^GSB + SK8■i<WW+S^<9*WHT^•SK^0*WVT + SK^l>i■l^l.G4^^ES + 

lCELtiST+V.S ALNT 

WCC = SKCC*{ViC/lCCC.) 4 «C .91 : 

WAC = SKAC+i»'C """" 

IF (INCCYL.GT. 2 ) GC TO 12 

V. 7 F = SKTP<»V.PfiP I- : 


WFCA=SKPCA*lsPRP 

V.SCA=SKSCA*(WPPP#ENR/ 1 CC.>«»C ,89 
JPC=WRCAJ>S_CA 

v<-pc=or 

hSC= 0 . 

GC TO 13 


12 


"C£C=SKSC>!'U WPFe 4 KFH«EAR/iOC.)=**C .89 

WPC= 0.0 

_nF=o.o _ _ : 

WPC=SKRC#hP'PG" 

IF ISKRC.GT.l.) WFC = SKRC>« IPHSIGMR^RMR^t-l.S/EP.R^IWPRBOENR/ 
IICCO. )'<'>» 0 . 5 )«*l.li 


ISN 

ISN 


0119 

0115 


j3^TFTiNDCYLTrC.2.CR.INCTYL..EC.9J WFV<=SKFW>i<WO 
WPG=SKPC 

Vi F C= wee +V^ A C* S K 1 2« h R.C + S H1 3*WSC4SKl9*^HFW4WTN»SK15-»W P C-<-WHC40ELMFC4 

iiCeal"" 

WE=WPSTP-»FST + V»FC+^.FE 

CV'E=HE4hFLL ' 


010200C0 
'01030000 
C 103 C 1 CC 
01090000 
O 1 O 5 CO 0 C ■ 
C 106 CQ 00 
010700 CO 
010800 C 0 ' 
01 C 900 CC 
OllCQOOO 
CillCCCC' 
01120000 
01 13 C 0 C 0 
C 119 C 0 CC ' 
01150000 
C 116 CCC 0 
C 117 COOO" 
01180000 
01190000 
"01200000 
C1210000 
012200 GC 
01230000 
01290000 
012500 CC 
' 01260000 ■ 
012700 CC 
CL 28 COOO 
Q 12900 C 0 ' 
013 CCOOO 
Cl 31 rCCCC 
01320000 
C 133 Q 0 C 0 
Q 13900 CC 
"01350000 
C 136 C 0 C 0 
0137 C 0 C 0 
'01380000 
C 13 SOOCO 
O 19 CCO 0 C 

■ C 1910000 
01920000 
0192 COC 0 

■ 01990000 
01950000 
01460000 

■" 0147 C 000 " 

01980000 

_ 019900 C 0 

0150 Q 0 G 0 ' 

C 15100 C 0 

015200 C 0 


P O 


II 

IS" 



iSN one 

hP/iYL = hO-Ve~ViFUL-inFR 

015300CO 

KAbt UU^ 


ISN 0117 

RETURN 

C15S000C 



00 

«— < 

a 

ENC 

C15600C0 




WtiHIK / 


SIZE OF PPCGRAM OOOOO 6 HEXADECIMAL EY7ES PAGE 005 



NAME TAG 

H 
V 

C 

C 

TYPE 

R«4 

R 14 

AOC. 

N.R. 

N.R. 

NAME .TAG 

Q 
W 

C 

C__ 

TYPE 

R«A 

R*A 

■R#A 

R«A 

_R#A_ 

ADD. 

N. R- 
N. R. 


3H SF 

CV 

FF 

c 

c 

R*4 

R«4 

OOOIEO 

N.R. 
N.P . 

BR 

ex 

FM 

C 

c 

_c_ 

N . R • 
N.R. 
N.R. 

OOOIEA 

N.R. 

0Q01A8 


PI FA 

SA 

VC 

c 

C 

C 

p«4 

R*4 

p^4 

00086A 

N.P. 

N.R. 

PR SF 
ST 

VT F 

c 

c 

R*A 
RWA 
R*A 
'R’t'A 
R*A 
R*A _ 


we F 
XC 

BMR F 

C 

c 

C 

R*4 

R*4 

RW4 

00002A 

N.R. 

00012 c 

u s 
AMU 
evT 

c 

c 

c 

N.R. 

N.R. 

N.R.__ 


COC 

CKl 

DK3 F 

c 

c 

c 

p>>4 

R*4 

P«4 

N.R. 

N.R. 

0002CC 

cev 

CLW 

CKA F 

c 

c 

_c_ 

R*A 

R*‘A 

R*A 

'R*A' 

R»A 

_R«‘A__ 

N.R. 

N.R. 

O002E0 


ELF f 
ENP F 
GLF SF 

C 

c 

c 

R<4 

B=t4 

P*4 

00028C 
0001 1C 
0007CA 

ELN 

FEH 

fe's 

c 

c 

c 

N.R. 

n'. R. 
N.R.__ 


RHO 

SA5 

SFC 

c 

c 

c 

P?4 

R’tA 

B=(‘4 

N.R. 

N.R. 

N.R. 

PMI F 
SA6 

Sl-T F 

c 

c 

c 

R'i'A 
R't'A 
R*A _ 

000290 

N.R. 

000S9C__ 


SKI F 
SK5 F 
SK9 F 

c 

C 

c 

R’^A 

R«4 

P#4 

0002CA 

0002EA 

0002FA 

SK2 F 
SK6 F 
SLM F 

c 

c 

c 

r’*a 

R*A 

R*A 

00C208 

0002E8 

_OOOOD8 


TAF 
TMR SF 
VHL 

c 

c 

R*4 

P#4 

R»4 

N.R. 

C001F8 

N.R. 

TCR F 

TCC 

VIN 

c 

c 

c 

R#A 

Rit-A 

R*A_ 

'ocoooc 

'NiR'. 

1 

1-' 

•sj 

wee SF 
WFE , F 
WGR SF 

c 

c 

p#4 

P^A 

R*4 

00092C 
OC0230 
000 IFC 

WEP SF 
WFR F 
WHL SF _ 

c 

c 

_c_ 

R* A 
R*A 
R*A 

00C928 
00C936 
000948 
‘ OOC95C" 
00093C 
00020C_ 


WMC SF 
WSC SF 
WVT SF 

c 

c 

c 

P*4 

B#4 

B’^A 

0OO95A 

000984 

000994 

WP C SF 
WST SF 
XCl SF 

c 

c 

R*A 

R>!<A 

R»A 


XLW 

ARVT 

CDHT 

c 

C 

c 

R*A 
R>t A 
F>>A 

N.R. 
!M • • 
N*R. 

XMR F 
EHPA 
CDVT 

c 

c 

c 

R*A 

R#A 

R*A 

' 0001 40 

N.R. 

N.R. . 


CKVT 

DAK4 

ELON 

C 

c 

c 

R*A 

R»A 

p«4 

N.R. 

N.R. 

N.R. 

CAKl 

CAM5 

BLOT 

c 

c 

c 

R#A 

R*A 

_R*A. 

N.R. 

N.R. 

N.R. 

"o'ocoaa' 

N.R. 

N.R. 


6LVT 

FEHI 

FEWH 

c 

c 

c 

R*A 

R>»A 

RMfA 

N.P. 

N.P. 

N.R. 

EMLF F 
F cHL 
FEWI 

c 

c 

c 

R*A 

r'#a 

R#A_ 


GAP3 

GAP? 

PLIN 

c 

c 

c 

R<A 

B>*A 

P*A 

N.R. 
N * P • 
N.R, 

G A FA 
FFIN 
PEL I 

c 

c 

c 

R* A 
R'«'A 
R»A 

N.R. 

N.R. 

N.R. 


SHPR 
SKAR F 
SKHL F 

c' 

c 

c 

■R!*A 

R^A 

R=>A 

N.R. 

0OO2EO 

000268 

S'FTE 
SKCC F 
SKHT F 

c 

c 

c 

R*'A 

R*A 

R’t'A 

■“R>i‘A' 

R*A 

R^A 

N.R. 

000244 

000298 

000'2A8' 

00029C 

0002FC 


SKPA F 
SKTM F 

Cl^ 1 n P 

c 

c 

r 

P«A 

R>!A 

R44 

00'02‘EA 

000254 

D002F8 

SKPH F 
SKVT F 
SKll F 

c 

c 

c 


NAME 

R 

AF 

"b s' ' 

DH 

FP 

PX 

SM 

WE 

WW 

8HT 

CCP 

CKF 

CRT 

OMR 

"ELf' 

FET 

HOO 

RMR 

SAT 

SKD 

SK3 

SK7 

STH 

TCT 

T-VW 


TAG 

C 

FA C' 


FA 

'SF“ 

F 

SF 

S'F" 


C 

S-. 

c 

c 

"c‘ 

c 

c 

'c 

C 

c 


TYPE 

R#4 

R#4 

■R*4r“ 

R*4 
R#4 
R*4’ 
R*4 
R#4 
■Rx'A 
R*4 
R«4 
R*4 ' 
RV4 
R*4 



C 

R*A 


c 

R’i'A 


c_ 

R*4 

“SF' 


■R’^'A 


c 

R’i'A 

SF 


R + A 

' F' 

■“■"C”' 

R«A 

F 

, c 

R*A 


VMO 
“WES' 
WFS 
WHT 
" WPH 
WTM 
.XL6 
'ALFR- 
BHPP 
CKFF 
CAM2 '■ 
OELR 
ELHT 
‘ ETAP" 
FEHT 
GAPl 
“GAPS' 
LTHL 
RMAX 
■■SHTi^' 
SKFS 
SKLG 
“SKRC" 
SKHP 
SK12 


"SF 

SF 

SfL 

SF 

SF 


C 

"c‘ 

c 

c 

C ' 

c 

c 

c 

c 

c 

c' 

c 

c 

-C" 

c 

c 

T’c' 

c 

c 

~'c 

c 

c 

“C 

c 

c 

"c 

c 

c 


R*4 

R*4' 

R«4 


ADD. 

N.R, 

N.R. 

000668“ 

00C6C4 

N.R, 

0001E8 

OOC8C8 

00C924 

000S98 

N.R. 

N.R. 

N.R. 

N.R. 

OOC9C8 

N.R.' 

N.R. 

N.R. 

'OOOIFO 

N.R. 

OOOIFA 

■'000483 

0002EC 

N.R. 
N.R. 
N.R. 


NAME 

T 

_ AR 
“ CE 
EN 
HC 
“■ RN 
TR 
WF 
NX 
BLP 
CCT 
CKW 
CTP 
ELC 
“■ ENP 
FEW 

ewe 

RCU 
SEE 
SKT 
■■ SKA 
SK8 
SVT 
" TMP 
ULF 


'TAG 


FA, 


SF 


F 

F" 

F 

F 

SF 


C 

C_ 

“C 

c 

c 

C 

c 

c 

c 
C 
■ C 
C 
c 
c 
c 
c 
c 
c 
c 

“c" 

c 

c 

c 

c 


TYPE 
R«4 
R*4 
■R*4" 
R*4 
R*4 
R»4 
R*4 
R=C4 
■R*4 
R*4 
R#4 
R*4- ' 
R*4 
P«4 
R=!-4 ■ 
R’^A 
R«4 
R*4 
R*4 
R#4 
R*4 ■ 
R’1'4 

R<>4 
R*4 " 
R*4 


ADD. 

N.R. 

ccooca_ 

N.R . 
N.R. 
N.R. 

N.R. ■■ 
N.R . 
N.R. 

"O'OOIEC" 

N.R. 

N.R. 

— N.R." 

N.R. 

N.R._ 

'000194 

N.R. 
0C08SC 
N.R. 
N.P . 

■0002C4 

"OCCABC" 

0C02F0 

0C03BC 

N.R . 

OC0900 


R-WA 

OOCOAO 

WAC 

SF 

C 

F^*A 

0C09A0 

■r*a 

' 00C92C 

WFC 

SF 

c 

R*A 

0C093A 

RtA 

00093C 

WFW 

SF 

c 

R«A 

0C09A0 

R*A 

.00C9AC 

WLG 

SF 

c 

R’»'A 

CC0950 

R*A 

OOrC968 

WRC 

SF 

c 

B«=A 

0C097C 

R#A 

00C990 

WVA 


c 

R+A 

N.R. 

R«A 

N.R. 

XLR 


c 

RfA 

N.R. 

R«!4 ■■ 

N.R. 

"■ ARHT 


c 

R’i'A 

N.P. 

R*A 

00C9DA 

BHPR 


c 

R«A 

K • R • 

R*A 

N.R. 

CKHT 


c 

R'fA 

N.R.' 

R*A' 

N.R. 

CAM3 


c 

R^A 

N.R. 

R>i<A 

N.R. 

eVOL 


c 

R*A 

N.R. 

R*A 

M • R* 

ELCA 

F 

c 

R’i'A 

000608 

R>»A“ 

M • R • 

ETAT 


'c 

R’i'A 

N • K • 

R'i'A 

N.R. 

FEVT 


c 

R*A 

N.R. 

R*A 

N.R. 

GAP2 


c 

R’i'A 

N.R . 

R’i'A 

■" N.R. 

■ 'GAP6 


c 

R’i'A 

N.R. 

IX'A 

N.R. 

PEHF 


c 

R*A 

N.R. 

R>!=A 

N • B • 

SHPA 


c 

R’i'A 

■ N.R. 

"R’f-A" 

N.P. 

“'SKAC 

’F 

c 

• R’i'A 

0C026 A 


R>!=4 

R’t^A 

■‘R*4 

R*4 

R*4 


00C2C8 

000284 

'00C248 

OOC294 

000300 


SKFW 

SKMC 

SKSC" 

SKWK 

SK13 


C 

C 

C 

C 

C 


R*4 

R*4 

■R*4 

R*4 

R’«i4 


CC0250 
0CU260 
■ C0024C ■ 
0C0288 
000304 



SKI 4 F 

r 

R*4 

0003C8 

SK15 F 

C 

R*4_. 

00030C 

STPW 

c 

R#4 

N.R. 

£VT6 

C 

R*4 

N.R. 

TBHl 

c 

R»4 

N.R. 

78h2 

C 

R*4 

N.R. 

TCLN 

c 

R*4 

N.R. 

KVT 

c 

R44 

N.R. 

T1N4 

c 

R»4 

N * « 

TMAX 

c 

R44 

N.R. 

TRM2 SF 


R*4 

C002CC 

T«Tk 

c 

R44 

N.R. 

WFUL F 

c 

R=*4 

000234 

1-GS8 £F 

c 

R44 

000944 

WPR6 SF 

c 

R>»4 

00096C 

UPRG SF 

c 

R44 

000970 

WSCA SF 

c 

R»4 

000968 

XLBH 

c 

R*4 

N.R- 

YLS2 

c 

R*4 

N.R. 

ALFOL 

c 

R44 

N.R- 

C6ARW F 

c 

R'iA 

00067C 

CLOtS 

c 

R44 

N.R. 

CPNUD 

c 

R*4 

N.R. 

CFPAR 

c 

R44 

N.R. 

CELTA 

c 

R<4 

N.R. 

C6LTH 

c 

R44 

N.R- 

CSV-ET 

c 

P“(4 

N.R. 

ELCOA 

c 

R44 

N.R. 

ETAP4 

c 

R’t4 

N.R. 

FETGT 

c 

R44 

N.R. 

ICRUS 

c 

f#4 

N.R. 

NCCFP 

c 

144 

N.R . 

REALJ 

c 

R>«4 

N.R. 

RFFMR 

c 

P44 

N.R. 

SKAMC F 

c 

R*4 

0002AC 

SKEAL F 

c 

R*4 

000280 

SKGB2 F 

c 

RXi4 

000278 

SKPOS F 

c 

R44 

00026C 

SKPRB F 

c 

P«4 

0002AO 

SK38F F 

c 

R*4 

0002A4 

SLMVT 

c 

R>«4 

N.R. 

STMAX 

c 

R44 

N.R. 

SWWET 

c 

R>i4 

N.R. 

S2RFC 

c 

R44 

N.R. 

T3EM5 

c 

R»4 

N.R. 

TEFCVl 

c 

R44 

N.R. 

THETA 

c 

R*4 

N.R. 

TFRCP 

c 

R44 

N.R. 

V6ARV 

c 

R^4 

N.R. 

VCIVE FA C 

R44 

5 . 0,005 a 

NGHTR 


R=«4 

000214 

UFAYL S 

c 

R44 

000958 

XLBWG F 

c 

R«4 

000028 

XLRLA 

c 

R44 

N.R. 

■jJ FflXPRfl 

XF 

R>*4 

OOOOCO 

ALFCES 

c 

R44 

N.R. 

■ -CEARVT 

c 

R<4 

N.R. 

C8YLCA 

c 

R44 

N.R. 

■vJ CTSIGH 

c 

R»4 

N.R. 

CYCPRL 

c 

R*4 

N.R. 

00 DELImFC F 

c 

R*4 

000238 

CELWPL 

c 

R44 

N.R. 

DLTAFE 

c 

R*4 

N.R. 

CLVLHL 

c 

R44 

- N.R. 

DYLINO 

c 

R=»4 

N.R. 

ELFLCA 

c 

R44 

N.R. 

FTAP4N 

c_ 

P«4 

N.8.» 

. EXPCRG 

c 

R*4_ 

N.R. 

GAMDU 

c 

R<4 

N.R. 

FULIND 

c 

R*4 

N.R. 

INOOYL 

c 

144 

000828 

INCETA 

c 

144 

N.R. 

INDOPT 

c 

144 

N.R. 

INCCSh 

c 

144 

N.R. 

INOROM 

c 

144 

N.R. 

IPRINT 

c 

144 , 

N.R. • 

OSWIND 

c 

R44 

N.R. 

PPPINC 

c 

R44 

N.R. 

SGTINO 

Q 

' R44 

N.R. 

SKELNT F 

.c. 

R44 

.0.0027.C 

SKP0S2 f 

c 

R44 

0002CO 

SKVTAR F 

c 

R44 

0002B8 

TBCDWt 

c 

R44 

N.R. . 

TB8AP4 

c 

R44 

N.R. 

VGBOVH 

c 

R44 

N.R. 

V.8ALNT SF 

c 

R*4 

O0091C 

XTGTA4 

c 

R44 

N.R. 






C C/'MOIL i.N?CR M AT I 


NAME. CF CC M MCN B LOCK _ ^ ■> SJ 2E CF E LOCK Q 0090 C. 

VAR. AAFE TYPE PEL. AOCR. VAR. NAPE TYPE REL. AODR. 
OPTUC B»A N.R; KJ LIKC R*A N.R. 
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SLMH 

C 

R44 

N.R. 

SRMR SF 


R44 

000204 

SVTW 

C 

R44 

N.R. 

SNTT 

C 

R44 

N.R. 

TBTO 

c 

R44 

N.R. 

TChT 

C 

R44 

N.R. 

TINY 

c 

R44 

N.R. 

TIN2 

c 

R44 

N.R. 

TOVW 

c 

R44 

N.R. 

TRMl SF 


R44 

000203 

W5A L S F 

c 

R44 

0CC910 

V^ENV SF 

c 

R44 

OC09A4 

NPDS SF 

r. 

R44 

000960 

WPEI SF 

c 

R44 

0C0964 

WPRP SF 

c 

R44 

O0C974 

WRCA SF 

c 

R*4 

0C093C 

XLGO 

c 

R44 

N.R. 

XLHL 

c 

R44 

N.R. 

ATMIY 

c 

R44 

N.R. 

CBARF 

c 

R44 

N.R. 

CLEYE 

c 

R*4 

N.R. 

CPIND 

c 

R44 

N.R. 

CPPRO 

c 

R44 

N.R. 

CPTCT 

c 

R44 

N.R. 

DELWF 

c 

R44 

N.R. 

CELWP F 

c 

R44 

00023C 

ENPCR 

c 

R44 

N.R. 

ETAP2 

c 

R44 

N.R. 

GMODl 

c 

R44 

N.R. 

HKAXD 

c 

R44 

N.R. 

NOXPJ 

c 

144 

N.R. 

PFET2 

c 

R44 

N.R. 

SIGMA 

c 

R44 

N.R. 

SIGMR F 

c 

R44 

0CQ9CC 

SKDRP SF 

. 

R*4 

000210 

SKG81 F 

c 

R*4 

0C0274 

SKPEI F 

c 

R44 

00C2CC 

SKPES F 

c 

R*4 

0C02D0 

SKRCA F 

c 

R44 

000258 

SKSCA F 

c 

R44 

00025C 

SWETH F 

c 

R44 

0008CC 

SV«EXP F 

c 

R44 

000800 

T8CL 1 

c 

R44 

N.R. 

TBCPP 

c 

R*4 

N.R. 

TBSFC 

c 

■r44 

N.R. 

TCBAR 

c 

R44 

N.R. 

TVCHR F 

c 

R44 

000144 

VBARh 

c 

R44 

N.R. 

VGASB 

c 

R44 

N.R. 

VGASB 

c 

R44 

N .P . 

WPSTR SF 

c 

R44 

00C978 

XLALB 

c 

R44 

N.R. 

ALOGIO 

XF 

R*4 

OOCOOO 

SORT 

XF 

R44 

QCOOOO 

BHPSUP 

c 

R44 

N.R. 

CBARHT 

c 

R»4 

N.R. 

CLALPH FA 

c 

R44 

00C1C4 

CRSINO 

c 

R44 

N.R. 

DELFCR 

c 

R44 

N.R. 

DELRTH 

c 

R*4 

N.R. 

DEL(VST F 

c 

R44 

000240 

DLSNSH 

c 

R44 

N.R. 

CRGIND 

c 

R*4 

' N.R. 

DSPLMT 

c 

R*4 

N.R. 

ELVLQA 

c 

R44 

N.R. 

ETAINO 

c 

R*4 

N.R. 

FEDRAG 

c 

R44 

N.R. 

FI XIND 

c 

R44 

N.R. 

fNDCRU 

c 

144 

N.R. 

INCORG 

c 

1*4 

N.R. 

INOFIX 

c 

144 

N.R. 

INCHUL 

c 

1*4 

000834 

INDPOW 

c 

144 

N.R. 

INCPRP 

c 

1*4 

N.R. 

NWGriTR 



00C027 

QPTIND 

c 

R44 

N.R. . 

RDMIND 

c 

R44 

n.r; 

RHGRHO 

c 

R*4 

N.R. 

SKENVl F 

r. 

R44 

00026C 

SKENV2 F 

c 

R*4 

000270 

SSIGMA 

c 

R44 

N.R. 

STHETA 

c 

R44 

N.R. 

THETMR 

c 

R44 

N.R. 

TOLINO 

c 

R*4 

N.R. 

WPAYLO 

c 

R44 

N * R • 

XTGTA2 

c 

R*4 

N.R. 


. i(t***# 

FEXAOEC IHAL„ BYTES... 

VAR. NAME TYPE REL. ADOR. VAR. NAME TYPE REL. ADDR. 
DYLI NO R*4 ^ _j ^ ^ 


5A6E' C07 



OShINC , 

R=»'A 

M . R . 

FIXINC 

P«4 

N.R. 

RDKIND 

R#4 

N.R. 

■“"O0C028 
■ N.R. 

N.R. 

PRPIND 
XLRLA 
' RHCRHO 
CELWF 

R*4 

R+4 

R*4 

R44 

N.R. 


ETA IKC 
VCBCVJ- 
VNC 

■ R4A 
R*A 

N.R. 

N.R. 

000040 - 

V^C 

XLCC 

£MF 

R«4 

Rt4 

CC0024 ' 

N.R. 

000044 

XLBWO 

HNAXD 

CKl 

r'>*4 

p«4 

P=*4 

N.R. 

N.R. 

N.R. 


CKPF 

TCC 

ELVLCA 

R»4 

R«A 

P»A 

N.R. 
N • R • 

N*R. 

VCIVE 
GAP 1 
GAP2 

R#4 

P'tA 

R#4 

000054 

N.R. 
N • R • 

HOO 

SGTIND 

AR 

R*4 

P*4 

R44 

N • R * 
N • R • 

OCC0C8 

R L'U 
ELHLOA 
NS 

R*4 

R*4 

RwA 

■■ P*A " 
R*A 
R*4 

N.R, 

N.R. 

N.R. 


TCP 

TCt-T 

TCVT 

R*A 

R*A 

RAA 

ooooco 

N.R. 

N.R. 

TCT 

VEARF 

VBAPV 

R^A 

P»4 

R>^4 

N.R. 
N.R. 
N • R • 

' SLM 
SLNH 
SLMVT 

R^4 

B*4 

R*4 

00C0D8 

N.R. 

N.R. _ 

arht 

ARVT 

ELCN 

N.R. 
N. R* 
N.R. 

o c 

*3Tf 

ELCT 
DLVLH 
P VA 

R*A 

RA4 

R*A 

N.R. 

N.R. 

N.R. 

ELCCA 
CVCL 
CAP 1 

P=«4 

R*4 

R*4 

N.R. 

N.R. 

N.R- 

DLSKSH 

CBYLOA 

DAM2 

R*4 

R’^A 

R«4 

N.R. 

N.R. 

N.R. 

DSWET 

ENR 

BMP 

R»A 

R^A 

R*A' 

R*A 

R44 

R4A 

B=CA 

R’t'A 

R*A 

N.R. 

CCOllC 

.0CC12C 

• _p § 

C AP3 
>!M5 
TU 

P4A 

P«A 

N.R. 

000140 

N.R. 

CLEVe 

TVCPP 

FES 

R'tA 

R=»4 

R44 

N.R'. 

0CO144 

N.R. 

THETMP 
VT ' 
TINY 

R^A 

R44 

P*4 

N.R. 

000148 

N’.R. 

■' XC 

CTSIGH 
ETA-R2 

N.R. 

N.R. 

N.R. 

§-p 

ETAPAN 
C AP4 
VC 

R«A 

N.R. 

N.R. 

N.R. 

TBEPS 

ENF 

ATMIV 

R*4 

R*4 

RitA 

N.R. 

CC0194 

N.R. 

TB8AP4 

"ETAT 

CDVT 

R»4 

R^4 

R*4 

N.R. 

N.R. 

N.R. 

GAPS 

HC 

CCHT 

N. R. 
N.R. 
N.R. 

■ 

CAPS 

CCC 

CPf 

P*A 

P*^ 

N.R. 

N.R. 

N.R, 

CLTAFE 

CLALFF 

CKK 

R«4 

R*4 

RA4 

N.R. 

OC01C4 

N.R. 

FECRAG 
CKVT 
REL I 

R44 

P*4 

R*4 

-N.R. 

N.R. 

N.R. 

EXPURb 

CKHT 

TCLN 

R4‘A 

B*A 

R4A 

R*A 

R*A 

B*A __ 

Rwa 

R*A 

B*A _ 

N.R. 

N.R. 

N.R. 


T8CL1 

KfLL 

SKOC 

p»4 

P#4 
R* A 

N.R. 

000224 

000244 

TBCCK I 
CELWFC 
SKPC 

R*4 

R’^A 

p»4 

N.R. 

CC0238 

0C0248 

GAP4 

DELWP 

SKSC 

R*4 

R*4 

R«4, 

N.R. 

0CC23C 

00C24C 

N FE 
DELKST 
SKFV. 

0 0 0^ ^ w 

CC0240 

COO 2 SO 


SK ]P 
SKAC 
SKGEl 

RW4 
B*A • 

00C254 

000264 

000274 

SKRCA 

SKHL 

SKGE2 

P#4 

R*4 

FA4 

0C0258 
CC0268 
00027'0 ■ 

SKSCA 

SKENVl 

SK6LNT 

R44 

P«4 

R44 

00C25C 

OOC26C 

0CC27C 

SKMC 

SKENV2 

SKBAL 

CC0260 

000270 

CC0260 

-J 

1 

(-* 

SKLC- 

SKVP 

SKREF 

pT4' 

P*4 

R>t^ 

000284 
000294 . 
0002A4 ■ 

SK^vK 

SKhT 

SKFF 

R*4 

p’j^A 

R*4 

OCO208 

0CC298 

0002A8 

ELF 

SKVf 

SKAMD 

R*4 

R44 

R44 

00C23C 

00C29C 

OOC2AC 

RMI 
SKPR8 
SKAR 
■" 'SKPDS2 
SKPES 
DK4 

R4A 

P»4 

R*A 

■ ■ R*A ■■ 
RKA 
R*A 

0 0 02 9 0 
0002A0 
CCG2B0 

Vi) 

SKFA 

SKT 

SKI 

P=»A 
P« A 

0002E4 

0002C4 

0002C4 

SKVTAF 
SKFS 
■ SK2 _ 

R*4 

P#4 

R*4 

0002B8 
OC02C8 ' 
0C02DB 

' SKPDS 
SKPEI 
0K3 

R44 

P44 

R44 

00C2BC^ 

OOC2CC 

0002DC 

■■ooc2ec 

0002FC 

00030C 

0 Lj U u 
000200 
CCb2£0 


SK5 

SK9 

SK13 

R>t A 
P*A 
P»A 

0002 E4 
0002P4 
00C304 

SK6 

SKIC 

SK14 

R#4 

P*4 

R*4 

0C02E8 

0002F8 

CC0308 

' ■ ■' SK7- 

SKU 
SK15 

P44 

R44 

R*4 

•SK8 

SK12 

PLIN 

B*4 

R«A 

R*A 

0002FQ 

OC0300 

N.R. 


GAPS 
TKTK 
CRS INC 

R*A 

N.R. 

N.R. 

N.R. 

TCUINC 

PFET2 

■XTGTA4, 

-R*4 

P*4 

RfA 

N.R. 

N.R. 

N.R. 

XTGTA2 

OELTH' 

TINA 

R44 

R44 

R*4 

"R*4 

R44 

R=*4 

N.R. 

N.R. 

N.R. 

TIN? 

STH 

VIN 

R*A. 

R«A 

R*A 

■■■ R4A'- 

R*A 
R*A 

N.R. 

N.R. 

N.R. 


CELR 

CELlvFL 

CYCFFL 

P«A 

R*A 

N.R. 

N.R. 

N.R. 

RRA> 
■ STPV 
FF 

P*4 

P*4 

R=*4 

N.R. 

N.R. 

N.R. 

DELFCR 

HFIN 

SK3 

N.R. 

N.R. 

_ OpCABS 

FNFCP 

6AP6 

SKA 

N.R. 

N.R. 

00043C 


TBH 

TBSK 

ALFCL 

P>>A 

R>K4 

R«^ 

N.R. 

N.R. 

N.R. 

TETC 

TBPOK 

ALFP 

R*4 

R44 

R*4 

N.R. 

N.R. 

N.R. 

TBH2 

GAP? 

AMU 

R44 

R»4 

R44 

N.R. 

N.R. 

N.R. 

TBCRP 

ALFOES 

BHFA 

R*A 

R»4' 

R*A 

N.R. 

N.R. 

N.R. 


BHFB 

ER 

CEARI-T 

R*A 

p^A 

BOA 

N.R. 

N.R. 

N.R.- 

EHPSUF 

ES 

CEARVT 

R*4 

R*4 

'R*4 

N.R. 

000663 

N.R. 

BHT 

BVT 

CBARW 

RA4 

R4A 

R44 

N.R. 

N.R. 

OOC67C 

6LP 
CBARF 
CCP 

R*A 

R4A 

R>(<4 

■ ■ ' R*4 “ 
R*4 
■ B’i'A 

N.R. 

N.R. 


CCT 
CFNbC 
CRT ■ 

R'l'^ 

N.R. 

N.R. 

N.R. 

CCV 
CP'PAP 
CTP ' 

P>»4 

R«4 

R#4 

N.R. 

N.R. 

N.R'. 

CLW 

CPPRO 

CV 

P *4 
R*4 
P*4 

N.R. 

N.R. 

N^._R . 

• CPI NO 
CPTOT 
CX 

'JN * rs • 

N.R. 

N.R. 








’ " 
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CLCES 

R>i=4 

N.P. 

C£ 

R*A 

N.R. 

DELRTH 

P«A 

N.R. 

DELTA 

R*A 

N..R. •• . . 


Cf- 

R^i-A 

0006CA • 

CSPLM 

P*A 

■ N.R. 

ELC 

R’>A 

N.R. 

ELHT 

R*<A 

• N.R. 


EL^ 

R’AA 

N.R. 

ELCA 

R-iA 

OC06D8 

ELT ‘ 

P*A 

N.R. 

cLVT 

R>SA 

N.R., 


EN 

P>>4 

N * R • 

ETAF 

R*A 

N.R. 

FEH , 

R«A 

N.R. 

FEH.I- 

R*A 

N.R. 


FEU 

R*4 

N.R. 

FEFT 

R*A 

N.R. 

FET 

R#A 

N.R. 

FETCT 

R*A 

N.R. . . ■ " 


FEVT 

R*4 

N^P. 

FEl- 

R*A 

N.R. 

FEWH 

P#A 

N.R. 

FEU 

R*A 

N.R. 


fF 


M.R. 

FF 

P^<i 

N.R. 

ETAPA 

R*A 

N.R. 

GAMOll 

R*A 

N.R. 


CLF 

R«4 

0007CA 

GKCDl 

R*A 

N. R. 

H 

R»A 

N.R- 

ICRUS 

l*A 

N.R. 


INDCFU 

I#4 

N.R. 

INDCRC 

I*A 

N.R. 

INOOYL 

I*A 

00C820 

INOETA 

1*4 

N.R. 


INOF !X 

1=*4 

N.R. 

INOHUL 

1>»A 

00003A 

INCOPT 

1*4 

N.R. 

INOOSkv . 

I*A 

N.R. 


INDFC^^ 


N.R. 

INDPRF 

I*A 

N.R. 

I'NDRDM 

I*A 

N.R. 

■ IPRINT 

1*4 

N.R. 


LTFL 

I«4 

N.R. 

NCCPF 

I=4A 

N.R. ■ 

NOXPJ 

I*A ■ 

N.R. 

CUE 

R*A 

0CCQ5C 


PEFF 

R«4 

N.R. 

F I 

R*A 

00036A 

0 

P*A 

N.R. 

RHO 

R*4 

N.R. 


REAL J 

R>»4 

N.R. 

RFFKR 

R*A 

N.R. . 

R 

R*A 

N.R. 

RN 

R*A 

N.R. 


SA 

R»4 

N.R. 

SAi 

P«A 

N.R. 

SA6 

P*A 

N.R. 

SAT 

R*A 

N.R. 


SFC 

R*4 

N.R. 

SHFA 

R*A 

N.R. 

SHPR 

P*A 

■ N.R. 

SHT 

R*A 

CC089C 


SHE 

R«4 

N.R. 

SHTU 

R»A 

N.R. 

SIGMA 

R*A 

N.R. 

SSIGNA 

R*A 

N.R. 


• ST 

R«4 

N.R. • 

STH6TA 

R*A 

N.R. 

STMAX 

R*A 

N.R. 

SVT 

R*A 

CC085C 

* ' 

SVTE 

R*4 

N.fl, • 

SVTV 

P*A 

N.R. 

SW 

B*A 

oocaca 

SuETH 

R*A 

OOOSCC 


ShEXP 

R*4 

0008CO 

SInTT . 

R>* A 

N.R. 

SWWET 

R*A 

N.R. 

S2RhO 

R*A 

N.R. 


T 

R*4 

N.R. 

TAF 

P*A 

N.R. 

TC8AR 

B*A 

N.R, 

THETA 

R*A 

N.R. 


Tf/AX 

R«4 

N.R. 

TPP 

R«A 

N.R. 

TPRDP 

B*A 

N.R, . 

TB 

R*A 

N.R, 


L.LF 

R«4 

0009C0 

VGASB 

R->A 

N.R. ■ 

VGASR 

R«A 

K..R, 

VHL 

R*4 

N.R. 


V 

P«4 

N.R. 


R + A 

N.R. 

H6AL 

RAA 

000918 

WBALNT 


0CC91C 


i»cq 

R*4 

000920 

ViE 

RAA 

OC092A 

WEP 

R*A 

0CC928 

UES 

R*4 

CCC92C 


I' F 

R’t'A 

N.R. 

hFC 

R«A 

OC093A 

rt'FR 

R*A 

OCC930 

UFS 

R*4 

0C093C 


V\Fh 

R*4 

0009AO 

hGSE 

R^A 

OC09AA 

HHL 

R*A 

000948 

UHT 

R*A 

CC094C 


■ l^LG 

PAA 

. 000950 

hMC 

R*A 

OC095A 

WPAYL 

B#A 

0CC958 

KPC 

R*4 

00095C 


HFCS 

R«A 

00096C 

kiPE !■ 

R*A 

OC096A 

WPH 

R*A 

000968 

UPR8 

R*4 

0CC96C 

1 

WPRG 

RAA 

000970 

kPR F 

P«A 

OC097A 

WPSTR 

P*A 

000978 

WRC 

R*4 

0C097C 


•a RCA 

R«A 

0009E0 

V»SC - 

R^A 

OC0984 

V.SCA 

R*A 

0CC988 

UST 

R*4 

..00098C 

"XXr 

Q 

FTP 

R«A 

Q0099C 

F\iT‘ • 

PfA 

CC0994 

WW 

fi*A 

000998' 

WPAYLO 

R*“4 

N. R. 


VsAC 

R»A 

0009AC 

WENV 

R=CA 

0C09AA 

XLALB 

R-fA 

N.R. 

XLB 

R*4 

N.R. 


XLBF . 

R*A 

N.R. 

XLFL 

P«A 

N.R. 

XLR 

B*A 

N.R. 

XLW 

B*4 

N.R. 


YLS2 

R*A 

N.R. 

TOVU ■ 

R’l'A 

N.R. 

OMR 

R + A 

0CC9C8 

SIGMR 

R*4 

OC09CC 

' 

AF 

R’CA 

N.R. 

BKPP 

RAA 

00090A 

SEE 

R*A 

N.R. 


tT- 
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■fASET ACCR’ ■ ' ' 'Tab"el "addr"” ' la'be'l " aoor 

2 CCC532 3 C00602 ■ . , 00078A_ 

-£ C'c'cTZfi - Q(.Qg3Q g OOOAljS NR 

11 CCCB6A ' 12 -CCCC4C 13 COOOIC 


pA'G'E "oog 


^CPlIONS'lN EFFECT* NAME= F A I N't CFT=02 » 1 1 ECKl = 5^ t S I fE=OOQOK » 


’S'C F T 1 0 NS I N EFFECT* ^SpJJRC^ , E_BC C1C,NGH ST tNC D ECK , LOA D,M AP ,N CEO IT, I O>NQXRE F 

’»STATI STICS* SOURCE STATEMENTS = 117 .PROGRAM SUE = 3EA2 

VsTATfsTl’CSi NO b'rACNrrTlCS“6ENfFrA“EC 


end CF CCNFIIATICN 


95K BYTES CF CORE NOT USED 


LSVEL 21.7 I JAN 73 1 


QS/360 FORTRAN H 


DATE 75.C57/11.12.07 


CCFPILER CFT IC NS - K Af< !i.f ^ A_I C P J = CJ^L I NECNT = 5AtS IZE=OCOOK, 

scOPce.Tecc ic, ac list, nodeck, load, pap, nced it, ic,ncxref 

ISN 0002 FLNCTICN XLINT (> T , VT , X ,M AB , P ) 

cm* PENDER NAPE BEIXtlNT 


IS.N 0003 
ISN OOOA 


ISN 

ISN 

ISN 


0039 

OOAO 

OOAI 


CIPENSICN XT( 1), VT( 1) 
XSAV=XTm 


OOOIOOCC 

00C2C0CC 


CCCBOOCC 

OOCACOOO 

000500CC 



ISN 

ISN 

ISN 

0006 

C0C7 

0008 

1 

P = C 

IF(X-XT(1)) 1,2,3 
P = -l 





00 C 6 C C C C 
C007C0CC 

oooacocc 




ISN 

0009 

2 

XL I.NT= >T(1) 





CCC9C0CC 




ISN 

00 IC 


GC TO 25 





COICOOCC 




ISN 

0011 

3 

IFIX-XTINTAB) ) 4,5,6 





COl ICCCC 




ISN 

0012 

6 

P=1 





C012C0CC 




ISN 

0013 

5 

N=PTAB 





C012C0CC 




ISN 

0014 


X£AV= XTIPTAB) 





CC140CCC 




ISN 

0015 


XLINT= VT(KTAE) 





CO! 5C0CC 




ISN 

0016 


GC TO 25 





C016CCOC 




IS.N 

0017 

4 

IFIX-XSAVJ 7,8,9 





CJ 1 7Ci- CC 




ISN 

0018 

3 

XL INT= VT (A ) 





CClfcCCCC 




IS.N 

0019 


GC TO 25 





C0190QOC 




IS.N 

0020 

7 

1= N-1 





C02CC0CC 




ISN 

0021 

13 

IFIX-XTIIJJ 1C, 11,12 





C021C000 




ISN 

0022 

11 

A= I 





CO22C0CC 




ISN 

0023 


XSAV= XT! U 





C022CCCC 




ISM 

0024 


XLIiNT= YTin 





CO2400OC 




ISN 

0025 


GC TO 25 





C025CCCC 




ISN 

0026 

1C 

I = l-l 





CC26CCCO 



•vj. 

ISN 

0027 


GC TO 12 





C027C00O 



1 

ISN 

0028 

9 

I = N+1 





C02BCGC0 



-430- 

ISN 

0029 

14 

IrlX-XT(I n 15,11,16 





0C290J0C 




ISiN 

0030 

16 

1= I + l 





C03CC0CC 




ISN 

0031 


GC TO 14 





CO31COC0 




ISN 

0032 

15 

1=1-1 





■ CC32CCCC 




ISN 

0023 

12 

N=I 





C03300CO 




ISN 

0034 


X£AV=XT{ I ) 





C034CCCC 

' 



ISN 

0035 


XLIMT= VT m+ix-xT(i n «(YTi i + u-YT( n )/(xT{ i+D-xTu n 



00350300 




ISN 

0036 

25 

IF(M) 20,21,32 





CC36CCCC 




ISN 

0037 

30 

WRITE (6,2CC1 





C037C0CC 




ISN 

0038 

3C0 

FCR.XAT(/9>,97P***ERRCfi**’f TFE FCLLCWING VALUES MAY NOT 

RE 

ACCURATEC038C0CC 







1 TFr IP.CEFENOENT VARIABLE wAS OUT CF 

RANGE 

GF/9X, 81HTHE 

table. 

TH0C390CCC 







2ESE VALLES WERE CALCLLATEC LSING TFE 

FIRST 

VALUE GIVEN 

IN 

THE 

TA3LC04CCOCC 







2£) 





■ C041CC0C 




21 CCNTIMUE 
RETURN 

22 NRITE (6,2Cl) 


C042G0CC 

C043C0CC 

004400CC 


ISN 0042 3Cl FCFMAT(/9X,57F***cFHDP**>i TP£ FCLLCWING VALUES P.AV NOT 

I the independent VARIABLE WAS OUT OF RANGE 0F/9X,SlHThE 
2 ESE VALUES WERE CALCLLATIC LSING THE LAST VALLE GIVEN 


BE ACCURATS0OA500CC 
TABLE. THC046CC00 
IN THE TABLC047C00C 


ISN 

ISN 


004 3 
0044 


J£) 

GC TO 31 
END 


co4acccc 

CQ49000C 

0C5CCCCC 



t 'XLINT / SIZE, CF PRCGRAM 00047A H6XADECIKAL BVTES 


NAME lAG T^fPE ADD. NAPE lAG TVPE ADD. NAME TAG ‘ TYPE ACC. NAME TAG TYPE 

1 SF ■ 1*4 0002C0 M S 1*4 OOU2Q4 N SF H<4 OOC208 ■ X F R*4 

XT F XP R«4 OOOC'CC YT' F XR CTC"OM5 RTXJT F TX? — OTHTSTIT 5TSXIT3 

XLINT S R>i4 000218 


ADD-. 

0C02OC 

tnnjTTx 


lECCM# F XF 1*4 OCOJOO 


LABEL 


!CCR 


LABEL 


ACCR 


LABEL 




LABEL 


ABOF. 


PAGE 003 


1 0CC2C^ 


5 CCCdBS 

13 CCC304 

14 CCC35C 


25. 0CC368 

*CF1I0NS IN EFFECTS 


=»CFTIOAS IN EFFECT* 


_J _CC_C26A 
A CCC2C2‘ 
11 CCC2U 
16 CCC36A 


3 CC02S45 


3C CCC3CA 


3 C00204 

1C CCC32E 
15 CCC37A 


0002B2 


31 CCC3E0 


7 OOOEE'C 
9 00o33E 

12 0J0384 


32 0003E8 


NANE= y.AIA,CFT=C2.L I AECA T= 5 A , S I ZE =OOCC,< , 


SOURCE, E ECC IC ,NCL 1ST , AGOE CK, LOAD ,MAP , NQED IT , ID ,NOXR£F 


^STATISTICS* SCLPCE STATEMENTS = A3 ,FFG6FAM SIZE = 

^STATISTICS* NO CIAGNCSTICS GENERATED 


1 lAC 


end cf ccmfilaticn ****** 


123K BYTES CF CORE NCT USED 




LEVEL 21.7 { 

JAN 73 ) CS/360 FORTRAN H 


CXTE 75.097/11.12,14 ' 


r rKCTi PD 

rPTiricC - NAN<== ^A IN .OP 1 =C2 > L INECNT = 54* S 1 Zc = CCCCK, 




ISN 0002 

— SCURCl .tECi: IC,NCL !ST,N0C6CK,LdAD,FAP,NCEDlT, 

FUNCTION XLKU'fIXA FCfVAP'G»XTAefNX,YTAB,NYt‘2TAEtNXTAR, 
MF^RFR'^A^E HSIXLKUP ' . • • 

IO,NCXREF 
NYTA8, IX,IY) 

- COCICOCC 
CCO2OCO0’ 


ISN 0003 
ISN 0004 

C 

CINENSICN XTAE (1)»YTAE ( n 
CINENSICN 2TAE(NXTAE,NYT;E) 


uocScoco 

CCC4CCCC 

COC50000 


ISN 0005 

C 

C 

■' 'CCUfelE TAELE PAF/!6CLIC LCCK-UP 1 = PUNC( X, 

lEPRX = C ■ . 

Y ) 

ooo6ou'0c 

C007C0CC 

OOCfcCOCC 


ISN 0006 

C 

C 

le’FRY = 0 

ThFCK IFF RANGE OF TFE VARIABLE TABLES (NO EXTR APOL AT I C N‘,1 

0 C 0 V 0 0 0 V \ 

COICCCCC 

OOllOCCO , , 


ISN 0007 
t<;n oonft 

t 

1C IF tXARG - XTAEd)) 12tl3,13 
12 X = XTAB{ U 


col 2 oOl.o 

C013CCCC 

00140000 


ISN 0009 
ISN 0010 
ISN 0011 


lERRX = -1 
CC TCI 18 
13 CC 15 1=2, NX 


C015CCCC 

COltCCCC 

O017C0CC 


ISN 0012 
ISN 0013 
ISN 0014 


IT (XaRG - XTAE(D) l6, 16,15 
15 CCNTINLE 

X = XTAB(NX) 


0 0 1 c L. u 
0C190CC0 
C02CC00C 


ISN 0015 
ISN 0016 
ISN 0017 


lEPRX = 1 WS 

GC TO 16 
16 X = XARG 


cc2icccc 

C022C00C 

OC23CCCC 


ISN 0018 
ISN 0019 
ISN 0020 


la IF '(YAF6 - YTAE(ll) 2C,21,21 SS 

20 Y = YTAEt 1) ^ S 

lERRY = -1 iTi ^ - 


E3O2400GC 

CO25CCG0 

0026CCCC 

1 

H 

-OO- 

Ui 

isM 0021 
ISN 0022 
ISN 0023 . 


CC TO 26 ^ 

21 CC.23 1=2, NY ^ /l> 

IF lYAPG - YTAE(D) 24,2'«,23 ft Ci 


00?7C^.^.C 

C028C0CC 

00290000 

ISN 0024 
ISN 0025- 


23 tCNTiNLE S® 

y = YTABtNY) bfi 

lEPPY = 1 


wu J c coco 

003 10000 
C032CCC0 


ISN 0027 
ISN 002.6 
ISN 0029 


GC TO 26 
24 V = YARG 
26 IX = lERRX 


D'iJ3 3000(5 
0C34CCC0 
0035C0CC 


ISN 0030 
ISN 0031 

C 

lY = lEPFY 

XLKUP = ElV(X,'i ,XTAE,YIAE,ZTAB,NX,NY,NXTAB,NYTAB) 


L 0 3 6 G 0 L 0 
0037C0CC 

cosecccc 



c 

c 

c 

ERROR RETURNS 


00390000 
CC4CCCCC 
C04 ICCCO 


ISN 0032 

TC-M 

c 

IF (lERRX) 40,45,50 
4C IF ( lERRY ) 41,42,43 


00420000 

C043C0CC 

00440000 


ISN 0034 
ISN 0035 
T CM nn A 


41 V.RITE (6,2CCCC) 
NPITE (6,20010 
• GC TO 60 


00450OCC 
C046CGCC ■ 
CO47CO0C 


ISN .0037 
ISN 0038 
ISN 0039 


'42 URITE (6,21CC0 
VvPITE (6,20020 
GC TO 60 


CU480O00 

00490000 

ooscooec 


PAGE CC2 


ISN 

0040 , 

43 WRITE 16,2CCCC) 

OCSICCCC 

ISN 

0041 

WRITE (6,20C30) 

..C052000C 


ISM 00^ Z 


ISM 0045 
ISM 0046 
ISM 0047 
ISM 0048 


ISM 0051 


ISM 0054 
ISM 0055 
ISM 005O 
IS'J 00 57 
ISM 0 058 
ISM 6o5S 
ISM 0060 

~ISM 0061 
ISM 0062 


ISM C063 
ISM 0064 
ISM 0065 
ISN 0066 
TsM 0067 
ISM 0068 
ISN 0069 
ISN 0070 
tSN 0071 


GC TO 6C 


CC53CCCC 


ISN 0043 

45 

IF (lERRY) 46,6C,47 

C054COCC 


ISN 0044 

46 

WRITE (6,22CCC) 

C055C0C0 



hRITE (6,20C4CJ 

_GC TO _6C 

hPlTE (6,22CCCT 
V^BITE (6.20C5CJ 


C056COCO 

C057CCCC 

ooseocc'c 

C059C0CC 


ISN 

0049 

GC TO 6C 

0C6CC00C 

ISN 

0050 

50 IF (lERRY) 51,52,53 

O061CCOO 


V^P ITE 


.2CCCCI 


C062CCCC 


ISM 

0052 

WR ITE 

(6,2CC6C) 


. . 0063CC00 

ISN 

0053 

GC TO 

60 


C064CCOO 


KPITE (6, 
_VP ITE_i6, 
GC f'd go" 
V.RITE (6, 
IT5_( 
■pTfuPN" 


21C0C ) 
2CC7C) 


5 2 V.RITE (6,2CCCCI 

i^=„( l>iccacj._ . 

60’pTfuPN" 

2CCC0 FCRI-'ATI 9 71->» * * £ P R C h T 

ICJt IMD EPE NCENT VXPlAtIL£ 

21CCC FC"PMaT(' 9>1 14h«V« EPRCf!” T 
IFE FIRST IMCEFENDENT VAR 
'ATI _9>U5F*’S*cHRCR 7 
IFE SECCNC “iNOEPENCEAf \a 
2CQ1Q FCBMATI 19>69FTFE FHCGRAP 

lt_JN BCTh_Ta8j^£S) 

2CC2C FCPMAfri9>'E4FTFE”'FPCGRAf' 
ILAST VALLE, YIM, IN TFE 
2CC6 C _F C A T ( 1 9 > 3 4 hj F E_ff C C 

IIPST vAlE,"~Y ( i ) , Tn TFE 
2CCEC FCPMAT(19>6£hTFE FFCGPAP 

L_I ^ BOTH T AJ L ill _ 

2CC2C FCP.MATI 19)T57HTFE FPCCRAP 
lAOLF) 

2CC7C F CP MAT! 19>56FTFt PRCGP A N_ 

ible'i 

2CC4C rCFPATI 19X57HTFE PRCGRAP 

TAELE) ; 

2CC5C FCPMATI 19>5£HTFE FPCGPAP 
lELE) 

ENC 


FE FCLH 
S_U_ A_N! 
FE FCLU 
I ABLE n 
FE FCJ.LC 

h aele" I 

PICKED 

"fTcked 

TAELES : 
_FI^K^O 
TAELESJ 
PICKED 


ChING VALUES 
C_Y) ARE CUT 
CwiTg. VALLES 
X) IS CUT OF- 
O WING VALUES 
(Y) IS OUT OF 
UP the FIRST 


UP THE FIRST' VALUE 


UP THE LAST 


UP THE LAST VALUES, 


PICKED UP THE FIRST VALUE 


PICKED UP THE .LAST 


PICKED UP THE FIRST 


PICKED UP THE LAST 


OOoSCOOC 

00660000 

C067CC0C 

C066CCCC 

C069JCOC 

0V7C000C 

FAY NCT BE ACCLPATS. B0071CCCC 
C F RANGE DF TF E TABLE >00 720000 
FAY NOT BE ACCCraTc. T00'73CCCC 
RANGE OF THE TABLE) C0740C00 
FAY NOT BE ACCLRATE. T0 075COCO 
RANGE OF THE TABLE) C'd‘76dCC0 
VALUES, XII) AND Y ( 1' ) 007 7CC CC 

■ C07300CC 

VALUE, XI 1), AND THE CC79C"CCC 

C08C0CC0 

VALUE, X(M), AND THE FOC E C C_ 

•CC72CCCC 

VALUES, XIM) AND YI N) ,00030000 

CCS4CCCC 

VALUE, XIU, IN the T0085CCCC 

CC36CCCC 

VALUE, X(M), IN THE TAO O 87C C C C_ 

C03800CC 

VALUE, Y(l), IN THE T0C590CCC 

0C9C00CQ 

VALUE, YIN), IN THE TAC0910000 

0092CCCC 

C093CCCC 



/ XIKUP / 


NAME 

I 

lY 

TAG 

SF 

•s 

TYPE 

1*4 

1*4 

ADD. 

000454 

000464 

NAPE 

X 

NX 

TAG 

SFA 

FA 

TYPE 

R*4 

1*4 

ADD. 

000453 

000468 

xarg 

f 

R*4 

000470 

XTAB 

FA XP 

R*4 

000000 

ZTAB 

FA XR 

R*4 

COOCCO 

lERRX 

<F 

1*4 

0C0478 

NYTA3 

FA 

1*4 

000404 

XLKUP 

c 

R*4 

000488 


5 [ i c OF PPCGRAM 000(35^1 htXACECIMAL PAGE 003" 


name tag 

Y SEA 
NY FA 


-yxpi; — r 

lERRY SF 


TYPE ALD. 
R^‘A 00G45C 
1*4 00C46C 


— DTRTZrTZr 
1*4 00C47C 


NAfiE tag 
IX S 

blV F XF 

TA“5nr 


■■■ vr'Ag" 

NXTA& 


FA 


iaCGM<^ F XF 1*4 OOCOOO 


Typ'E JcdT'" 
1*4 OC0440 

R*4 OCOOOO' 


I«4 0C0480 









LABEL 

ADCk 

PAGE 004 

LAE6L 

ACER 

label 

ACDR 

LAEEU 

ADDP 

10» 

firr4P4 -NR 

12 

CCC5C6 

13 

CC0510 

15 

0C052C 


16 

23 

41 

CCC53E 

CCC564 

CCC5D4 

18 

24 

42 

CCCS46 

CCC5SA 

CCC6CC 

20 

26 

43 

'CCC553 

CCC5A2 

CC062C 

21 
4C 
4 5 

000562 

0005CA 

,000656 


46 

52 

CCC662 

CCC6F4 

-^7 

53 

CCC6SC 

CCC72C 

50 

60 

C006BC 

CC074Q 

51 

COO 6C 6 



“(■CP7I0NS IN EFFECT* NAM£= »CFT = C2t L I ^EC^7 = 54 tSI£E = OOaOK > 

*CFTIOKS IN EFFECT* SOURCE , £ EC C I C t NC L I S 1 i ^ CCE CK , LO PD , MAP , NCED IT , ID t NOXRE F 

^STATISTICS* SOL.RCE STATE^'E^TS = ?C .FPCGPAM SIZE = ' 2132 


*STATISTICS* NO CIAGNCSTICS GENERATED 


!6**«** END CF CCMFILATICN ****** 


U5K BYTES CP CORE NCT USED 
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